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

Diff for /loncom/interface/Attic/lonchart.pm between versions 1.33 and 1.35

version 1.33, 2002/02/28 23:14:57 version 1.35, 2002/02/28 23:35:31
Line 257  sub usection { Line 257  sub usection {
     my ($udom,$unam,$courseid)=@_;      my ($udom,$unam,$courseid)=@_;
     $courseid=~s/\_/\//g;      $courseid=~s/\_/\//g;
     $courseid=~s/^(\w)/\/$1/;      $courseid=~s/^(\w)/\/$1/;
     map {      foreach (split(/\&/,&Apache::lonnet::reply('dump:'.
                $udom.':'.$unam.':roles',
                &Apache::lonnet::homeserver($unam,$udom)))){
         my ($key,$value)=split(/\=/,$_);          my ($key,$value)=split(/\=/,$_);
         $key=&Apache::lonnet::unescape($key);          $key=&Apache::lonnet::unescape($key);
         if ($key=~/^$courseid(?:\/)*(\w+)*\_st$/) {          if ($key=~/^$courseid(?:\/)*(\w+)*\_st$/) {
Line 269  sub usection { Line 271  sub usection {
 #            $r->print($unam.'...'.$section.'<br>');  #            $r->print($unam.'...'.$section.'<br>');
     return $section;      return $section;
         }          }
     } split(/\&/,&Apache::lonnet::reply('dump:'.$udom.':'.$unam.':roles',      }
                         &Apache::lonnet::homeserver($unam,$udom)));      #} split(/\&/,&Apache::lonnet::reply('dump:'.$udom.':'.$unam.':roles',
       #                    &Apache::lonnet::homeserver($unam,$udom)));
     return '';      return '';
 }  }
   
Line 384  sub CreateForm { Line 387  sub CreateForm {
 }  }
   
 sub CacheChart {  sub CacheChart {
     my @list = ();      my %list = ();
     my $count=0;      my $count=0;
   
     my $Pos = $ENV{'form.sort'};      my $Pos = $ENV{'form.sort'};
Line 395  sub CacheChart { Line 398  sub CacheChart {
     foreach my $key( keys %CachData) {       foreach my $key( keys %CachData) { 
  my @Temp=split(/\:/,$key);   my @Temp=split(/\:/,$key);
  my $Use = $Temp[$Pos];   my $Use = $Temp[$Pos];
  $list[$count]=$Use.$key.'*'.$CachData{$key};   $list{$Use.$key}=$key;
  $count++;   $count++;
     }      }
   
     @list = sort (@list);      my @order = sort(keys(%list));
   
     $r->print('<h3>'.$count.' students</h3>');      $r->print('<h3>'.$count.' students</h3>');
     &CreateForm();      &CreateForm();
Line 407  sub CacheChart { Line 410  sub CacheChart {
           
     $r->print('<p><pre>');      $r->print('<p><pre>');
     for ( my $n; $n < $count; $n++) {      for ( my $n; $n < $count; $n++) {
  my ($dummy, $Line) = split(/\*/,$list[$n]);   $r->print($CachData{$list{$order[$n]}}.'<br>');
  $r->print($Line.'<br>');  
     }      }
     $r->print('</pre>');      $r->print('</pre>');
 }  }
Removed from v.1.33  
changed lines
  Added in v.1.35

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