[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm
matthew
lon-capa-cvs@mail.lon-capa.org
Mon, 07 Oct 2002 20:24:39 -0000
matthew Mon Oct 7 16:24:39 2002 EDT
Modified files:
/loncom/lonnet/perl lonnet.pm
Log:
- there is metadata in /res/adm/includes
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.292 loncom/lonnet/perl/lonnet.pm:1.293
--- loncom/lonnet/perl/lonnet.pm:1.292 Mon Oct 7 09:50:36 2002
+++ loncom/lonnet/perl/lonnet.pm Mon Oct 7 16:24:38 2002
@@ -1,7 +1,7 @@
# The LearningOnline Network
# TCP networking package
#
-# $Id: lonnet.pm,v 1.292 2002/10/07 13:50:36 www Exp $
+# $Id: lonnet.pm,v 1.293 2002/10/07 20:24:38 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2838,8 +2838,8 @@
$uri=&declutter($uri);
# if it is a non metadata possible uri return quickly
- if (($uri eq '') || ($uri =~ m|^/*adm/|) || ($uri =~ m|/$|) ||
- ($uri =~ m|/.meta$|)) {
+ if (($uri eq '') || (($uri =~ m|^/*adm/|) && ($uri !~ m|^adm/includes|)) ||
+ ($uri =~ m|/$|) || ($uri =~ m|/.meta$|)) {
return '';
}
my $filename=$uri;