Merge branch 'fork'

This commit is contained in:
Paul Driver 2010-11-01 08:20:38 -05:00
commit 7219e21f86
28 changed files with 2399 additions and 251 deletions

View file

@ -212,7 +212,7 @@ copy.
sub duplicate {
my $self = shift;
my $newTemplate = $self->SUPER::duplicate;
my $newTemplate = $self->SUPER::duplicate(@_);
$newTemplate->update({isDefault => 0});
if ( my $storageId = $self->get('storageIdExample') ) {
my $newStorage = WebGUI::Storage->get( $self->session, $storageId )->copy;