From 2cb4bc45b8d66d4faa3928f1b06e7e065ed950b3 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Thu, 11 Feb 2010 16:40:09 -0800 Subject: [PATCH] remove definition subroutine from these already converted assets. --- lib/WebGUI/Asset/Wobject/Layout.pm | 26 ---------------- lib/WebGUI/Asset/Wobject/SQLReport.pm | 18 ----------- lib/WebGUI/Asset/Wobject/StockData.pm | 28 ----------------- lib/WebGUI/Asset/Wobject/Survey.pm | 31 ------------------- lib/WebGUI/Asset/Wobject/SyndicatedContent.pm | 27 ---------------- lib/WebGUI/Asset/Wobject/TimeTracking.pm | 23 -------------- 6 files changed, 153 deletions(-) diff --git a/lib/WebGUI/Asset/Wobject/Layout.pm b/lib/WebGUI/Asset/Wobject/Layout.pm index 7d870ffdf..6ec0f5cdb 100644 --- a/lib/WebGUI/Asset/Wobject/Layout.pm +++ b/lib/WebGUI/Asset/Wobject/Layout.pm @@ -77,32 +77,6 @@ These methods are available from this class: -#------------------------------------------------------------------- - -=head2 definition ( definition ) - -Defines the properties of this asset. - -=head3 definition - -A hash reference passed in from a subclass definition. - -=cut - -sub definition { - my $class = shift; - my $session = shift; - my $definition = shift; - my $i18n = WebGUI::International->new($session,"Asset_Layout"); - - push(@{$definition}, { - properties=>{ - } - }); - return $class->SUPER::definition($session, $definition); -} - - #------------------------------------------------------------------- =head2 getEditForm ( ) diff --git a/lib/WebGUI/Asset/Wobject/SQLReport.pm b/lib/WebGUI/Asset/Wobject/SQLReport.pm index ab1f99500..b3cc5612e 100644 --- a/lib/WebGUI/Asset/Wobject/SQLReport.pm +++ b/lib/WebGUI/Asset/Wobject/SQLReport.pm @@ -242,24 +242,6 @@ sub _downloadUserGroup_default { } -#------------------------------------------------------------------- -sub definition { - my $class = shift; - my $session = shift; - my $definition = shift; - my $i18n = WebGUI::International->new($session,"Asset_SQLReport"); - my %properties; - tie %properties, 'Tie::IxHash'; - %properties = ( - ); - push(@{$definition}, { - className=>'WebGUI::Asset::Wobject::SQLReport', - properties => \%properties, - autoGenerateForms => 0, - }); - return $class->SUPER::definition($session, $definition); -} - #------------------------------------------------------------------- =head2 getContentLastModified ( ) diff --git a/lib/WebGUI/Asset/Wobject/StockData.pm b/lib/WebGUI/Asset/Wobject/StockData.pm index 28b9996ba..f2e61bdad 100644 --- a/lib/WebGUI/Asset/Wobject/StockData.pm +++ b/lib/WebGUI/Asset/Wobject/StockData.pm @@ -287,34 +287,6 @@ sub _trim { #------------------------------------------------------------------- -=head2 definition ( ) - -defines wobject properties for Stock Data instances - -=cut - -sub definition { - my $class = shift; - my $session = shift; - my $definition = shift; - my $i18n = WebGUI::International->new($session,"Asset_StockData"); - - my %properties; - tie %properties, 'Tie::IxHash'; - %properties = ( - - ); - - push(@{$definition}, { - autoGenerateForms=>1, - properties=>\%properties - }); - - return $class->SUPER::definition($session, $definition); -} - -#------------------------------------------------------------------- - =head2 prepareView ( ) See WebGUI::Asset::prepareView() for details. diff --git a/lib/WebGUI/Asset/Wobject/Survey.pm b/lib/WebGUI/Asset/Wobject/Survey.pm index 4cf40867d..4035bb500 100644 --- a/lib/WebGUI/Asset/Wobject/Survey.pm +++ b/lib/WebGUI/Asset/Wobject/Survey.pm @@ -243,37 +243,6 @@ END_WARN #------------------------------------------------------------------- -=head2 definition ( session, [definition] ) - -Returns an array reference of definitions. Adds tableName, className, properties to array definition. - -=head3 definition - -An array of hashes to prepend to the list - -=cut - -sub definition { - my $class = shift; - my $session = shift; - my $definition = shift; - my $i18n = WebGUI::International->new( $session, 'Asset_Survey' ); - my %properties; - tie %properties, 'Tie::IxHash'; ## no critic - %properties = ( - # Properties Tab - ); - - push @{$definition}, { - className => 'WebGUI::Asset::Wobject::Survey', - properties => \%properties - }; - - return $class->SUPER::definition( $session, $definition ); -} - -#------------------------------------------------------------------- - =head2 surveyJSON_update ( ) Convenience method that delegates to L diff --git a/lib/WebGUI/Asset/Wobject/SyndicatedContent.pm b/lib/WebGUI/Asset/Wobject/SyndicatedContent.pm index 6575fae7f..18849971d 100644 --- a/lib/WebGUI/Asset/Wobject/SyndicatedContent.pm +++ b/lib/WebGUI/Asset/Wobject/SyndicatedContent.pm @@ -95,33 +95,6 @@ These methods are available from this class: =cut -#------------------------------------------------------------------- - -=head2 definition ( definition ) - -Defines the properties of this asset. - -=head3 definition - -A hash reference passed in from a subclass definition. - -=cut - -sub definition { - my $class = shift; - my $session = shift; - my $definition = shift; - my %properties; - tie %properties, 'Tie::IxHash'; - my $i18n = WebGUI::International->new($session,'Asset_SyndicatedContent'); - %properties = ( - ); - push(@{$definition}, { - properties=>\%properties - }); - return $class->next::method($session, $definition); -} - #------------------------------------------------------------------- =head2 generateFeed () diff --git a/lib/WebGUI/Asset/Wobject/TimeTracking.pm b/lib/WebGUI/Asset/Wobject/TimeTracking.pm index 158b02984..f91d7ab1d 100644 --- a/lib/WebGUI/Asset/Wobject/TimeTracking.pm +++ b/lib/WebGUI/Asset/Wobject/TimeTracking.pm @@ -67,29 +67,6 @@ property pmIntegration => ( use WebGUI::Asset::Wobject::ProjectManager; -#------------------------------------------------------------------- - -=head2 definition - -=cut - -sub definition { - my $class = shift; - my $session = shift; - my $definition = shift; - my $i18n = WebGUI::International->new($session,'Asset_TimeTracking'); - my %properties; - tie %properties, 'Tie::IxHash'; - %properties = ( - ); - push(@{$definition}, { - className=>'WebGUI::Asset::Wobject::TimeTracking', - properties=>\%properties - }); - return $class->SUPER::definition($session, $definition); -} - - #------------------------------------------------------------------- =head2 prepareView