oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixed a lineage problem and checked in the new shortcut system

Browse source
This commit is contained in:
JT Smith 2005-02-04 22:06:46 +00:00
parent 1d8973dc8b
commit 12094333ec
9 changed files with 181 additions and 154 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/WebGUI/Asset.pm
View file

@ -1425,9 +1425,7 @@ sub getToolbar {
.copyIcon('func=copy',$self->get("url"));
# .moveTopIcon('func=moveTop&wid='.${$wobject}{wobjectId})
# .moveBottomIcon('func=moveBottom&wid='.${$wobject}{wobjectId})
# if (${$wobject}{namespace} ne "WobjectProxy" && isIn("WobjectProxy",@{$session{config}{wobjects}})) {
# $wobjectToolbar .= shortcutIcon('func=createShortcut');
#}
$toolbar .= shortcutIcon('func=createShortcut') unless ($self->get("className") =~ /Shortcut/);
return $toolbar;
}
@ -2163,6 +2161,19 @@ sub www_copyList {
#-------------------------------------------------------------------
=head2 www_createShortcut ()
=cut
sub www_createShortcut () {
my $self = shift;
$self->addChild({
className=>$self->get("className"),
});
}
#-------------------------------------------------------------------
=head2 www_cut ( )
Cuts (removes to clipboard) self, returns the www_view of the Parent if canEdit. Otherwise returns AdminConsole rendered insufficient privilege.