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