[LON-CAPA-cvs] cvs: loncom / lond

[www]

www		Fri May  7 13:51:58 2004 EDT

  Modified files:              
    /loncom	lond 
  Log:
  \Q\E-ing regular expression - should be ported to other branch
  
  
Index: loncom/lond
diff -u loncom/lond:1.188 loncom/lond:1.189
--- loncom/lond:1.188	Thu Apr 29 06:24:40 2004
+++ loncom/lond	Fri May  7 13:51:58 2004
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.188 2004/04/29 10:24:40 foxr Exp $
+# $Id: lond,v 1.189 2004/05/07 17:51:58 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -53,7 +53,7 @@
 my $status='';
 my $lastlog='';
 
-my $VERSION='$Revision: 1.188 $'; #' stupid emacs
+my $VERSION='$Revision: 1.189 $'; #' stupid emacs
 my $remoteVERSION;
 my $currenthostid;
 my $currentdomainid;
@@ -2623,7 +2623,7 @@
 				    $qresult.=$key.'='.$descr.'&';
 				} else {
 				    my $unescapeVal = &unescape($descr);
-				    if (eval('$unescapeVal=~/$description/i')) {
+				    if (eval('$unescapeVal=~/\Q$description\E/i')) {
 					$qresult.="$key=$descr&";
 				    }
 				}