[LON-CAPA-cvs] cvs: loncom /interface londocs.pm rat lonratsrv.pm

[albertel]

albertel		Mon Oct 31 13:52:23 2005 EDT

  Modified files:              
    /rat	lonratsrv.pm 
    /loncom/interface	londocs.pm 
  Log:
  - : in filename (BUG#4432)
  
  
Index: rat/lonratsrv.pm
diff -u rat/lonratsrv.pm:1.33 rat/lonratsrv.pm:1.34
--- rat/lonratsrv.pm:1.33	Mon Sep 26 15:47:52 2005
+++ rat/lonratsrv.pm	Mon Oct 31 13:52:10 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Server for RAT Maps
 #
-# $Id: lonratsrv.pm,v 1.33 2005/09/26 19:47:52 albertel Exp $
+# $Id: lonratsrv.pm,v 1.34 2005/10/31 18:52:10 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -38,6 +38,7 @@
 
 sub qtescape {
     my $str=shift;
+    $str=~s/\:/\:/g;
     $str=~s/\&\#58\;/\:/g;
     $str=~s/\&\#39\;/\'/g;
     $str=~s/\&\#44\;/\,/g;
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.206 loncom/interface/londocs.pm:1.207
--- loncom/interface/londocs.pm:1.206	Tue Sep 20 03:52:03 2005
+++ loncom/interface/londocs.pm	Mon Oct 31 13:52:22 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.206 2005/09/20 07:52:03 albertel Exp $
+# $Id: londocs.pm,v 1.207 2005/10/31 18:52:22 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1215,6 +1215,8 @@
         $r->print('<table>');
         foreach (@Apache::lonratedt::order) {
            my ($name,$url)=split(/\:/,$Apache::lonratedt::resources[$_]);
+	   $name=&Apache::lonratsrv::qtescape($name);
+	   $url=&Apache::lonratsrv::qtescape($url);
            unless ($name) {  $name=(split(/\//,$url))[-1]; }
            unless ($name) { $idx++; next; }
            $r->print(&entryline($idx,$name,$url,$folder,$allowed,$_,$coursenum));