version 1.84, 2006/11/02 21:03:28
|
version 1.89, 2008/09/11 14:47:24
|
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 277 function idxopen(mode) {
|
Line 274 function idxopen(mode) {
|
var options="scrollbars=1,resizable=1,menubar=0,location=1,toolbar=1"; |
var options="scrollbars=1,resizable=1,menubar=0,location=1,toolbar=1"; |
idxmode=mode; |
idxmode=mode; |
idxflag=1; |
idxflag=1; |
idx=open('$resurl/?launch=1&mode=$mode&catalogmode='+mode,'idxout',options); |
idx=open('$resurl/?inhibitmenu=yes&launch=1&mode=$mode&catalogmode='+mode,'idxout',options); |
idx.focus(); |
idx.focus(); |
} |
} |
|
|
Line 285 function idxopen(mode) {
|
Line 282 function idxopen(mode) {
|
function groupopen(url,recover,bookmarks) { |
function groupopen(url,recover,bookmarks) { |
var options="scrollbars=1,resizable=1,menubar=0"; |
var options="scrollbars=1,resizable=1,menubar=0"; |
idxflag=1; |
idxflag=1; |
idx=open("/adm/groupsort?mode=$mode&recover="+recover+"&readfile="+url+"&bookmarks="+bookmarks,"idxout",options); |
idx=open("/adm/groupsort?inhibitmenu=yes&mode=$mode&recover="+recover+"&readfile="+url+"&bookmarks="+bookmarks,"idxout",options); |
idx.focus(); |
idx.focus(); |
} |
} |
|
|
Line 294 function srchopen(mode) {
|
Line 291 function srchopen(mode) {
|
var options="scrollbars=1,resizable=1,menubar=0"; |
var options="scrollbars=1,resizable=1,menubar=0"; |
srchmode=mode; |
srchmode=mode; |
srchflag=1; |
srchflag=1; |
srch=open("/adm/searchcat?launch=1&mode=$mode&catalogmode="+mode,"srchout",options); |
srch=open("/adm/searchcat?inhibitmenu=yes&launch=1&mode=$mode&catalogmode="+mode,"srchout",options); |
srch.focus(); |
srch.focus(); |
} |
} |
// ----------------------------------------------------- launch indexer browser |
// ----------------------------------------------------- launch indexer browser |
Line 329 function idxcheck(mode) {
|
Line 326 function idxcheck(mode) {
|
if (editbrowser == null) { |
if (editbrowser == null) { |
url += 'launch=1&'; |
url += 'launch=1&'; |
} |
} |
|
url += 'inhibitmenu=yes&'; |
url += 'catalogmode=interactive&'; |
url += 'catalogmode=interactive&'; |
url += 'mode=edit&'; |
url += 'mode=edit&'; |
url += 'form=' + formname + '&'; |
url += 'form=' + formname + '&'; |
Line 362 sub smpedt {
|
Line 360 sub smpedt {
|
unless ($fatal) { |
unless ($fatal) { |
$targetmsg='<b>'.&mt('Saved.').'</b><br />'; |
$targetmsg='<b>'.&mt('Saved.').'</b><br />'; |
} else { |
} else { |
$targetmsg='<b>'.&mt('An error occured while saving.').'</b><br />'; |
$targetmsg='<b>'.&mt('An error occurred while saving.').'</b><br />'; |
} |
} |
} |
} |
if ($env{'form.revert'}) { |
if ($env{'form.revert'}) { |
Line 605 sub smpedt {
|
Line 603 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 645 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 663 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 758 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 795 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 810 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>'); |