[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.39 and 1.40

version 1.39, 2002/05/29 17:57:52 version 1.40, 2002/05/30 13:08:34
Line 85  sub ExtractStudentData { Line 85  sub ExtractStudentData {
             substr($rowlabels[$index].              substr($rowlabels[$index].
             '                                                        ',0,45).' ! ';              '                                                        ',0,45).' ! ';
   
       my($checkForError)=keys (%result);
       if($checkForError =~ /^(con_lost|error|no_such_host)/i) {
    my $PrTot = sprintf( "%5d", $ProbTotal );
    my $PrSvd = sprintf( "%5d", $ProbSolved );
    $Str .= ' '.'<font color="#000088">'.$PrSvd.'  /'.$PrTot.'</font> ';
    return $Str;
       }
   
     $ProbNo = 0;      $ProbNo = 0;
     $ProbTotal = 0;      $ProbTotal = 0;
     $ProbSolved = 0;      $ProbSolved = 0;
Line 229  sub usection { Line 237  sub usection {
     $courseid=~s/^(\w)/\/$1/;      $courseid=~s/^(\w)/\/$1/;
   
     my %result=&Apache::lonnet::dump('roles',$udom,$unam);      my %result=&Apache::lonnet::dump('roles',$udom,$unam);
   
       my($checkForError)=keys (%result);
       if($checkForError =~ /^(con_lost|error|no_such_host)/i) {
    return -1;
       }
   
     foreach my $key (keys (%result)) {      foreach my $key (keys (%result)) {
  my $value = $result{$key};   my $value = $result{$key};
         if ($key=~/^$courseid(?:\/)*(\w+)*\_st$/) {          if ($key=~/^$courseid(?:\/)*(\w+)*\_st$/) {
Line 267  sub BuildChart { Line 281  sub BuildChart {
         my ($cdom,$cnum)=split(/\_/,$cid);          my ($cdom,$cnum)=split(/\_/,$cid);
 # ---------------------------------------------- Read class list and row labels  # ---------------------------------------------- Read class list and row labels
  my %classlist=&Apache::lonnet::dump('classlist',$cdom,$cnum);   my %classlist=&Apache::lonnet::dump('classlist',$cdom,$cnum);
  my $now=time;  
  foreach my $name (keys (%classlist)) {   my($checkForError)=keys (%classlist);
     my $value=$classlist{$name};   if($checkForError =~ /^(con_lost|error|no_such_host)/i) {
     my ($end,$start)=split(/\:/,$value);      $r->print('<h1>Could not access course data</h1>');
     my $active=1;   } else {
     my $Status=$ENV{'form.status'};      my $now=time;
     $Status = ($Status) ? $Status : 'Active';      foreach my $name (keys (%classlist)) {
     if ( ( ($end) && $now > $end ) &&    my $value=$classlist{$name};
  ( ($Status eq 'Active') ) ) { $active=0; }   my ($end,$start)=split(/\:/,$value);
     if ( ($Status eq 'Expired') &&    my $active=1;
  ($end == 0 || $now < $end) ) { $active=0; }   my $Status=$ENV{'form.status'};
     if ($active) {   $Status = ($Status) ? $Status : 'Active';
  my $thisindex=$#students+1;   if ( ( ($end) && $now > $end ) && 
  $students[$thisindex]=$name;       ( ($Status eq 'Active') ) ) { $active=0; }
  my ($sname,$sdom)=split(/\:/,$name);   if ( ($Status eq 'Expired') && 
  $PreCol[$thisindex]=$sname.':';       ($end == 0 || $now < $end) ) { $active=0; }
  my $ssec=&usection($sdom,$sname,$cid,$Status);   if ($active) {
  if ($ssec==-1) {      my $thisindex=$#students+1;
     $rowlabels[$thisindex]=      $students[$thisindex]=$name;
  'Data not available: '.$name;      my ($sname,$sdom)=split(/\:/,$name);
  } else {      $PreCol[$thisindex]=$sname.':';
     my %reply=&Apache::lonnet::idrget($sdom,$sname);      my $ssec=&usection($sdom,$sname,$cid,$Status);
     my $reply=&Apache::lonnet::get('environment',      if ($ssec==-1) {
  ['lastname','generation','firstname','middlename'],   $rowlabels[$thisindex]=
  $sdom,$sname);      'Data not available: '.$name;
     #$ssec=(int($ssec)) ? int($ssec) : $ssec;      } else {
     my $sec=sprintf('%3s',$ssec);   my %reply=&Apache::lonnet::idrget($sdom,$sname);
     $rowlabels[$thisindex]=$sec.' '.$reply{$sname}.' ';   my $reply=&Apache::lonnet::get('environment',
     $PreCol[$thisindex] .= $reply.':'.$sec;         ['lastname','generation'
     my $i=0;         ,'firstname'
     foreach (split(/\&/,$reply)) {         ,'middlename'],
  $i++;         $sdom,$sname);
  if ( $_ ne '') {   #$ssec=(int($ssec)) ? int($ssec) : $ssec;
     $rowlabels[$thisindex].=&Apache::lonnet::unescape($_).' ';   my $sec=sprintf('%3s',$ssec);
  }   $rowlabels[$thisindex]=$sec.' '.$reply{$sname}.' ';
  if ($i == 2) {   $PreCol[$thisindex] .= $reply.':'.$sec;
     chop($rowlabels[$thisindex]);   my $i=0;
     $rowlabels[$thisindex].=', ';   foreach (split(/\&/,$reply)) {
       $i++;
       if ( $_ ne '') {
    $rowlabels[$thisindex].=&Apache::lonnet::unescape($_).' ';
       }
       if ($i == 2) {
    chop($rowlabels[$thisindex]);
    $rowlabels[$thisindex].=', ';
       }
  }   }
     }      }
  }   }
Removed from v.1.39  
changed lines
  Added in v.1.40

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