[LON-CAPA-cvs] cvs: loncom /xml lonxml.pm

albertel lon-capa-cvs-allow@mail.lon-capa.org
Mon, 16 Apr 2007 18:47:47 -0000


albertel		Mon Apr 16 14:47:47 2007 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  - handle space in urls that are <allow>ed 
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.443 loncom/xml/lonxml.pm:1.444
--- loncom/xml/lonxml.pm:1.443	Fri Apr  6 21:21:59 2007
+++ loncom/xml/lonxml.pm	Mon Apr 16 14:47:46 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.443 2007/04/07 01:21:59 albertel Exp $
+# $Id: lonxml.pm,v 1.444 2007/04/16 18:47:46 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -42,6 +42,7 @@
 use vars 
 qw(@pwd @outputstack $redirection $import @extlinks $metamode $evaluate %insertlist @namespace $errorcount $warningcount);
 use strict;
+use LONCAPA;
 use HTML::LCParser();
 use HTML::TreeBuilder();
 use HTML::Entities();
@@ -1208,7 +1209,7 @@
     my %httpref=();
     foreach (@extlinks) {
        $httpref{'httpref.'.
- 	        &Apache::lonnet::hreflocation($thisdir,$_)}=$thisurl;
+ 	        &Apache::lonnet::hreflocation($thisdir,&unescape($_))}=$thisurl;
     }
     @extlinks=();
     &Apache::lonnet::appenv(%httpref);