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

raeburn lon-capa-cvs@mail.lon-capa.org
Sat, 11 Nov 2006 18:36:45 -0000


raeburn		Sat Nov 11 13:36:45 2006 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  qtescape() was moved to LONCAPA::map.pm.
  use lonratsrv no longer required.  
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.245 loncom/interface/londocs.pm:1.246
--- loncom/interface/londocs.pm:1.245	Thu Nov  2 16:06:06 2006
+++ loncom/interface/londocs.pm	Sat Nov 11 13:36:43 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.245 2006/11/02 21:06:06 albertel Exp $
+# $Id: londocs.pm,v 1.246 2006/11/11 18:36:43 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -35,7 +35,6 @@
 use Apache::loncommon;
 use LONCAPA::map();
 use Apache::lonratedt();
-use Apache::lonratsrv;
 use Apache::lonxml;
 use Apache::lonclonecourse;
 use Apache::lonnavmaps;
@@ -1241,8 +1240,8 @@
         $r->print('<table>');
         foreach (@LONCAPA::map::order) {
            my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$_]);
-	   $name=&Apache::lonratsrv::qtescape($name);
-	   $url=&Apache::lonratsrv::qtescape($url);
+	   $name=&LONCAPA::map::qtescape($name);
+	   $url=&LONCAPA::map::qtescape($url);
            unless ($name) {  $name=(split(/\//,$url))[-1]; }
            unless ($name) { $idx++; next; }
            $r->print(&entryline($idx,$name,$url,$folder,$allowed,$_,$coursenum));