--- rat/lonuserstate.pm 2001/12/17 00:57:59 1.26 +++ rat/lonuserstate.pm 2002/06/17 16:40:24 1.28 @@ -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.26 2001/12/17 00:57:59 harris41 Exp $ +# $Id: lonuserstate.pm,v 1.28 2002/06/17 16:40:24 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -233,7 +233,9 @@ sub loadmap { } else { $hash{'param_'.$referid}=''.$newparam; } - + if ($token->[2]->{'name'} eq 'mapalias') { + $hash{'mapalias_'.$token->[2]->{'value'}}=$referid; + } } } @@ -370,8 +372,10 @@ sub accinit { if ($acchash{'acc.res.'.$short.'.'.$uripath}=~ /(\&$urifile\:[^\&]*)/) { my $replace=$1; + my $regexp=$replace; + $regexp=~s/\|/\\\|/g; $acchash{'acc.res.'.$short.'.'.$uripath} - =~s/$replace/$replace\|$uricond/; + =~s/$regexp/$replace\|$uricond/; } else { $acchash{'acc.res.'.$short.'.'.$uripath}.= $urifile.':'.$uricond.'&';