added getLabel method

This commit is contained in:
JT Smith 2005-12-07 16:28:55 +00:00
parent 39eb753e7e
commit 58df04b36c
3 changed files with 31 additions and 1 deletions

View file

@ -19,6 +19,7 @@ use strict;
use WebGUI::ProfileField;
use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::Operation::Shared;
=head1 NAME
@ -159,6 +160,19 @@ sub getId {
#-------------------------------------------------------------------
=head2 getLabel ()
Returns the eval'd label for this category.
=cut
sub getLabel {
my $self = shift;
return WebGUI::Operation::Shared::secureEval($self->get("label"));
}
#-------------------------------------------------------------------
=head2 moveDown ()
Moves this category down one position.