[BACK]Return to lonuserstate.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonuserstate.pm between versions 1.47 and 1.49

version 1.47, 2002/11/18 15:17:56 version 1.49, 2003/02/03 18:03:53
Line 40 Line 40
 # 11/1,11/2,11/14,11/16,11/22,12/28,  # 11/1,11/2,11/14,11/16,11/22,12/28,
 # YEAR=2001  # YEAR=2001
 # 07/05/01,08/30,08/31 Gerd Kortemeyer  # 07/05/01,08/30,08/31 Gerd Kortemeyer
 # 12/16 Scott Harrison  
 #  #
 ###  ###
   
Line 278  sub traceroute { Line 277  sub traceroute {
     $sofar=simplify($sofar);      $sofar=simplify($sofar);
     unless ($beenhere=~/\&$rid\&/) {      unless ($beenhere=~/\&$rid\&/) {
        $beenhere.=$rid.'&';           $beenhere.=$rid.'&';  
        if (($retfurl eq '') && ($hash{'src_'.$rid})) {         if (($retfurl eq '') && ($hash{'src_'.$rid})
           && ($hash{'src_'.$rid}!~/\.sequence$/)) {
            my ($mapid,$resid)=split(/\./,$rid);             my ($mapid,$resid)=split(/\./,$rid);
            $retfurl=$hash{'src_'.$rid}.             $retfurl=$hash{'src_'.$rid}.
            (($hash{'src_'.$rid}=~/\?/)?'&':'?').'symb='.             (($hash{'src_'.$rid}=~/\?/)?'&':'?').'symb='.
Line 492  sub readmap { Line 492  sub readmap {
         &pickrandom();          &pickrandom();
     }      }
 # ------------------------------------------------------------ Version tracking  # ------------------------------------------------------------ Version tracking
     if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {  #    if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
  &Apache::lonnet::logthis('Will be version tracking');  # &Apache::lonnet::logthis('Will be version tracking');
     }  #    }
     unless ((untie(%hash)) && (untie(%parmhash))) {      unless ((untie(%hash)) && (untie(%parmhash))) {
       &Apache::lonnet::logthis("<font color=blue>WARNING: ".        &Apache::lonnet::logthis("<font color=blue>WARNING: ".
                        "Could not untie coursemap $fn for $uri.</font>");                          "Could not untie coursemap $fn for $uri.</font>"); 
Line 522  sub readmap { Line 522  sub readmap {
     $retfurl='/adm/email?critical=display';      $retfurl='/adm/email?critical=display';
         }          }
     }      }
   
   
    return ($retfurl,$errtext);     return ($retfurl,$errtext);
 }  }
   
Removed from v.1.47  
changed lines
  Added in v.1.49

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