");
- $r->print(&movers($clen,$ctr));
+ if ($env{'form.readfile'}) {
+ $r->print(&checkbox($ctr-1));
+ } else {
+ $r->print(&movers($clen,$ctr));
+ }
}
$r->print(&hidden($ctr-1,$thash{$key},$key));
if ($clen > 1) {
- $r->print(" | ");
- $r->print(&select_box($clen,$ctr));
- $r->print(" | ");
+ $r->print(" | ");
+ unless ($env{'form.readfile'}) {
+ $r->print("".
+ &select_box($clen,$ctr).
+ " | ");
+ }
+ $r->print("");
$r->print("");
$r->print(" | ");
- $r->print("$thash{$key} | \n");
+ $r->print("$thash{$key}$nhash{$key} | \n");
$r->print("$key |
\n");
}
}
@@ -465,7 +496,7 @@ sub select_box {
my $string;
$string = '