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

lots of changes

Browse source
This commit is contained in:
Frank Dillon 2008-11-12 23:03:42 +00:00
parent 93df39d6f6
commit 615e0e3746
28 changed files with 2883 additions and 212 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lib/WebGUI/ProfileCategory.pm
View file

@ -177,6 +177,20 @@ sub getLabel {
return WebGUI::Operation::Shared::secureEval($self->session,$self->get("label"));
}
#-------------------------------------------------------------------
=head2 getShortLabel ( )
Returns the eval'd label for this category.
=cut
sub getShortLabel {
my $self = shift;
return WebGUI::Operation::Shared::secureEval($self->session,$self->get("shortLabel"));
}
#-------------------------------------------------------------------
=head2 hasProtected ( )
@ -332,6 +346,10 @@ A hash reference containing the properties to be updated.
A perl structure that will return a scalar. Defaults to 'Undefined'.
=head4 shortLabel
A perl structure that will return a scalar. Defaults to 'Undefined'.
=head4 visible
A boolean indicating whether the fields in this category should be visible when a user views a user's profile.
@ -353,6 +371,7 @@ sub set {
$properties->{editable} = 0 unless ($properties->{editable} == 1);
$properties->{protected} = 0 unless ($properties->{protected} == 1);
$properties->{label} = 'Undefined' if ($properties->{label} =~ /^[\"\']*$/);
$properties->{shortLabel} = 'Undefined' if ($properties->{shortLabel} =~ /^[\"\']*$/);
$properties->{profileCategoryId} = $self->getId;
$self->session->db->setRow("userProfileCategory","profileCategoryId",$properties);
}