[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.31 and 1.32

version 1.31, 2001/01/02 22:58:46 version 1.32, 2001/01/02 23:27:11
Line 1191  sub loadcourse { Line 1191  sub loadcourse {
    my $row=$1;     my $row=$1;
            unless (($f{$_}=~/^\!/)             unless (($f{$_}=~/^\!/)
   
 || ($row>25))  || ($row>200))
   
  {   {
       my @studentdata=&exportsheet(&getuname($safeeval),        my @studentdata=&exportsheet(&getuname($safeeval),
                                            &getudom($safeeval),                                             &getudom($safeeval),
                                            'studentcalc');                                             'studentcalc');
                 undef %userrdatas; 
               my $index=0;                my $index=0;
               map {                map {
                   if ($studentdata[$index]) {                    if ($studentdata[$index]) {
Line 1260  sub loadassessment { Line 1261  sub loadassessment {
     unless ($uhome eq 'no_host') {       unless ($uhome eq 'no_host') { 
 # -------------------------------------------------------------- Get coursedata  # -------------------------------------------------------------- Get coursedata
       unless        unless
         ((time-$courserdatas{$cid.'.last_cache'})<120) {          ((time-$courserdatas{$cid.'.last_cache'})<240) {
          my $reply=&Apache::lonnet::reply('dump:'.$cdom.':'.$cnum.           my $reply=&Apache::lonnet::reply('dump:'.$cdom.':'.$cnum.
               ':resourcedata',$chome);                ':resourcedata',$chome);
          if ($reply!~/^error\:/) {           if ($reply!~/^error\:/) {
Line 1275  sub loadassessment { Line 1276  sub loadassessment {
       } split(/\&/,$courserdatas{$ENV{'request.course.id'}});        } split(/\&/,$courserdatas{$ENV{'request.course.id'}});
 # --------------------------------------------------- Get userdata (if present)  # --------------------------------------------------- Get userdata (if present)
       unless        unless
         ((time-$userrdatas{$uname.'___'.$udom.'.last_cache'})<120) {          ((time-$userrdatas{$uname.'___'.$udom.'.last_cache'})<240) {
          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\:/) {
Removed from v.1.31  
changed lines
  Added in v.1.32

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