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

added getLabel method

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Operation/Profile.pm
View file

@ -31,6 +31,8 @@ use WebGUI::SQL;
use WebGUI::URL; use WebGUI::URL;
use WebGUI::User; use WebGUI::User;
use WebGUI::Utility; use WebGUI::Utility;
use WebGUI::ProfileField;
use WebGUI::ProfileCategory;
use WebGUI::Operation::Shared; use WebGUI::Operation::Shared;
#------------------------------------------------------------------- #-------------------------------------------------------------------

14
lib/WebGUI/ProfileCategory.pm
View file

@ -19,6 +19,7 @@ use strict;
use WebGUI::ProfileField; use WebGUI::ProfileField;
use WebGUI::Session; use WebGUI::Session;
use WebGUI::SQL; use WebGUI::SQL;
use WebGUI::Operation::Shared;
=head1 NAME =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 () =head2 moveDown ()
Moves this category down one position. Moves this category down one position.

16
lib/WebGUI/ProfileField.pm
View file

@ -21,6 +21,7 @@ use WebGUI::Session;
use WebGUI::SQL; use WebGUI::SQL;
use WebGUI::Form; use WebGUI::Form;
use WebGUI::FormProcessor; use WebGUI::FormProcessor;
use WebGUI::Operation::Shared;
=head1 NAME =head1 NAME
@ -116,7 +117,7 @@ Optionally pass in a list of properties to override the default properties of an
sub formField { sub formField {
my $self = shift; my $self = shift;
my $properties = shift; my $properties = shift;
$properties->{label} = WebGUI::Operation::Shared::secureEval($self->get("label")); $properties->{label} = $self->getLabel;
$properties->{fieldType} = $self->get("fieldType"); $properties->{fieldType} = $self->get("fieldType");
$properties->{name} = $self->getId; $properties->{name} = $self->getId;
my $values = WebGUI::Operation::Shared::secureEval($self->get("possibleValues")); my $values = WebGUI::Operation::Shared::secureEval($self->get("possibleValues"));
@ -204,6 +205,19 @@ sub getId {
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 getLabel ()
Returns the eval'd label for this field.
=cut
sub getLabel {
my $self = shift;
return WebGUI::Operation::Shared::secureEval($self->get("label"));
}
#-------------------------------------------------------------------
=head2 moveDown () =head2 moveDown ()
Moves this field down one position within it's category. Moves this field down one position within it's category.