");
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(" | ");
unless ($env{'form.readfile'}) {
$r->print("".
&select_box($clen,$ctr).
" | ");
}
$r->print("");
$r->print("");
$r->print(" | ");
$r->print("$thash{$key}$nhash{$key} | \n");
$r->print("$key |
\n");
}
}
if ($clen > 1) {
$r->print("