[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.1 and 1.4

version 1.1, 2001/01/31 23:21:06 version 1.4, 2001/02/06 20:50:04
Line 32  my @students; Line 32  my @students;
 # ------------------------------------------------------------- Find out status  # ------------------------------------------------------------- Find out status
   
 sub astatus {  sub astatus {
     my $rid=shift;      my ($rid,$student)=@_;
       my ($uname,$udom)=split(/\:/,$student);
     my $code=' ';      my $code=' ';
     $rid=~/(\d+)\.(\d+)/;      $rid=~/(\d+)\.(\d+)/;
     my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.      my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.
      &Apache::lonnet::declutter($hash{'src_'.$rid});       &Apache::lonnet::declutter($hash{'src_'.$rid});
     my $answer=&Apache::lonnet::reply(      my $answer=&Apache::lonnet::reply(
               "restore:$ENV{'user.domain'}:$ENV{'user.name'}:".                "restore:$udom:$uname:".
               $ENV{'request.course.id'}.':'.                $ENV{'request.course.id'}.':'.
               &Apache::lonnet::escape($symb),                &Apache::lonnet::escape($symb),
               "$ENV{'user.home'}");                &Apache::lonnet::homeserver($uname,$udom));
     my %returnhash=();      my %returnhash=();
     map {      map {
  my ($name,$value)=split(/\=/,$_);   my ($name,$value)=split(/\=/,$_);
Line 208  sub handler { Line 209  sub handler {
                       'Data not available: '.$name;                        'Data not available: '.$name;
                 } else {                  } else {
                     my %reply=&Apache::lonnet::idrget($sdom,$sname);                      my %reply=&Apache::lonnet::idrget($sdom,$sname);
                     my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname.      my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname.
       ':environment:firstname&middlename&lastname&generation',                                                       ':environment:lastname&generation&firstname&middlename',
                       &Apache::lonnet::homeserver($sname,$sdom));                                                       &Apache::lonnet::homeserver($sname,$sdom));
                     $rowlabels[$thisindex]=                      $rowlabels[$thisindex]=
                       $ssec.' '.$reply{$sname}.' ';                        sprintf('%3s',$ssec).' '.$reply{$sname}.' ';
                       my $i=0;
                     map {                      map {
                      $rowlabels[$thisindex].=&Apache::lonnet::unescape($_).' ';                        $i++;
                         if ( $_ ne '') {
                           $rowlabels[$thisindex].=&Apache::lonnet::unescape($_).' ';
                         }
                         if ($i == 2) {
                           chop($rowlabels[$thisindex]);
                           $rowlabels[$thisindex].=', ';
                         }
                     } split(/\&/,$reply);                      } split(/\&/,$reply);
   
                 }                  }
             }              }
         } sort split(/\&/,$classlst);          } sort split(/\&/,$classlst);
Line 240  sub handler { Line 250  sub handler {
                               $r->print(                                $r->print(
                                        substr($students[$index].                                         substr($students[$index].
        '                                                        ',0,14).' ! '.         '                                                        ',0,14).' ! '.
  substr($rowlabels[$index].                substr($rowlabels[$index].
        '                                                        ',0,45).' ! ');         '                                                        ',0,45).' ! ');
                               map {                                map {
                                   if ($_) {                                    if ($_) {
Removed from v.1.1  
changed lines
  Added in v.1.4

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