version 1.86, 2006/12/20 22:42:48
|
version 1.87, 2007/01/16 21:10:55
|
Line 173 use Apache::lonlocal;
|
Line 173 use Apache::lonlocal;
|
use LONCAPA::map(); |
use LONCAPA::map(); |
use File::Copy; |
use File::Copy; |
use LONCAPA; |
use LONCAPA; |
|
use HTML::Entities(); |
|
|
# --------------------------------------------------------- Build up RAT screen |
# --------------------------------------------------------- Build up RAT screen |
sub ratedt { |
sub ratedt { |
Line 602 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 642 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 662 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 800 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 = &LONCAPA::map::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 815 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>'.&LONCAPA::map::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>'); |