--- rat/lonratedt.pm	2006/11/02 21:03:28	1.84
+++ rat/lonratedt.pm	2006/11/02 21:27:58	1.85
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Edit Handler for RAT Maps
 #
-# $Id: lonratedt.pm,v 1.84 2006/11/02 21:03:28 albertel Exp $
+# $Id: lonratedt.pm,v 1.85 2006/11/02 21:27:58 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -167,15 +167,12 @@ determined.>
 use strict;
 use Apache::Constants qw(:common);
 use Apache::lonnet;
-use Apache::lonratsrv;
-use Apache::lonsequence;
-use Apache::loncommon;
+use Apache::lonsequence();
+use Apache::loncommon();
 use Apache::lonlocal;
 use LONCAPA::map();
 use File::Copy;
-use lib '/home/httpd/lib/perl/';
 use LONCAPA;
- 
 
 
 # --------------------------------------------------------- Build up RAT screen
@@ -807,7 +804,7 @@ sub viewmap {
             $url=~s/\&colon\;/\:/g;
             unless ($title) { $title=(split(/\//,$url))[-1] };
             unless ($title) { $title='<i>'.&mt('Empty').'</i>'; }
-            my $resurl = &Apache::lonratsrv::qtescape($url);
+            my $resurl = &LONCAPA::map::qtescape($url);
             my $resfilepath = $Apache::lonnet::perlvar{'lonDocRoot'}.$resurl;
             my $filename; 
             if ($resurl =~ m#/([^/]+)$#) {
@@ -818,7 +815,7 @@ sub viewmap {
             my $bgcol = $idx%2; 
             $r->print('<tr bgcolor='.$backgroundColors[$bgcol].'><td>'.
                       '<img src="'.&Apache::loncommon::icon($resfilepath).
-                      '" /></td><td>'.&Apache::lonratsrv::qtescape($title).
+                      '" /></td><td>'.&LONCAPA::map::qtescape($title).
                       '</td><td>'.$filename.'</td><td>');
             if ($url) {
 		$r->print('<a href="'.$resurl.'">'.&mt('Resource space').'</a>');