[LON-CAPA-cvs] cvs: loncom /interface lonhelp.pm
bowersj2
lon-capa-cvs@mail.lon-capa.org
Tue, 29 Jul 2003 15:06:47 -0000
bowersj2 Tue Jul 29 11:06:47 2003 EDT
Modified files:
/loncom/interface lonhelp.pm
Log:
Support separating with colons in addition to commas, for when help
files are specified in comma-delimited files.
Index: loncom/interface/lonhelp.pm
diff -u loncom/interface/lonhelp.pm:1.6 loncom/interface/lonhelp.pm:1.7
--- loncom/interface/lonhelp.pm:1.6 Tue Jul 15 14:50:43 2003
+++ loncom/interface/lonhelp.pm Tue Jul 29 11:06:47 2003
@@ -139,11 +139,15 @@
# of nothing but alphanums, ' ,, or ., or the file
# will be "not found", no matter what.
- return HTTP_NOT_FOUND if ($filenames !~ /\A[-0-9a-zA-z_'',.]+\Z/);
+ return HTTP_NOT_FOUND if ($filenames !~ /\A[-0-9a-zA-z_'',:.]+\Z/);
# Join together the tex files, return HTTP_NOT_FOUND if any of
# them are not found
my $tex = '';
+ # Since in insertlist.tab I want to specify multiple files,
+ # and insertlist.tab also uses commas, I need something else
+ # so replace ! with ,
+ $filenames =~ s/:/,/g;
my @files = split(/,/, $filenames);
for my $filename (@files) {