loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.24, 2003/10/07 20:30:13	version 1.26, 2004/01/19 18:17:29
Line 351 END	Line 351 END
foreach (sort {$shash{$a}<=>$shash{$b}} (keys %shash)) {	foreach (sort {$shash{$a}<=>$shash{$b}} (keys %shash)) {
my $key=$_;	my $key=$_;
$ctr++;	$ctr++;
my @file_ext = split(/\./,$key);	my $iconname=&Apache::loncommon::icon($key);
my $curfext = $file_ext[scalar(@file_ext)-1];
my $iconname="unknown.gif";
my $embstyle = &Apache::loncommon::fileembstyle($curfext);
# The unless conditional that follows is a bit of overkill
$iconname = $curfext.".gif" unless
(!defined($embstyle) \|\| $embstyle eq 'unk' \|\| $embstyle eq 'hdn');
if ($clen > 1) {	if ($clen > 1) {
$r->print("<tr><td bgcolor='$fileclr'>");	$r->print("<tr><td bgcolor='$fileclr'>");
$r->print(&movers($clen,$ctr));	$r->print(&movers($clen,$ctr));
Line 367 END	Line 361 END
$r->print("</td><td bgcolor='$fileclr'>");	$r->print("</td><td bgcolor='$fileclr'>");
$r->print(&select_box($clen,$ctr));	$r->print(&select_box($clen,$ctr));
$r->print("</td><td bgcolor='$fileclr'>");	$r->print("</td><td bgcolor='$fileclr'>");
$r->print("<img src='$iconpath$iconname'>");	$r->print("<img src='$iconname' />");
$r->print("</td><td bgcolor='$fileclr'>");	$r->print("</td><td bgcolor='$fileclr'>");
$r->print("$thash{$key}</td><td bgcolor='$fileclr'>\n");	$r->print("$thash{$key}</td><td bgcolor='$fileclr'>\n");
$r->print("$key</td></tr>\n");	$r->print("$key</td></tr>\n");