version 1.123, 2005/10/17 18:20:59
|
version 1.124, 2005/10/17 19:46:12
|
Line 2017 BUTTONS
|
Line 2017 BUTTONS
|
$mapUrl = $self->{MAP_URL}; |
$mapUrl = $self->{MAP_URL}; |
} |
} |
|
|
|
my @defaultSymbs; |
|
if (defined($self->{DEFAULT_VALUE})) { |
|
my $valueFunc = eval($self->{DEFAULT_VALUE}); |
|
die 'Error in default value code for variable ' . |
|
$self->{'variable'} . ', Perl said: ' . $@ if $@; |
|
@defaultSymbs = &$valueFunc($helper, $self); |
|
if (!$multichoice) { # only allowed 1 |
|
@defaultSymbs = ($defaultSymbs[0]); |
|
} |
|
} |
|
|
|
|
# Create the composite function that renders the column on the nav map |
# Create the composite function that renders the column on the nav map |
# have to admit any language that lets me do this can't be all bad |
# have to admit any language that lets me do this can't be all bad |
Line 2065 BUTTONS
|
Line 2076 BUTTONS
|
} |
} |
|
|
$col .= "<td align='center'><input type='$inputType' name='${var}.forminput' "; |
$col .= "<td align='center'><input type='$inputType' name='${var}.forminput' "; |
if (!$checked && !$multichoice) { |
if (@defaultSymbs) { |
$col .= "checked='checked' "; |
my $symb=$resource->symb(); |
$checked = 1; |
if (grep(/\Q$symb\E/,@defaultSymbs)) { |
} |
$col .= "checked='checked' "; |
if ($multichoice) { # all resources start checked; see bug 1174 |
$checked = 1; |
$col .= "checked='checked' "; |
} |
$checked = 1; |
} else { |
|
if (!$checked && !$multichoice) { |
|
$col .= "checked='checked' "; |
|
$checked = 1; |
|
} |
|
if ($multichoice) { # all resources start checked; see bug 1174 |
|
$col .= "checked='checked' "; |
|
$checked = 1; |
|
} |
} |
} |
$col .= "value='" . $resource_name . "' /></td>"; |
$col .= "value='" . $resource_name . "' /></td>"; |
|
|