[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm
albertel
lon-capa-cvs-allow@mail.lon-capa.org
Fri, 10 Aug 2007 22:14:54 -0000
albertel Fri Aug 10 18:14:54 2007 EDT
Modified files:
/loncom/lonnet/perl lonnet.pm
Log:
- BUG#5348 enable &EXT('resource.filename');
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.904 loncom/lonnet/perl/lonnet.pm:1.905
--- loncom/lonnet/perl/lonnet.pm:1.904 Wed Aug 8 18:24:34 2007
+++ loncom/lonnet/perl/lonnet.pm Fri Aug 10 18:14:54 2007
@@ -1,7 +1,7 @@
# The LearningOnline Network
# TCP networking package
#
-# $Id: lonnet.pm,v 1.904 2007/08/08 22:24:34 albertel Exp $
+# $Id: lonnet.pm,v 1.905 2007/08/10 22:14:54 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -6317,6 +6317,12 @@
my ($map) = &decode_symb($symbparm);
return &symbread($map);
}
+ if ($space eq 'filename') {
+ if ($symbparm) {
+ return &clutter((&decode_symb($symbparm))[2]);
+ }
+ return &hreflocation('',$env{'request.filename'});
+ }
my ($section, $group, @groups);
my ($courselevelm,$courselevel);