[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);