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

Diff for /loncom/interface/lonnavmaps.pm between versions 1.47 and 1.49

version 1.47, 2002/09/03 20:46:30 version 1.49, 2002/09/09 16:40:01
Line 195  sub astatus { Line 195  sub astatus {
     my %opendate=();      my %opendate=();
     my %answerdate=();      my %answerdate=();
     # need to always check part 0's open/due/answer status      # need to always check part 0's open/due/answer status
     foreach (sort(split(/\,/,&Apache::lonnet::metadata($hash{'src_'.$rid},'keys')))) {      foreach (sort(split(/\,/,&Apache::lonnet::metadata($hash{'src_'.$rid},'allpossiblekeys')))) {
         if ($_=~/^parameter\_(.*)\_opendate$/) {          if ($_=~/^parameter\_(.*)\_opendate$/) {
     my $part=$1;      my $part=$1;
             $duedate{$part}=&parmval($part.'.duedate',$symb);              $duedate{$part}=&parmval($part.'.duedate',$symb);
             $opendate{$part}=&parmval($part.'.opendate',$symb);              $opendate{$part}=&parmval($part.'.opendate',$symb);
             $answerdate{$part}=&parmval($part.'.answerdate',$symb);              $answerdate{$part}=&parmval($part.'.answerdate',$symb);
               if (&parmval($part.'.opendate.type',$symb) eq 'date_interval') {
    $opendate{$part}=$duedate{$part}-$opendate{$part};
               }
               if (&parmval($part,'.answerdate.type',$symb) eq 'date_interval') {
                   $answerdate{$part}=$duedate{$part}+$answerdate{$part};
               }
         }          }
     }      }
     my $now=time;      my $now=time;
Line 464  sub handler { Line 470  sub handler {
  my $userprefix=$uname.'_'.$udom.'_';   my $userprefix=$uname.'_'.$udom.'_';
   
  unless ($uhome eq 'no_host') {    unless ($uhome eq 'no_host') { 
 # -------------------------------------------------------------- Get coursedata  # ------------------------------------------------- Get coursedata (if present)
     unless ((time-$courserdatas{$cid.'.last_cache'})<240) {      unless ((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);
Line 472  sub handler { Line 478  sub handler {
     $courserdatas{$cid}=$reply;      $courserdatas{$cid}=$reply;
     $courserdatas{$cid.'.last_cache'}=time;      $courserdatas{$cid.'.last_cache'}=time;
  }   }
  else   # check to see if network failed
    elsif ( $reply=~/no.such.host/i || $reply=~/con.*lost/i )
  {   {
     $networkFailedFlag = 1;      $networkFailedFlag = 1;
  }   }
Removed from v.1.47  
changed lines
  Added in v.1.49

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