--- rat/lonuserstate.pm 2003/03/02 01:43:01 1.55 +++ rat/lonuserstate.pm 2003/03/17 18:07:09 1.56 @@ -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.55 2003/03/02 01:43:01 www Exp $ +# $Id: lonuserstate.pm,v 1.56 2003/03/17 18:07:09 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -389,7 +389,7 @@ sub accinit { } if (defined($acchash{'acc.res.'.$short.'.'.$uripath})) { if ($acchash{'acc.res.'.$short.'.'.$uripath}=~ - /(\&$urifile\:[^\&]*)/) { + /(\&\Q$urifile\E\:[^\&]*)/) { my $replace=$1; my $regexp=$replace; $regexp=~s/\|/\\\|/g;