--- rat/lonuserstate.pm 2007/10/29 18:51:00 1.119.2.1 +++ rat/lonuserstate.pm 2007/08/28 01:06:15 1.120 @@ -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.119.2.1 2007/10/29 18:51:00 albertel Exp $ +# $Id: lonuserstate.pm,v 1.120 2007/08/28 01:06:15 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -108,7 +108,9 @@ sub processversionfile { sub loadmap { my $uri=shift; if ($hash{'map_pc_'.$uri}) { - $errtext.=&mt('
Multiple use of sequence/page [_1]! The course will not function properly.',$uri); + $errtext.='

'. + &mt('Multiple use of sequence/page [_1]! The course will not function properly.',''.$uri.''). + '

'; return; } $pc++; @@ -234,9 +236,7 @@ sub loadmap { my $rid=$lpc.'.'.$token->[2]->{'id'}; $hash{'kind_'.$rid}='cond'; - my $condition = $token->[2]->{'value'}; - $condition =~ s/[\n\r]+/ /gs; - push(@cond, $condition); + $cond[$#cond+1]=$token->[2]->{'value'}; $hash{'condid_'.$rid}=$#cond; if ($token->[2]->{'type'}) { $cond[$#cond].=':'.$token->[2]->{'type'}; @@ -350,7 +350,7 @@ sub simplify { sub traceroute { my ($sofar,$rid,$beenhere,$encflag,$hdnflag)=@_; my $newsofar=$sofar=simplify($sofar); - unless ($beenhere=~/\&$rid\&/) { + unless ($beenhere=~/\&\Q$rid\E\&/) { $beenhere.=$rid.'&'; my ($mapid,$resid)=split(/\./,$rid); my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$hash{'src_'.$rid});