version 1.22, 2003/05/07 18:48:15
|
version 1.24, 2003/05/08 19:17:31
|
Line 949 sub start_choices {
|
Line 949 sub start_choices {
|
} |
} |
|
|
# Need to initialize the choices list, so everything can assume it exists |
# Need to initialize the choices list, so everything can assume it exists |
$paramHash->{'variable'} = $token->[2]{'variable'}; |
$paramHash->{'variable'} = $token->[2]{'variable'} if (!defined($paramHash->{'variable'})); |
$helper->declareVar($paramHash->{'variable'}); |
$helper->declareVar($paramHash->{'variable'}); |
$paramHash->{'multichoice'} = $token->[2]{'multichoice'}; |
$paramHash->{'multichoice'} = $token->[2]{'multichoice'}; |
$paramHash->{CHOICES} = []; |
$paramHash->{CHOICES} = []; |
Line 1866 SCRIPT
|
Line 1866 SCRIPT
|
<br /> |
<br /> |
<input type="button" onclick="checkall(true, '$var')" value="Select All Files" /> |
<input type="button" onclick="checkall(true, '$var')" value="Select All Files" /> |
<input type="button" onclick="checkall(false, '$var')" value="Unselect All Files" /> |
<input type="button" onclick="checkall(false, '$var')" value="Unselect All Files" /> |
|
BUTTONS |
|
|
|
if ($helper->{VARS}->{'construction'}) { |
|
$buttons .= <<BUTTONS; |
<input type="button" onclick="checkallclass(true, 'Published')" value="Select All Published" /> |
<input type="button" onclick="checkallclass(true, 'Published')" value="Select All Published" /> |
<input type="button" onclick="checkallclass(false, 'Published')" value="Unselect All Published" /> |
<input type="button" onclick="checkallclass(false, 'Published')" value="Unselect All Published" /> |
<br /> |
<br /> |
BUTTONS |
BUTTONS |
|
} |
} |
} |
|
|
# Get the list of files in this directory. |
# Get the list of files in this directory. |
Line 1904 BUTTONS
|
Line 1909 BUTTONS
|
} |
} |
my $fileName = $subdir .'/'. $file; |
my $fileName = $subdir .'/'. $file; |
if (&$filterFunc($file)) { |
if (&$filterFunc($file)) { |
(my $status, my $color) = @{fileState($subdir, $file)}; |
my $status; |
|
my $color; |
|
if ($helper->{VARS}->{'construction'}) { |
|
($status, $color) = @{fileState($subdir, $file)}; |
|
} else { |
|
$status = ''; |
|
$color = ''; |
|
} |
|
|
# Netscape 4 is stupid and there's nowhere to put the |
# Netscape 4 is stupid and there's nowhere to put the |
# information on the input tag that the file is Published, |
# information on the input tag that the file is Published, |
Line 1920 BUTTONS
|
Line 1932 BUTTONS
|
# couldn't figure out how to reach into the event handler's |
# couldn't figure out how to reach into the event handler's |
# actual code to retreive a value), but it works well enough |
# actual code to retreive a value), but it works well enough |
# here. |
# here. |
|
|
my $onclick = ''; |
my $onclick = ''; |
if ($status eq 'Published') { |
if ($status eq 'Published' && $helper->{VARS}->{'construction'}) { |
$onclick = 'onclick="a=1" '; |
$onclick = 'onclick="a=1" '; |
} |
} |
$result .= '<tr><td align="right"' . " bgcolor='$color'>" . |
$result .= '<tr><td align="right"' . " bgcolor='$color'>" . |