version 1.84, 2006/11/02 21:03:28
|
version 1.87, 2007/01/16 21:10:55
|
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; |
|
use HTML::Entities(); |
|
|
|
|
# --------------------------------------------------------- Build up RAT screen |
# --------------------------------------------------------- Build up RAT screen |
sub ratedt { |
sub ratedt { |
Line 605 sub smpedt {
|
Line 602 sub smpedt {
|
my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$_]); |
my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$_]); |
unless ($name) { $name=(split(/\//,$url))[-1]; } |
unless ($name) { $name=(split(/\//,$url))[-1]; } |
unless ($name) { $name='EMPTY'; } |
unless ($name) { $name='EMPTY'; } |
|
$name = &LONCAPA::map::qtescape($name); |
|
$url = &LONCAPA::map::qtescape($url); |
$targetdetail.='&'.&escape($name).'='. |
$targetdetail.='&'.&escape($name).'='. |
&escape($url); |
&escape($url); |
$idx++; |
$idx++; |
$name=~s/\:/\:/g; |
$name = &HTML::Entities::encode($name,'\'"<>&'); |
'<option value="'.$idx.'">'.$name.'</option>'; |
'<option value="'.$idx.'">'.$name.'</option>'; |
} @LONCAPA::map::order); |
} @LONCAPA::map::order); |
|
|
Line 645 sub smpedt {
|
Line 644 sub smpedt {
|
function openview(entry) { |
function openview(entry) { |
var url=unescape((entry.split('='))[1]); |
var url=unescape((entry.split('='))[1]); |
var parts=new Array; |
var parts=new Array; |
parts=url.split(':'); |
|
url=parts.join(':'); |
|
if (url) { open(url,'cat'); } |
if (url) { open(url,'cat'); } |
} |
} |
|
|
Line 665 sub smpedt {
|
Line 662 sub smpedt {
|
var entry=(document.forms.simpleedit.targetdetail.value.split('&')) |
var entry=(document.forms.simpleedit.targetdetail.value.split('&')) |
[selidx]; |
[selidx]; |
var oldname=unescape((entry.split('='))[0]); |
var oldname=unescape((entry.split('='))[0]); |
var nameparts=oldname.split(':'); |
|
oldname=unescape(nameparts.join(':')); |
|
nameparts=oldname.split('"'); |
|
oldname=unescape(nameparts.join('"')); |
|
nameparts=oldname.split('''); |
|
oldname=unescape(nameparts.join("'")); |
|
newtitle=prompt('$lt{'nt'}',oldname); |
newtitle=prompt('$lt{'nt'}',oldname); |
if (newtitle) { |
if (newtitle) { |
document.forms.simpleedit.renameres.value=1; |
document.forms.simpleedit.renameres.value=1; |
Line 766 ENDSMPHEAD
|
Line 757 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 803 sub viewmap {
|
Line 794 sub viewmap {
|
$idx++; |
$idx++; |
my ($title,$url,$cond)=split(/\:/,$_); |
my ($title,$url,$cond)=split(/\:/,$_); |
if ($cond eq 'cond') { next; } |
if ($cond eq 'cond') { next; } |
$title=~s/\&colon\;/\:/g; |
$title= &LONCAPA::map::qtescape($title); |
$url=~s/\&colon\;/\:/g; |
$url = &LONCAPA::map::qtescape($url); |
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 = $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 809 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>'.&HTML::Entities::encode(&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>'); |