");
$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("");
$r->print(" | ");
$r->print("$thash{$key} | \n");
$r->print("$key |
\n");
}
}
if ($clen > 1) {
$r->print("