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

Fix the compatibility methods that were broken by the last commit.

Browse source
This commit is contained in:
Colin Kuskie 2010-10-21 10:50:23 -07:00
parent 87c183e134
commit e38d2eaa94
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/Crud.pm
View file

@ -358,7 +358,7 @@ sub crud_getProperties {
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 meta->sequenceKey ( session ) =head2 crud_getSequenceKey ( session )
A management class method that returns just the 'sequenceKey' from the meta class. A management class method that returns just the 'sequenceKey' from the meta class.
@ -368,14 +368,14 @@ A reference to a WebGUI::Session.
=cut =cut
sub meta->sequenceKey { sub crud_getSequenceKey {
my ($class) = @_; my ($class) = @_;
return $class->meta->sequenceKey; return $class->meta->sequenceKey;
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 meta->tableName ( session ) =head2 crud_getTableName ( session )
A management class method that returns just the 'tableName'. A management class method that returns just the 'tableName'.
@ -385,14 +385,14 @@ A reference to a WebGUI::Session.
=cut =cut
sub meta->tableName { sub crud_getTableName {
my ($class) = @_; my ($class) = @_;
return $class->meta->tableName; return $class->meta->tableName;
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 meta->tableKey ( session ) =head2 crud_getTableKey ( session )
A management class method that returns just the 'tableKey'. A management class method that returns just the 'tableKey'.
@ -402,7 +402,7 @@ A reference to a WebGUI::Session.
=cut =cut
sub meta->tableKey { sub crud_getTableKey {
my ($class) = @_; my ($class) = @_;
return $class->meta->tableKey; return $class->meta->tableKey;
} }