loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.19, 2003/02/03 18:03:52	version 1.20, 2003/06/13 23:33:38
Line 331 END	Line 331 END
$ctr++;	$ctr++;
my @file_ext = split(/\./,$key);	my @file_ext = split(/\./,$key);
my $curfext = $file_ext[scalar(@file_ext)-1];	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');
$r->print("<tr><td bgcolor='$fileclr'>");	$r->print("<tr><td bgcolor='$fileclr'>");
$r->print(&movers($clen,$ctr));	$r->print(&movers($clen,$ctr));
$r->print(&hidden($ctr-1,$thash{$key},$key));	$r->print(&hidden($ctr-1,$thash{$key},$key));
$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$curfext.gif'>");	$r->print("<img src='$iconpath$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");