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

added session variable to new, passes session when creating new form object

Browse source
This commit is contained in:
Colin Kuskie 2006-01-13 17:34:47 +00:00
parent 7686f7a8a4
commit aec8e8e0cf
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Form/DynamicField.pm
View file

@ -97,6 +97,7 @@ array will be used.
sub new {
my $class = shift;
my $session = shift;
my %raw = @_;
my $param = \%raw;
my $fieldType = ucfirst($param->{fieldType});
@ -108,12 +109,12 @@ sub new {
}
# Return the appropriate field object.
if ($fieldType eq "") {
$self->session->errorHandler->warn("Something is trying to create a dynamic field called ".$param->{name}.", but didn't pass in a field type.");
$session->errorHandler->warn("Something is trying to create a dynamic field called ".$param->{name}.", but didn't pass in a field type.");
$fieldType = "Text";
}
##No infinite loops, please
elsif ($fieldType eq 'DynamicField') {
$self->session->errorHandler->warn("Something is trying to create a DynamicField via DynamicField.");
$session->errorHandler->warn("Something is trying to create a DynamicField via DynamicField.");
$fieldType = "Text";
}
no strict 'refs';
@ -121,10 +122,10 @@ sub new {
my $load = "use ".$cmd;
eval ($load);
if ($@) {
$self->session->errorHandler->error("Couldn't compile form control: ".$fieldType.". Root cause: ".$@);
$session->errorHandler->error("Couldn't compile form control: ".$fieldType.". Root cause: ".$@);
return undef;
}
my $formObj = $cmd->new($param);
my $formObj = $cmd->new($session, $param);
##Fix up methods for List type forms and restore the size to all Forms *except*
##List type forms. Historically, dynamically created forms have always
##used the default size.