diff --git a/lib/WebGUI/Asset/File/GalleryFile.pm b/lib/WebGUI/Asset/File/GalleryFile.pm index 30705b081..f631866ac 100644 --- a/lib/WebGUI/Asset/File/GalleryFile.pm +++ b/lib/WebGUI/Asset/File/GalleryFile.pm @@ -66,38 +66,6 @@ These methods are available from this class =cut -#------------------------------------------------------------------- - -=head2 definition ( session, definition ) - -Define the properties of all GalleryFile assets. - -=cut - -sub definition { - my $class = shift; - my $session = shift; - my $definition = shift; - my $i18n = WebGUI::International->new($session,'Asset_Photo'); - - tie my %properties, 'Tie::IxHash', ( - ); - - # UserDefined Fields - for my $i (1 .. 5) { - $properties{"userDefined".$i} = { - defaultValue => undef, - }; - } - - push @{$definition}, { - className => 'WebGUI::Asset::File::GalleryFile', - properties => \%properties, - }; - - return $class->SUPER::definition($session, $definition); -} - #---------------------------------------------------------------------------- =head2 appendTemplateVarsCommentForm ( var [, comment ] ) diff --git a/lib/WebGUI/Asset/Post.pm b/lib/WebGUI/Asset/Post.pm index e5f09474f..1855eaec3 100644 --- a/lib/WebGUI/Asset/Post.pm +++ b/lib/WebGUI/Asset/Post.pm @@ -336,24 +336,6 @@ sub cut { return $result; } -#------------------------------------------------------------------- -sub definition { - my $class = shift; - my $session = shift; - my $definition = shift; - my $i18n = WebGUI::International->new($session,"Asset_Post"); - - my $properties = { - }; - - push(@{$definition}, { - className=>'WebGUI::Asset::Post', - properties=>$properties, - }); - return $class->SUPER::definition($session,$definition); -} - - #------------------------------------------------------------------- =head2 DESTROY diff --git a/lib/WebGUI/Asset/Shortcut.pm b/lib/WebGUI/Asset/Shortcut.pm index ea56b09f5..bf0cc9639 100644 --- a/lib/WebGUI/Asset/Shortcut.pm +++ b/lib/WebGUI/Asset/Shortcut.pm @@ -219,19 +219,6 @@ sub canManage { return $self->canEdit; } -#------------------------------------------------------------------- -sub definition { - my $class = shift; - my $session = shift; - my $definition = shift; - my $i18n = WebGUI::International->new($session,"Asset_Shortcut"); - push(@{$definition}, { - properties=>{ - } - }); - return $class->SUPER::definition($session,$definition); -} - #------------------------------------------------------------------- =head2 discernUserId diff --git a/lib/WebGUI/Asset/Wobject/Dashboard.pm b/lib/WebGUI/Asset/Wobject/Dashboard.pm index a28c683c8..91337a2ad 100644 --- a/lib/WebGUI/Asset/Wobject/Dashboard.pm +++ b/lib/WebGUI/Asset/Wobject/Dashboard.pm @@ -111,26 +111,6 @@ sub canPersonalize { return $self->session->user->isInGroup($self->usersGroupId); } -#------------------------------------------------------------------- -sub definition { - my $class = shift; - my $session = shift; - my $definition = shift; - my $i18n = WebGUI::International->new($session,"Asset_Dashboard"); - - my %properties; - %properties = ( - ); - - push(@{$definition}, { - className => 'WebGUI::Asset::Wobject::Dashboard', - properties => \%properties, - autoGenerateForms => 1, - }); - - return $class->SUPER::definition($session, $definition); -} - #------------------------------------------------------------------- =head2 discernUserId diff --git a/lib/WebGUI/Asset/Wobject/StoryArchive.pm b/lib/WebGUI/Asset/Wobject/StoryArchive.pm index 67e22a1eb..ff351aeb2 100644 --- a/lib/WebGUI/Asset/Wobject/StoryArchive.pm +++ b/lib/WebGUI/Asset/Wobject/StoryArchive.pm @@ -153,32 +153,6 @@ sub canPostStories { return $user->isInGroup($self->groupToPost) || $self->canEdit($userId); } -#------------------------------------------------------------------- - -=head2 definition ( ) - -defines wobject properties for New Wobject instances. You absolutely need -this method in your new Wobjects. If you choose to "autoGenerateForms", the -getEditForm method is unnecessary/redundant/useless. - -=cut - -sub definition { - my $class = shift; - my $session = shift; - my $definition = shift; - my $i18n = WebGUI::International->new($session, 'Asset_StoryArchive'); - my %properties; - %properties = ( - ); - push(@{$definition}, { - className=>'WebGUI::Asset::Wobject::StoryArchive', - properties=>\%properties, - }); - return $class->SUPER::definition($session, $definition); -} - - #------------------------------------------------------------------- =head2 exportAssetCollateral (basePath, params, session)