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

Diff for /loncom/interface/Attic/lonspreadsheet.pm between versions 1.12 and 1.13

version 1.12, 2000/12/11 16:51:12 version 1.13, 2000/12/11 18:33:24
Line 762  sub rowaassess { Line 762  sub rowaassess {
     my $uhome=&Apache::lonnet::homeserver($uname,$udom);      my $uhome=&Apache::lonnet::homeserver($uname,$udom);
     unless ($uhome eq 'no_host') {       unless ($uhome eq 'no_host') { 
 # -------------------------------------------------------------- Get coursedata  # -------------------------------------------------------------- Get coursedata
       unless ($courserdatas{$ENV{'request.course.id'}}) {        unless
           ((time-$courserdatas{$ENV{'request.course.id'}.'.last_cache'})<120) {
          my $reply=&Apache::lonnet::reply('dump:'.           my $reply=&Apache::lonnet::reply('dump:'.
               $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'.                $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'.
               $ENV{'course.'.$ENV{'request.course.id'}.'.num'}.':resourcedata',                $ENV{'course.'.$ENV{'request.course.id'}.'.num'}.':resourcedata',
               $ENV{'course.'.$ENV{'request.course.id'}.'.home'});                $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
          if ($reply!~/^error\:/) {           if ($reply!~/^error\:/) {
             $courserdatas{$ENV{'request.course.id'}}=$reply;              $courserdatas{$ENV{'request.course.id'}}=$reply;
               $courserdatas{$ENV{'request.course.id'}.'.last_cache'}=time;
          }           }
       }        }
       map {        map {
Line 777  sub rowaassess { Line 779  sub rowaassess {
                     &Apache::lonnet::unescape($value);                        &Apache::lonnet::unescape($value);  
       } split(/\&/,$courserdatas{$ENV{'request.course.id'}});        } split(/\&/,$courserdatas{$ENV{'request.course.id'}});
 # --------------------------------------------------- Get userdata (if present)  # --------------------------------------------------- Get userdata (if present)
       unless ($userrdatas{$uname.'___'.$udom}) {        unless
           ((time-$userrdatas{$uname.'___'.$udom.'.last_cache'})<120) {
          my $reply=           my $reply=
        &Apache::lonnet::reply('dump:'.$udom.':'.$uname.':resourcedata',$uhome);         &Apache::lonnet::reply('dump:'.$udom.':'.$uname.':resourcedata',$uhome);
          if ($reply!~/^error\:/) {           if ($reply!~/^error\:/) {
      $userrdatas{$uname.'___'.$udom}=$reply;       $userrdatas{$uname.'___'.$udom}=$reply;
        $userrdatas{$uname.'___'.$udom.'.last_cache'}=time;
          }           }
       }        }
       map {        map {
Removed from v.1.12  
changed lines
  Added in v.1.13

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