[BACK]Return to lonratedt.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

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

version 1.84, 2006/11/02 21:03:28 version 1.86, 2006/12/20 22:42:48
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 766  ENDSMPHEAD Line 763  ENDSMPHEAD
 # ----------------------------------------------------------------- No such dir  # ----------------------------------------------------------------- No such dir
 sub nodir {  sub nodir {
    my ($r,$dir)=@_;     my ($r,$dir)=@_;
    $dir=~s{^/home/\w+/public_html}{};     $dir=~s{^/home/$LONCAPA::username_re/public_html}{};
    $r->print(&Apache::loncommon::start_page(undef,undef,     $r->print(&Apache::loncommon::start_page(undef,undef,
     {'only_body' => 1,      {'only_body' => 1,
      'bgcolor'   => '#FFFFFF',}).       'bgcolor'   => '#FFFFFF',}).
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.86

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