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

Remove leftover definition sub stubs.

Browse source
This commit is contained in:
Colin Kuskie 2010-03-09 13:51:07 -08:00
parent bc71165a16
commit ffb7945c34
5 changed files with 0 additions and 109 deletions
Download patch file Download diff file Expand all files Collapse all files

32
lib/WebGUI/Asset/File/GalleryFile.pm
View file

@ -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 ] )

18
lib/WebGUI/Asset/Post.pm
View file

@ -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

13
lib/WebGUI/Asset/Shortcut.pm
View file

@ -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

20
lib/WebGUI/Asset/Wobject/Dashboard.pm
View file

@ -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

26
lib/WebGUI/Asset/Wobject/StoryArchive.pm
View file

@ -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)