--- rat/lonuserstate.pm	2001/12/17 00:57:59	1.26
+++ rat/lonuserstate.pm	2002/06/05 12:52:05	1.27
@@ -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.27 2002/06/05 12:52:05 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -370,8 +370,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.'&';