[LON-CAPA-cvs] cvs: loncom(version_1_1_X) /lonnet/perl lonnet.pm

[albertel]

albertel		Fri Mar 19 11:48:37 2004 EDT

  Modified files:              (Branch: version_1_1_X)
    /loncom/lonnet/perl	lonnet.pm 
  Log:
   - backport the part of 1.479 that fixes BUG#2849
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.459.2.3 loncom/lonnet/perl/lonnet.pm:1.459.2.4
--- loncom/lonnet/perl/lonnet.pm:1.459.2.3	Tue Feb 10 14:23:11 2004
+++ loncom/lonnet/perl/lonnet.pm	Fri Mar 19 11:48:37 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.459.2.3 2004/02/10 19:23:11 albertel Exp $
+# $Id: lonnet.pm,v 1.459.2.4 2004/03/19 16:48:37 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4015,7 +4015,7 @@
       my $olddis=$$metacache{':parameter_'.$allnames{$name}.'_'.$name.
 			     '.display'};
       my $expr='\\[Part: '.$allnames{$name}.'\\]';
-      $olddis=~s/$expr/\[Part: 0\]/;
+      $olddis=~s/\Q$expr\E/\[Part: 0\]/;
       $$metacache{"$key.display"}=$olddis;
     }
 }