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.25, 2003/12/30 20:47:23
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));