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

copy asset pop-up menu

Browse source
This commit is contained in:
James Tolley 2007-07-11 00:07:17 +00:00
parent de4da68884
commit f33e7533f4
5 changed files with 79 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lib/WebGUI/AssetClipboard.pm
View file

@ -185,10 +185,23 @@ Duplicates self, cuts duplicate, returns self->getContainer->www_view if canEdit
sub www_copy {
my $self = shift;
return $self->session->privilege->insufficient() unless $self->canEdit;
my $newAsset = $self->duplicate({skipAutoCommitWorkflows => 1});
$newAsset->update({ title=>$self->getTitle.' (copy)'});
$newAsset->cut;
return $self->session->asset($self->getContainer)->www_view;
# with: 'children' || 'descendants' || ''
my $with = $self->session->form->get('with') || '';
if ($with) {
my $childrenOnly = $with eq 'children';
my $newAsset = $self->duplicateBranch($childrenOnly);
$newAsset->update({ title=>$self->getTitle.' (copy)'});
$newAsset->cut;
return $self->session->asset($self->getContainer)->www_view;
}
else {
my $newAsset = $self->duplicate({skipAutoCommitWorkflows => 1});
$newAsset->update({ title=>$self->getTitle.' (copy)'});
$newAsset->cut;
return $self->session->asset($self->getContainer)->www_view;
}
}
#-------------------------------------------------------------------