version 1.16, 2002/09/16 20:57:28
|
version 1.20, 2003/06/13 23:33:38
|
Line 27
|
Line 27
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# YEAR=2001 |
# YEAR=2001 |
# 8/7,8/8,10/14,10/15,12/10 Scott Harrison |
|
# YEAR=2002 |
# YEAR=2002 |
# 1/17 Scott Harrison |
|
# |
# |
### |
### |
|
|
Line 44 use Apache::loncommon;
|
Line 42 use Apache::loncommon;
|
my %hash; # variable to tie to user specific database |
my %hash; # variable to tie to user specific database |
my $iconpath; # variable to be accessible to multiple subroutines |
my $iconpath; # variable to be accessible to multiple subroutines |
|
|
|
sub cleanup { |
|
if (tied(%hash)){ |
|
&Apache::lonnet::logthis('Cleanup groupsort: hash'); |
|
unless (untie(%hash)) { |
|
&Apache::lonnet::logthis('Failed cleanup groupsort: hash'); |
|
} |
|
} |
|
} |
|
|
# ---------------------------------------------------------------- Main Handler |
# ---------------------------------------------------------------- Main Handler |
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 324 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"); |