version 1.98, 2005/02/22 11:43:05
|
version 1.99, 2005/02/22 22:56:08
|
Line 2011 BUTTONS
|
Line 2011 BUTTONS
|
HTML::Entities::encode($raw_name,"<>&\"'"); |
HTML::Entities::encode($raw_name,"<>&\"'"); |
if($option_vars) { |
if($option_vars) { |
foreach my $option_var (@$option_vars) { |
foreach my $option_var (@$option_vars) { |
|
my $var_value = "\|\|\|" . $helper->{VARS}->{$option_var} . |
|
"\|\|\|"; |
my $checked =""; |
my $checked =""; |
if($helper->{VARS}->{$option_var} =~ /$raw_name/) { |
if($var_value =~ /\Q|||$raw_name|||\E/) { |
$checked = "checked"; |
$checked = "checked"; |
} |
} |
$col .= |
$col .= |