version 1.61, 2004/11/13 21:17:55
|
version 1.63, 2004/11/17 20:14:23
|
Line 393 sub attemptread {
|
Line 393 sub attemptread {
|
# --------------------------------------------------------- Build up RAT screen |
# --------------------------------------------------------- Build up RAT screen |
sub ratedt { |
sub ratedt { |
my ($r,$url)=@_; |
my ($r,$url)=@_; |
|
my $frameset = '<frameset rows="1,70,*" border="0">'; |
|
if ($ENV{'environment.remote'} eq 'off') { |
|
$frameset = '<frameset rows="1,250,*" border="0">'; |
|
} |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
|
|
<html> |
<html> |
Line 401 sub ratedt {
|
Line 405 sub ratedt {
|
var flag=0; |
var flag=0; |
</script> |
</script> |
</head> |
</head> |
<frameset rows="1,50,*" border=0> |
$frameset |
<frame name=server src="$url/loadonly/ratserver" noresize noscroll> |
<frame name=server src="$url/loadonly/ratserver" noresize noscroll> |
<frame name=code src="/adm/rat/code.html"> |
<frame name=code src="$url/loadonly/adveditmenu"> |
<frame name=mapout src="/adm/rat/map.html"> |
<frame name=mapout src="/adm/rat/map.html"> |
</frameset> |
</frameset> |
</html> |
</html> |
Line 1148 sub viewmap {
|
Line 1152 sub viewmap {
|
foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) { |
foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) { |
if (defined($_)) { |
if (defined($_)) { |
$idx++; |
$idx++; |
my ($title,$url)=split(/\:/,$_); |
my ($title,$url,$cond)=split(/\:/,$_); |
|
if ($cond eq 'cond') { next; } |
$title=~s/\&colon\;/\:/g; |
$title=~s/\&colon\;/\:/g; |
$url=~s/\&colon\;/\:/g; |
$url=~s/\&colon\;/\:/g; |
unless ($title) { $title=(split(/\//,$url))[-1] }; |
unless ($title) { $title=(split(/\//,$url))[-1] }; |
Line 1158 sub viewmap {
|
Line 1163 sub viewmap {
|
} |
} |
$r->print(&Apache::lonratsrv::qtescape($title)); |
$r->print(&Apache::lonratsrv::qtescape($title)); |
if ($url) { $r->print('</a>'); } |
if ($url) { $r->print('</a>'); } |
$r->print('<br>'); |
$r->print("<br />\n"); |
} |
} |
} |
} |
$r->print('</body></html>'); |
$r->print('</body></html>'); |