version 1.37, 2005/06/10 20:43:10
|
version 1.38, 2005/06/11 01:06:54
|
Line 351 END
|
Line 351 END
|
|
|
my $ctr = 0; |
my $ctr = 0; |
my $clen = scalar(keys %shash); |
my $clen = scalar(keys %shash); |
if ($clen > 1) { |
if (($clen > 1) || ($env{'form.readfile'})) { |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'fin'=> 'Finalize order of resources', |
'fin'=> 'Finalize order of resources', |
'gb' => 'Go Back', |
'gb' => 'Go Back', |
Line 421 END
|
Line 421 END
|
my $key=$_; |
my $key=$_; |
$ctr++; |
$ctr++; |
my $iconname=&Apache::loncommon::icon($key); |
my $iconname=&Apache::loncommon::icon($key); |
if ($clen > 1) { |
if (($clen > 1) || ($env{'form.readfile'})) { |
$r->print("<tr><td bgcolor='$fileclr'>"); |
$r->print("<tr><td bgcolor='$fileclr'>"); |
if ($env{'form.readfile'}) { |
if ($env{'form.readfile'}) { |
$r->print(&checkbox($ctr-1)); |
$r->print(&checkbox($ctr-1)); |
Line 430 END
|
Line 430 END
|
} |
} |
} |
} |
$r->print(&hidden($ctr-1,$thash{$key},$key)); |
$r->print(&hidden($ctr-1,$thash{$key},$key)); |
if ($clen > 1) { |
if (($clen > 1) || ($env{'form.readfile'})) { |
$r->print("</td>"); |
$r->print("</td>"); |
unless ($env{'form.readfile'}) { |
unless ($env{'form.readfile'}) { |
$r->print("<td bgcolor='$fileclr'>". |
$r->print("<td bgcolor='$fileclr'>". |
Line 444 END
|
Line 444 END
|
$r->print("$key</td></tr>\n"); |
$r->print("$key</td></tr>\n"); |
} |
} |
} |
} |
if ($clen > 1) { |
if (($clen > 1) || ($env{'form.readfile'})) { |
$r->print("</table></td></tr></table></form>"); |
$r->print("</table></td></tr></table></form>"); |
} else { |
} else { |
$r->print(<<END); |
$r->print(<<END); |