[LON-CAPA-cvs] cvs: loncom /publisher lonretrieve.pm

[albertel]

albertel		Mon May 19 17:53:03 2003 EDT

  Modified files:              
    /loncom/publisher	lonretrieve.pm 
  Log:
  - didn't like )1.problem
  
  
Index: loncom/publisher/lonretrieve.pm
diff -u loncom/publisher/lonretrieve.pm:1.21 loncom/publisher/lonretrieve.pm:1.22
--- loncom/publisher/lonretrieve.pm:1.21	Mon Feb  3 13:03:53 2003
+++ loncom/publisher/lonretrieve.pm	Mon May 19 17:53:03 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to retrieve an old version of a file
 #
-# $Id: lonretrieve.pm,v 1.21 2003/02/03 18:03:53 harris41 Exp $
+# $Id: lonretrieve.pm,v 1.22 2003/05/19 21:53:03 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -77,7 +77,7 @@
     my $filename;
     opendir(DIR,$resdir);
     while ($filename=readdir(DIR)) {
-        if ($filename=~/^$main\.(\d+)\.$suffix$/) {
+        if ($filename=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/) {
 	   my $version=$1;
            my ($rdev,$rino,$rmode,$rnlink,
                 $ruid,$rgid,$rrdev,$rsize,