version 1.42, 2002/08/18 21:45:41
|
version 1.45, 2002/09/02 18:25:55
|
Line 339 sub tracetable {
|
Line 339 sub tracetable {
|
my ($sofar,$rid,$beenhere,$showtypes,$indent,$linkid)=@_; |
my ($sofar,$rid,$beenhere,$showtypes,$indent,$linkid)=@_; |
my $newshowtypes=$showtypes; |
my $newshowtypes=$showtypes; |
my $further=$sofar; |
my $further=$sofar; |
#$Apache::lonxml::debug=1; |
# $Apache::lonxml::debug=1; |
&Apache::lonxml::debug("$rid ; $linkid ; $sofar ; $beenhere ; ".$hash{'src_'.$rid}); |
&Apache::lonxml::debug("$rid ; $linkid ; $sofar ; $beenhere ; ".$hash{'src_'.$rid}); |
if ($beenhere=~/\&$rid\&/) { return $further; } |
if ($beenhere=~/\&$rid\&/) { return $further; } |
$beenhere.=$rid.'&'; |
$beenhere.=$rid.'&'; |
Line 491 sub handler {
|
Line 491 sub handler {
|
|
|
@rows=(); |
@rows=(); |
|
|
&tracetable(0,$firstres,'&'.$lastres.'&','',0); |
&tracetable(0,$firstres,'&','',0); |
if ($hash{'src_'.$lastres}) { |
|
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$lastres}); |
|
if (($brepriv eq '2') || ($brepriv eq 'F')) { |
|
$rows[$#rows+1]=''.$lastres; |
|
} |
|
} |
|
|
|
# ------------------------------------------------------------------ Page parms |
# ------------------------------------------------------------------ Page parms |
|
|
Line 569 sub handler {
|
Line 563 sub handler {
|
} |
} |
} |
} |
# ----------------------------------------------------------- Start Page Output |
# ----------------------------------------------------------- Start Page Output |
$r->print('<html><head><title>Navigate LON-CAPA Maps</title></head>'); |
my $bodytagadd=''; |
$r->print('<body bgcolor="#FFFFFF"'); |
$r->print( |
|
'<html><head><title>Navigate Course Map</title></head>'); |
if (($currenturl=~/^\/res/) && |
if (($currenturl=~/^\/res/) && |
($currenturl!~/^\/res\/adm/)) { |
($currenturl!~/^\/res\/adm/)) { |
$r->print(' onLoad="window.location.hash='."'curloc'".'"'); |
$bodytagadd='onLoad="window.location.hash='."'curloc'".'"'; |
} |
} |
$r->print('><script>window.focus();</script>'. |
$r->print(&Apache::loncommon::bodytag('Navigate Course Map','', |
'<img align=right src=/adm/lonIcons/lonlogos.gif>'. |
$bodytagadd)); |
'<h1>Navigate Course Map</h1>'); |
$r->print('<script>window.focus();</script>'); |
my $desc=$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
my $desc=$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
if (defined($desc)) { $r->print("<h2>$desc</h2>\n"); } |
if (defined($desc)) { $r->print("<h2>$desc</h2>\n"); } |
$r->print("<h3>$date</h3>\n"); |
$r->print("<h3>$date</h3>\n"); |
Line 612 sub handler {
|
Line 607 sub handler {
|
$r->print("\n<tr>"); |
$r->print("\n<tr>"); |
my @colcont=split(/\&/,$rows[$i]); |
my @colcont=split(/\&/,$rows[$i]); |
my $avespan=$lcm/($#colcont+1); |
my $avespan=$lcm/($#colcont+1); |
|
|
|
# for each item I wish to print on this row... |
for ($j=0;$j<=$#colcont;$j++) { |
for ($j=0;$j<=$#colcont;$j++) { |
my $indent;my $indentstr; |
my $indent;my $indentstr; |
my $linkid; |
my $linkid; |
my $rid=$colcont[$j]; |
my $rid=$colcont[$j]; |
|
|
|
# bug? $rid can't accept a list of two elements |
$rid=~/(\d+)\.(\d+)$/; |
$rid=~/(\d+)\.(\d+)$/; |
my $src= |
my $src= |
&Apache::lonnet::declutter($hash{'src_'.$1.'.'.$2}); |
&Apache::lonnet::declutter($hash{'src_'.$1.'.'.$2}); |
Line 653 sub handler {
|
Line 652 sub handler {
|
} elsif ($code eq '4') { |
} elsif ($code eq '4') { |
$add='<td bgcolor="#E0FFAA">'; |
$add='<td bgcolor="#E0FFAA">'; |
} else { |
} else { |
$add='<td bgcolor="#FFAAAA">'; |
$add='<td bgcolor="#CCCCFF">'; |
if ($tcode eq '2') { |
if ($tcode eq '2') { |
$add='<td bgcolor="#FFFFAA">'; |
$add='<td bgcolor="#FFFFAA">'; |
} |
} |