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

Diff for /loncom/interface/lonnavmaps.pm between versions 1.25 and 1.27

version 1.25, 2002/02/11 18:59:36 version 1.27, 2002/02/28 19:45:14
Line 186  sub astatus { Line 186  sub astatus {
     $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});
     $Apache::lonxml::debug=1;  
     my %duedate=();      my %duedate=();
     my %opendate=();      my %opendate=();
     my %answerdate=();      my %answerdate=();
Line 331  sub tracetable { Line 330  sub tracetable {
        if (defined($hash{'to_'.$rid})) {         if (defined($hash{'to_'.$rid})) {
   my $mincond=1;    my $mincond=1;
           my $next='';            my $next='';
           map {            foreach (split(/\,/,$hash{'to_'.$rid})) {
               my $thiscond=                my $thiscond=
       &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}});        &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}});
               if ($thiscond>=$mincond) {                if ($thiscond>=$mincond) {
Line 342  sub tracetable { Line 341  sub tracetable {
   }    }
                   if ($thiscond>$mincond) { $mincond=$thiscond; }                    if ($thiscond>$mincond) { $mincond=$thiscond; }
       }        }
           } split(/\,/,$hash{'to_'.$rid});            }
           map {            foreach (split(/\,/,$next)) {
               my ($linkid,$condval)=split(/\:/,$_);                my ($linkid,$condval)=split(/\:/,$_);
               if ($condval>=$mincond) {                if ($condval>=$mincond) {
                 my $now=&tracetable($sofar,$hash{'goesto_'.$linkid},$beenhere);                  my $now=&tracetable($sofar,$hash{'goesto_'.$linkid},$beenhere);
                 if ($now>$further) { $further=$now; }                  if ($now>$further) { $further=$now; }
       }        }
           } split(/\,/,$next);            }
   
        }         }
     }      }
Line 413  sub handler { Line 412  sub handler {
             $courserdatas{$cid.'.last_cache'}=time;              $courserdatas{$cid.'.last_cache'}=time;
          }           }
       }        }
       map {        foreach (split(/\&/,$courserdatas{$cid})) {
          my ($name,$value)=split(/\=/,$_);           my ($name,$value)=split(/\=/,$_);
          $courseopt{$userprefix.&Apache::lonnet::unescape($name)}=           $courseopt{$userprefix.&Apache::lonnet::unescape($name)}=
                     &Apache::lonnet::unescape($value);                      &Apache::lonnet::unescape($value);
       } split(/\&/,$courserdatas{$cid});        }
 # --------------------------------------------------- Get userdata (if present)  # --------------------------------------------------- Get userdata (if present)
       unless        unless
         ((time-$userrdatas{$uname.'___'.$udom.'.last_cache'})<240) {          ((time-$userrdatas{$uname.'___'.$udom.'.last_cache'})<240) {
Line 428  sub handler { Line 427  sub handler {
      $userrdatas{$uname.'___'.$udom.'.last_cache'}=time;       $userrdatas{$uname.'___'.$udom.'.last_cache'}=time;
          }           }
       }        }
       map {        foreach (split(/\&/,$userrdatas{$uname.'___'.$udom})) {
          my ($name,$value)=split(/\=/,$_);           my ($name,$value)=split(/\=/,$_);
          $useropt{$userprefix.&Apache::lonnet::unescape($name)}=           $useropt{$userprefix.&Apache::lonnet::unescape($name)}=
           &Apache::lonnet::unescape($value);            &Apache::lonnet::unescape($value);
       } split(/\&/,$userrdatas{$uname.'___'.$udom});        }
     }      }
   
                   @rows=();                    @rows=();
Removed from v.1.25  
changed lines
  Added in v.1.27

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