[LON-CAPA-cvs] cvs: loncom /interface lonindexer.pm /publisher lonpublisher.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Fri, 14 Mar 2003 16:12:15 -0000
albertel Fri Mar 14 11:12:15 2003 EDT
Modified files:
/loncom/interface lonindexer.pm
/loncom/publisher lonpublisher.pm
Log:
- trying to use a file named ).problem
Index: loncom/interface/lonindexer.pm
diff -u loncom/interface/lonindexer.pm:1.61 loncom/interface/lonindexer.pm:1.62
--- loncom/interface/lonindexer.pm:1.61 Thu Feb 20 14:41:26 2003
+++ loncom/interface/lonindexer.pm Fri Mar 14 11:12:14 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Directory Indexer
#
-# $Id: lonindexer.pm,v 1.61 2003/02/20 19:41:26 www Exp $
+# $Id: lonindexer.pm,v 1.62 2003/03/14 16:12:14 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -519,7 +519,7 @@
my $fext = pop @fileparts;
my $ov = pop @fileparts;
my $fname = join ('.',@fileparts,$fext);
- next if (grep /$fname/,@list and $ov =~ /\d+/);
+ next if (grep /\Q$fname\E/,@list and $ov =~ /\d+/);
}
}
@@ -739,7 +739,7 @@
(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn');
#
$r->print("<tr bgcolor=$fileclr><td nowrap valign='bottom'>");
- my $metafile = grep /^$filecom[0]\.meta\&/, @list;
+ my $metafile = grep /^\Q$filecom[0]\E\.meta\&/, @list;
my $title;
if ($ENV{'form.catalogmode'} eq 'interactive') {
$title=$listname;
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.117 loncom/publisher/lonpublisher.pm:1.118
--- loncom/publisher/lonpublisher.pm:1.117 Fri Mar 14 11:02:49 2003
+++ loncom/publisher/lonpublisher.pm Fri Mar 14 11:12:14 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Publication Handler
#
-# $Id: lonpublisher.pm,v 1.117 2003/03/14 16:02:49 albertel Exp $
+# $Id: lonpublisher.pm,v 1.118 2003/03/14 16:12:14 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -436,7 +436,7 @@
my $srcf=$2;
opendir(DIR,$1);
while ($filename=readdir(DIR)) {
- if ($filename=~/$srcf\.(\w+)$/) {
+ if ($filename=~/\Q$srcf\E\.(\w+)$/) {
my $subhost=$1;
if (($subhost ne 'meta' && $subhost ne 'subscription') &&
($subhost ne $Apache::lonnet::perlvar{'lonHostID'})) {
@@ -1315,7 +1315,7 @@
unlink($srcd.'/'.$filename);
unlink($srcd.'/'.$filename.'.meta');
} else {
- if ($filename=~/$srcf\.(\d+)\.$srct$/) {
+ if ($filename=~/\Q$srcf\E\.(\d+)\.\Q$srct\E$/) {
$maxversion=($1>$maxversion)?$1:$maxversion;
}
}