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

readded packages system

Browse source
This commit is contained in:
JT Smith 2005-01-06 19:15:08 +00:00
parent 22d3404b30
commit 3671e3f29d
10 changed files with 125 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/Asset/File.pm
View file

@ -97,6 +97,16 @@ sub getBox {
}
#-------------------------------------------------------------------
sub duplicate {
my $self = shift;
my $newAsset = $self->SUPER::duplicate(shift);
my $newStorage = $self->getStorageLocation->copy;
$newAsset->update({storageId=>$newStorage->getId,olderVersions=>''});
}
#-------------------------------------------------------------------
=head2 getEditForm ()