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