--- rat/lonuserstate.pm 2002/11/18 15:17:56 1.47 +++ rat/lonuserstate.pm 2003/02/03 18:03:53 1.49 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Construct and maintain state and binary representation of course for user # -# $Id: lonuserstate.pm,v 1.47 2002/11/18 15:17:56 www Exp $ +# $Id: lonuserstate.pm,v 1.49 2003/02/03 18:03:53 harris41 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -40,7 +40,6 @@ # 11/1,11/2,11/14,11/16,11/22,12/28, # YEAR=2001 # 07/05/01,08/30,08/31 Gerd Kortemeyer -# 12/16 Scott Harrison # ### @@ -278,7 +277,8 @@ sub traceroute { $sofar=simplify($sofar); unless ($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); $retfurl=$hash{'src_'.$rid}. (($hash{'src_'.$rid}=~/\?/)?'&':'?').'symb='. @@ -492,9 +492,9 @@ sub readmap { &pickrandom(); } # ------------------------------------------------------------ Version tracking - if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { - &Apache::lonnet::logthis('Will be version tracking'); - } +# if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { +# &Apache::lonnet::logthis('Will be version tracking'); +# } unless ((untie(%hash)) && (untie(%parmhash))) { &Apache::lonnet::logthis("WARNING: ". "Could not untie coursemap $fn for $uri."); @@ -522,8 +522,6 @@ sub readmap { $retfurl='/adm/email?critical=display'; } } - - return ($retfurl,$errtext); }