[BACK]Return to groupsort.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/groupsort.pm between versions 1.16 and 1.20

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");
Removed from v.1.16  
changed lines
  Added in v.1.20

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>