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

a ton of $session fixes (thanks to Colin), and a new $session checker, that supposedly, shouldn't be needed now. It can be backed out, however, easily.

Browse source
This commit is contained in:
Matthew Wilson 2006-01-16 22:45:21 +00:00
parent 5fadc70eac
commit 09483e18c5
208 changed files with 505 additions and 533 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/ProfileField.pm
View file

@ -80,7 +80,7 @@ The unique id of the category to assign this field to. Defaults to "1" (misc).
sub create {
my $class = shift;
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $fieldName = shift;
my $properties = shift;
my $categoryId = shift || "1";
@ -154,11 +154,11 @@ sub formField {
}
$properties->{value} = $default;
if ($withWrapper == 1) {
return WebGUI::Form::DynamicField->new(%{$properties})->displayFormWithWrapper;
return WebGUI::Form::DynamicField->new($self->session,%{$properties})->displayFormWithWrapper;
} elsif ($withWrapper == 2) {
return WebGUI::Form::DynamicField->new(%{$properties})->displayValue;
return WebGUI::Form::DynamicField->new($self->session,%{$properties})->displayValue;
} else {
return WebGUI::Form::DynamicField->new(%{$properties})->displayForm;
return WebGUI::Form::DynamicField->new($self->session,%{$properties})->displayForm;
}
}
@ -412,7 +412,7 @@ The unique name of this field.
sub new {
my $class = shift;
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $id = shift;
return undef unless ($id);
my $properties = $session->db->getRow("userProfileField","fieldName",$id);