Diff for /rat/lonratedt.pm between versions 1.84 and 1.85

version 1.84, 2006/11/02 21:03:28 version 1.85, 2006/11/02 21:27:58
Line 167  determined.> Line 167  determined.>
 use strict;  use strict;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::lonratsrv;  use Apache::lonsequence();
 use Apache::lonsequence;  use Apache::loncommon();
 use Apache::loncommon;  
 use Apache::lonlocal;  use Apache::lonlocal;
 use LONCAPA::map();  use LONCAPA::map();
 use File::Copy;  use File::Copy;
 use lib '/home/httpd/lib/perl/';  
 use LONCAPA;  use LONCAPA;
    
   
   
 # --------------------------------------------------------- Build up RAT screen  # --------------------------------------------------------- Build up RAT screen
Line 807  sub viewmap { Line 804  sub viewmap {
             $url=~s/\&colon\;/\:/g;              $url=~s/\&colon\;/\:/g;
             unless ($title) { $title=(split(/\//,$url))[-1] };              unless ($title) { $title=(split(/\//,$url))[-1] };
             unless ($title) { $title='<i>'.&mt('Empty').'</i>'; }              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 $resfilepath = $Apache::lonnet::perlvar{'lonDocRoot'}.$resurl;
             my $filename;               my $filename; 
             if ($resurl =~ m#/([^/]+)$#) {              if ($resurl =~ m#/([^/]+)$#) {
Line 818  sub viewmap { Line 815  sub viewmap {
             my $bgcol = $idx%2;               my $bgcol = $idx%2; 
             $r->print('<tr bgcolor='.$backgroundColors[$bgcol].'><td>'.              $r->print('<tr bgcolor='.$backgroundColors[$bgcol].'><td>'.
                       '<img src="'.&Apache::loncommon::icon($resfilepath).                        '<img src="'.&Apache::loncommon::icon($resfilepath).
                       '" /></td><td>'.&Apache::lonratsrv::qtescape($title).                        '" /></td><td>'.&LONCAPA::map::qtescape($title).
                       '</td><td>'.$filename.'</td><td>');                        '</td><td>'.$filename.'</td><td>');
             if ($url) {              if ($url) {
  $r->print('<a href="'.$resurl.'">'.&mt('Resource space').'</a>');   $r->print('<a href="'.$resurl.'">'.&mt('Resource space').'</a>');

Removed from v.1.84  
changed lines
  Added in v.1.85


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>