version 1.90, 2005/01/03 13:45:31
|
version 1.91, 2005/01/05 12:07:27
|
Line 1871 sub start_option {
|
Line 1871 sub start_option {
|
if (!defined($paramHash->{OPTION_TEXTS})) { |
if (!defined($paramHash->{OPTION_TEXTS})) { |
$paramHash->{OPTION_TEXTS} = [ ]; |
$paramHash->{OPTION_TEXTS} = [ ]; |
$paramHash->{OPTION_VARS} = [ ]; |
$paramHash->{OPTION_VARS} = [ ]; |
|
|
} |
} |
|
# OPTION_TEXTS is a list of the text attribute |
|
# values used to create column headings. |
|
# OPTION_VARS is a list of the variable names, used to create the checkbox |
|
# inputs. |
# We're ok with empty elements. as place holders |
# We're ok with empty elements. as place holders |
# Although the 'variable' element should really exist. |
# Although the 'variable' element should really exist. |
|
# |
|
|
my $option_texts = $paramHash->{OPTION_TEXTS}; |
my $option_texts = $paramHash->{OPTION_TEXTS}; |
my $option_vars = $paramHash->{OPTION_VARS}; |
my $option_vars = $paramHash->{OPTION_VARS}; |
|
|
push(@$option_texts, $token->[2]{'text'}); |
push(@$option_texts, $token->[2]{'text'}); |
push(@$option_vars, $token->[2]{'variable'}); |
push(@$option_vars, $token->[2]{'variable'}); |
|
|
|
# Need to create and declare the option variables as well to make them |
|
# persistent. |
|
# |
|
my $varname = $token->[2]{'variable'}; |
|
$helper->declareVar($varname); |
|
|
|
|
return ''; |
return ''; |
} |
} |
|
|
Line 1989 BUTTONS
|
Line 2001 BUTTONS
|
my $resource_name = |
my $resource_name = |
HTML::Entities::encode(&$valueFunc($resource),"<>&\"'"); |
HTML::Entities::encode(&$valueFunc($resource),"<>&\"'"); |
if($option_vars) { |
if($option_vars) { |
foreach my $var (@$option_vars) { |
foreach my $option_var (@$option_vars) { |
$col .= |
$col .= |
"<td align='center'><input type='checkbox' name ='$var'.forminput' value='". |
"<td align='center'><input type='checkbox' name ='$option_var". |
|
".forminput' value='". |
$resource_name . "' /> </td>"; |
$resource_name . "' /> </td>"; |
} |
} |
} |
} |