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

removed old macros from default config file

Browse source 
added duplicate button
This commit is contained in:
JT Smith 2006-05-19 05:29:34 +00:00
parent 3d10acb8ce
commit 414dfde9c3
5 changed files with 34 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lib/WebGUI/Asset.pm
View file

@ -1137,6 +1137,7 @@ sub manageAssets {
assetManager.AddButton("'.$i18n->get("delete").'","deleteList","manageAssets");
assetManager.AddButton("'.$i18n->get("cut").'","cutList","manageAssets");
assetManager.AddButton("'.$i18n->get("copy").'","copyList","manageAssets");
assetManager.AddButton("'.$i18n->get("duplicate").'","duplicateList","manageAssets");
assetManager.initializeDragEventHandlers();
assetManager.Write();
var assetListSelectAllToggle = false;

26
lib/WebGUI/AssetClipboard.pm
View file

@ -278,6 +278,32 @@ sub www_cutList {
#-------------------------------------------------------------------
=head2 www_duplicateList ( )
Creates a bunch of duplicate assets under the same parent.
=cut
sub www_duplicateList {
my $self = shift;
return $self->session->privilege->insufficient() unless $self->canEdit;
foreach my $assetId ($self->session->form->param("assetId")) {
my $asset = WebGUI::Asset->newByDynamicClass($self->session,$assetId);
if ($asset->canEdit) {
my $newAsset = $asset->duplicate;
$newAsset->update({ title=>$newAsset->getTitle.' (copy)'});
$newAsset->setParent($asset->getParent);
}
}
if ($self->session->form->process("proceed") ne "") {
my $method = "www_".$self->session->form->process("proceed");
return $self->$method();
}
return $self->www_manageAssets();
}
#-------------------------------------------------------------------
=head2 www_emptyClipboard ( )
Moves assets in clipboard to trash. Returns www_manageClipboard() when finished. If isInGroup(4) returns False, insufficient privilege is rendered.

6
lib/WebGUI/i18n/English/Asset.pm
View file

@ -175,6 +175,12 @@ our $I18N = {
context => q|Used in asset context menus.|
},
'duplicate' => {
message => q|Duplicate|,
lastUpdated => 0,
context => q|Used in asset context menus.|
},
'copy' => {
message => q|Copy|,
lastUpdated => 0,