version 1.25, 2002/02/11 18:59:36
|
version 1.28, 2002/03/15 16:31:10
|
Line 186 sub astatus {
|
Line 186 sub astatus {
|
$rid=~/(\d+)\.(\d+)/; |
$rid=~/(\d+)\.(\d+)/; |
my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'. |
my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'. |
&Apache::lonnet::declutter($hash{'src_'.$rid}); |
&Apache::lonnet::declutter($hash{'src_'.$rid}); |
$Apache::lonxml::debug=1; |
|
my %duedate=(); |
my %duedate=(); |
my %opendate=(); |
my %opendate=(); |
my %answerdate=(); |
my %answerdate=(); |
Line 270 sub tracetable {
|
Line 269 sub tracetable {
|
my ($sofar,$rid,$beenhere)=@_; |
my ($sofar,$rid,$beenhere)=@_; |
my $further=$sofar; |
my $further=$sofar; |
unless ($beenhere=~/\&$rid\&/) { |
unless ($beenhere=~/\&$rid\&/) { |
$beenhere.=$rid.'&'; |
$beenhere.=$rid.'&'; |
|
|
if (defined($hash{'is_map_'.$rid})) { |
if (defined($hash{'is_map_'.$rid})) { |
$sofar++; |
$sofar++; |
my $tprefix=''; |
my $tprefix=''; |
if ($hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$rid}}} |
if ($hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$rid}}} |
eq 'sequence') { |
eq 'sequence') { |
$tprefix='h'; |
$tprefix='h'; |
} |
} |
if (defined($rows[$sofar])) { |
if (defined($rows[$sofar])) { |
$rows[$sofar].='&'.$tprefix.$rid; |
$rows[$sofar].='&'.$tprefix.$rid; |
} else { |
} else { |
$rows[$sofar]=$tprefix.$rid; |
$rows[$sofar]=$tprefix.$rid; |
} |
} |
if ((defined($hash{'map_start_'.$hash{'src_'.$rid}})) && |
if ((defined($hash{'map_start_'.$hash{'src_'.$rid}})) && |
(defined($hash{'map_finish_'.$hash{'src_'.$rid}})) && |
(defined($hash{'map_finish_'.$hash{'src_'.$rid}})) && |
($tprefix eq 'h')) { |
($tprefix eq 'h')) { |
my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}}; |
my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}}; |
$sofar= |
$sofar= |
&tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}}, |
&tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}}, |
'&'.$frid.'&'); |
'&'.$frid.'&'); |
$sofar++; |
$sofar++; |
if ($hash{'src_'.$frid}) { |
if ($hash{'src_'.$frid}) { |
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$frid}); |
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$frid}); |
if (($brepriv eq '2') || ($brepriv eq 'F')) { |
if (($brepriv eq '2') || ($brepriv eq 'F')) { |
my $pprefix=''; |
my $pprefix=''; |
if ($hash{'src_'.$frid}=~ |
if ($hash{'src_'.$frid}=~ |
/\.(problem|exam|quiz|assess|survey|form)$/) { |
/\.(problem|exam|quiz|assess|survey|form)$/) { |
$pprefix=&astatus($frid); |
$pprefix=&astatus($frid); |
|
|
} |
} |
if (defined($rows[$sofar])) { |
if (defined($rows[$sofar])) { |
$rows[$sofar].='&'.$pprefix.$frid; |
$rows[$sofar].='&'.$pprefix.$frid; |
} else { |
} else { |
$rows[$sofar]=$pprefix.$frid; |
$rows[$sofar]=$pprefix.$frid; |
} |
} |
} |
} |
} |
} |
} |
} |
} else { |
} else { |
$sofar++; |
$sofar++; |
if ($hash{'src_'.$rid}) { |
if ($hash{'src_'.$rid}) { |
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$rid}); |
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$rid}); |
if (($brepriv eq '2') || ($brepriv eq 'F')) { |
if (($brepriv eq '2') || ($brepriv eq 'F')) { |
my $pprefix=''; |
my $pprefix=''; |
if ($hash{'src_'.$rid}=~ |
if ($hash{'src_'.$rid}=~ |
/\.(problem|exam|quiz|assess|survey|form)$/) { |
/\.(problem|exam|quiz|assess|survey|form)$/) { |
$pprefix=&astatus($rid); |
$pprefix=&astatus($rid); |
} |
} |
if (defined($rows[$sofar])) { |
if (defined($rows[$sofar])) { |
$rows[$sofar].='&'.$pprefix.$rid; |
$rows[$sofar].='&'.$pprefix.$rid; |
} else { |
} else { |
$rows[$sofar]=$pprefix.$rid; |
$rows[$sofar]=$pprefix.$rid; |
} |
} |
} |
} |
} |
} |
} |
} |
|
|
if (defined($hash{'to_'.$rid})) { |
if (defined($hash{'to_'.$rid})) { |
my $mincond=1; |
my $mincond=1; |
my $next=''; |
my $next=''; |
map { |
foreach (split(/\,/,$hash{'to_'.$rid})) { |
my $thiscond= |
my $thiscond= |
&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}}); |
&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}}); |
if ($thiscond>=$mincond) { |
if ($thiscond>=$mincond) { |
if ($next) { |
if ($next) { |
$next.=','.$_.':'.$thiscond; |
$next.=','.$_.':'.$thiscond; |
} else { |
} else { |
$next=$_.':'.$thiscond; |
$next=$_.':'.$thiscond; |
} |
} |
if ($thiscond>$mincond) { $mincond=$thiscond; } |
if ($thiscond>$mincond) { $mincond=$thiscond; } |
} |
} |
} split(/\,/,$hash{'to_'.$rid}); |
} |
map { |
foreach (split(/\,/,$next)) { |
my ($linkid,$condval)=split(/\:/,$_); |
my ($linkid,$condval)=split(/\:/,$_); |
if ($condval>=$mincond) { |
if ($condval>=$mincond) { |
my $now=&tracetable($sofar,$hash{'goesto_'.$linkid},$beenhere); |
my $now=&tracetable($sofar,$hash{'goesto_'.$linkid},$beenhere); |
if ($now>$further) { $further=$now; } |
if ($now>$further) { $further=$now; } |
} |
} |
} split(/\,/,$next); |
} |
|
} |
} |
|
} |
} |
return $further; |
return $further; |
} |
} |
Line 359 sub tracetable {
|
Line 357 sub tracetable {
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
|
|
sub handler { |
sub handler { |
my $r=shift; |
my $r=shift; |
|
|
|
|
# ------------------------------------------- Set document type for header only |
# ------------------------------------------- Set document type for header only |
|
|
if ($r->header_only) { |
if ($r->header_only) { |
if ($ENV{'browser.mathml'}) { |
if ($ENV{'browser.mathml'}) { |
$r->content_type('text/xml'); |
$r->content_type('text/xml'); |
} else { |
} else { |
$r->content_type('text/html'); |
$r->content_type('text/html'); |
} |
} |
$r->send_http_header; |
$r->send_http_header; |
return OK; |
return OK; |
} |
} |
my $requrl=$r->uri; |
my $requrl=$r->uri; |
|
my $hashtied; |
# ----------------------------------------------------------------- Tie db file |
# ----------------------------------------------------------------- Tie db file |
if ($ENV{'request.course.fn'}) { |
my $fn; |
my $fn=$ENV{'request.course.fn'}; |
if ($ENV{'request.course.fn'}) { |
if (-e "$fn.db") { |
$fn=$ENV{'request.course.fn'}; |
if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) && |
if (-e "$fn.db") { |
(tie(%parmhash,'GDBM_File', |
if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) && |
$ENV{'request.course.fn'}.'_parms.db',&GDBM_READER,0640))) { |
(tie(%parmhash,'GDBM_File', |
|
$ENV{'request.course.fn'}.'_parms.db', |
|
&GDBM_READER,0640))) { |
|
$hashtied=1; |
|
} |
|
} |
|
} |
|
if (!$hashtied) { |
|
$ENV{'user.error.msg'}="$requrl:bre:0:0:Course not initialized"; |
|
return HTTP_NOT_ACCEPTABLE; |
|
} |
|
|
# ------------------------------------------------------------------- Hash tied |
# ------------------------------------------------------------------- Hash tied |
my $firstres=$hash{'map_start_/res/'.$ENV{'request.course.uri'}}; |
|
my $lastres=$hash{'map_finish_/res/'.$ENV{'request.course.uri'}}; |
if ($ENV{'browser.mathml'}) { |
if (($firstres) && ($lastres)) { |
$r->content_type('text/xml'); |
|
} else { |
|
$r->content_type('text/html'); |
|
} |
|
&Apache::loncommon::no_cache($r); |
|
$r->send_http_header; |
|
|
|
my $firstres=$hash{'map_start_/res/'.$ENV{'request.course.uri'}}; |
|
my $lastres=$hash{'map_finish_/res/'.$ENV{'request.course.uri'}}; |
|
if (!(($firstres) && ($lastres))) { |
|
$r->print('<html><body>Coursemap undefined.</body></html>'); |
|
} else { |
|
|
# ----------------------------------------------------------------- Render page |
# ----------------------------------------------------------------- Render page |
# -------------------------------------------------------------- Set parameters |
# -------------------------------------------------------------- Set parameters |
|
|
|
|
# ---------------------------- initialize coursedata and userdata for this user |
# ---------------------------- initialize coursedata and userdata for this user |
undef %courseopt; |
undef %courseopt; |
undef %useropt; |
undef %useropt; |
|
|
my $uname=$ENV{'user.name'}; |
my $uname=$ENV{'user.name'}; |
my $udom=$ENV{'user.domain'}; |
my $udom=$ENV{'user.domain'}; |
my $uhome=$ENV{'user.home'}; |
my $uhome=$ENV{'user.home'}; |
my $cid=$ENV{'request.course.id'}; |
my $cid=$ENV{'request.course.id'}; |
my $chome=$ENV{'course.'.$cid.'.home'}; |
my $chome=$ENV{'course.'.$cid.'.home'}; |
my ($cdom,$cnum)=split(/\_/,$cid); |
my ($cdom,$cnum)=split(/\_/,$cid); |
|
|
my $userprefix=$uname.'_'.$udom.'_'; |
my $userprefix=$uname.'_'.$udom.'_'; |
|
|
unless ($uhome eq 'no_host') { |
unless ($uhome eq 'no_host') { |
# -------------------------------------------------------------- Get coursedata |
# -------------------------------------------------------------- Get coursedata |
unless |
unless ((time-$courserdatas{$cid.'.last_cache'})<240) { |
((time-$courserdatas{$cid.'.last_cache'})<240) { |
my $reply=&Apache::lonnet::reply('dump:'.$cdom.':'.$cnum. |
my $reply=&Apache::lonnet::reply('dump:'.$cdom.':'.$cnum. |
':resourcedata',$chome); |
':resourcedata',$chome); |
if ($reply!~/^error\:/) { |
if ($reply!~/^error\:/) { |
$courserdatas{$cid}=$reply; |
$courserdatas{$cid}=$reply; |
$courserdatas{$cid.'.last_cache'}=time; |
$courserdatas{$cid.'.last_cache'}=time; |
} |
} |
} |
} |
foreach (split(/\&/,$courserdatas{$cid})) { |
map { |
my ($name,$value)=split(/\=/,$_); |
my ($name,$value)=split(/\=/,$_); |
$courseopt{$userprefix.&Apache::lonnet::unescape($name)}= |
$courseopt{$userprefix.&Apache::lonnet::unescape($name)}= |
&Apache::lonnet::unescape($value); |
&Apache::lonnet::unescape($value); |
} |
} split(/\&/,$courserdatas{$cid}); |
|
# --------------------------------------------------- Get userdata (if present) |
# --------------------------------------------------- Get userdata (if present) |
unless |
unless ((time-$userrdatas{$uname.'___'.$udom.'.last_cache'})<240) { |
((time-$userrdatas{$uname.'___'.$udom.'.last_cache'})<240) { |
my $reply=&Apache::lonnet::reply('dump:'.$udom.':'.$uname.':resourcedata',$uhome); |
my $reply= |
if ($reply!~/^error\:/) { |
&Apache::lonnet::reply('dump:'.$udom.':'.$uname.':resourcedata',$uhome); |
$userrdatas{$uname.'___'.$udom}=$reply; |
if ($reply!~/^error\:/) { |
$userrdatas{$uname.'___'.$udom.'.last_cache'}=time; |
$userrdatas{$uname.'___'.$udom}=$reply; |
} |
$userrdatas{$uname.'___'.$udom.'.last_cache'}=time; |
} |
} |
foreach (split(/\&/,$userrdatas{$uname.'___'.$udom})) { |
} |
my ($name,$value)=split(/\=/,$_); |
map { |
$useropt{$userprefix.&Apache::lonnet::unescape($name)}= |
my ($name,$value)=split(/\=/,$_); |
&Apache::lonnet::unescape($value); |
$useropt{$userprefix.&Apache::lonnet::unescape($name)}= |
} |
&Apache::lonnet::unescape($value); |
} |
} split(/\&/,$userrdatas{$uname.'___'.$udom}); |
|
} |
|
|
|
@rows=(); |
@rows=(); |
|
|
&tracetable(0,$firstres,'&'.$lastres.'&'); |
&tracetable(0,$firstres,'&'.$lastres.'&'); |
if ($hash{'src_'.$lastres}) { |
if ($hash{'src_'.$lastres}) { |
my $brepriv= |
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$lastres}); |
&Apache::lonnet::allowed('bre',$hash{'src_'.$lastres}); |
if (($brepriv eq '2') || ($brepriv eq 'F')) { |
if (($brepriv eq '2') || ($brepriv eq 'F')) { |
$rows[$#rows+1]=''.$lastres; |
$rows[$#rows+1]=''.$lastres; |
} |
} |
} |
} |
|
|
|
# ------------------------------------------------------------------ Page parms |
# ------------------------------------------------------------------ Page parms |
|
|
my $j; |
my $j; |
my $i; |
my $i; |
my $lcm=1; |
my $lcm=1; |
my $contents=0; |
my $contents=0; |
|
|
# ---------------------------------------------- Go through table to get layout |
# ---------------------------------------------- Go through table to get layout |
|
|
for ($i=0;$i<=$#rows;$i++) { |
for ($i=0;$i<=$#rows;$i++) { |
if ($rows[$i]) { |
if ($rows[$i]) { |
$contents++; |
$contents++; |
my @colcont=split(/\&/,$rows[$i]); |
my @colcont=split(/\&/,$rows[$i]); |
$lcm*=($#colcont+1)/euclid($lcm,($#colcont+1)); |
$lcm*=($#colcont+1)/euclid($lcm,($#colcont+1)); |
} |
} |
} |
} |
|
|
|
|
unless ($contents) { |
unless ($contents) { |
$r->content_type('text/html'); |
$r->print('<html><body>Empty Map.</body></html>'); |
$r->send_http_header; |
} else { |
$r->print('<html><body>Empty Map.</body></html>'); |
|
} else { |
|
|
|
# ------------------------------------------------------------------ Build page |
# ------------------------------------------------------------------ Build page |
|
|
my $currenturl=$ENV{'form.postdata'}; |
my $currenturl=$ENV{'form.postdata'}; |
$currenturl=~s/^http\:\/\///; |
$currenturl=~s/^http\:\/\///; |
$currenturl=~s/^[^\/]+//; |
$currenturl=~s/^[^\/]+//; |
|
|
# ---------------------------------------------------------------- Send headers |
# ---------------------------------------------------------------- Send headers |
|
|
$r->content_type('text/html'); |
my $date=localtime; |
&Apache::loncommon::no_cache($r); |
my $now=time; |
$r->send_http_header; |
|
|
|
my $date=localtime; |
|
my $now=time; |
|
# ----------------------------------------- Get email status and discussiontime |
# ----------------------------------------- Get email status and discussiontime |
|
|
my %emailstatus=&Apache::lonnet::dump('email_status'); |
my %emailstatus=&Apache::lonnet::dump('email_status'); |
my $logouttime=$emailstatus{'logout'}; |
my $logouttime=$emailstatus{'logout'}; |
my $courseleave= |
my $courseleave=$emailstatus{'logout_'.$ENV{'request.course.id'}}; |
$emailstatus{'logout_'.$ENV{'request.course.id'}}; |
my $lastcheck=($courseleave>$logouttime?$courseleave:$logouttime); |
my $lastcheck= |
|
($courseleave>$logouttime?$courseleave:$logouttime); |
my %discussiontimes=&Apache::lonnet::dump('discussiontimes', |
|
$cdom,$cnum); |
my %discussiontimes=&Apache::lonnet::dump( |
|
'discussiontimes', |
my %feedback=(); |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
my %error=(); |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
foreach my $msgid (split(/\&/,&Apache::lonnet::reply('keys:'. |
|
$ENV{'user.domain'}.':'. |
my %feedback=(); |
$ENV{'user.name'}.':nohist_email', |
my %error=(); |
$ENV{'user.home'}))) { |
foreach my $msgid ( |
$msgid=&Apache::lonnet::unescape($msgid); |
split(/\&/,&Apache::lonnet::reply('keys:'. |
my $plain=&Apache::lonnet::unescape(&Apache::lonnet::unescape($msgid)); |
$ENV{'user.domain'}.':'. |
if ($plain=~/(Error|Feedback) \[([^\]]+)\]/) { |
$ENV{'user.name'}.':nohist_email', |
my ($what,$url)=($1,$2); |
$ENV{'user.home'}))) { |
my %status= |
$msgid=&Apache::lonnet::unescape($msgid); |
&Apache::lonnet::get('email_status',[$msgid]); |
my $plain=&Apache::lonnet::unescape( |
if ($status{$msgid}=~/^error\:/) { |
&Apache::lonnet::unescape($msgid)); |
$status{$msgid}=''; |
if ($plain=~/(Error|Feedback) \[([^\]]+)\]/) { |
} |
my ($what,$url)=($1,$2); |
|
my %status= |
if (($status{$msgid} eq 'new') || |
&Apache::lonnet::get('email_status',[$msgid]); |
(!$status{$msgid})) { |
if ($status{$msgid}=~/^error\:/) { |
if ($what eq 'Error') { |
$status{$msgid}=''; |
$error{$url}.=','.$msgid; |
} |
} else { |
|
$feedback{$url}.=','.$msgid; |
if (($status{$msgid} eq 'new') || |
} |
(!$status{$msgid})) { |
} |
if ($what eq 'Error') { |
} |
$error{$url}.=','.$msgid; |
} |
} else { |
|
$feedback{$url}.=','.$msgid; |
|
} |
|
} |
|
} |
|
} |
|
# ----------------------------------------------------------- Start Page Output |
# ----------------------------------------------------------- Start Page Output |
$r->print( |
$r->print('<html><head><title>Navigate LON-CAPA Maps</title></head>'); |
'<html><head><title>Navigate LON-CAPA Maps</title></head>'); |
$r->print('<body bgcolor="#FFFFFF"'); |
$r->print('<body bgcolor="#FFFFFF"'); |
if (($currenturl=~/^\/res/) && |
if (($currenturl=~/^\/res/) && |
($currenturl!~/^\/res\/adm/)) { |
($currenturl!~/^\/res\/adm/)) { |
$r->print(' onLoad="window.location.hash='."'curloc'".'"'); |
$r->print(' onLoad="window.location.hash='. |
} |
"'curloc'".'"'); |
$r->print('><script>window.focus();</script>'. |
} |
'<img align=right src=/adm/lonIcons/lonlogos.gif>'. |
$r->print('><script>window.focus();</script>'. |
'<h1>Navigate Course Map</h1>'. |
'<img align=right src=/adm/lonIcons/lonlogos.gif>'. |
"<h3>$date</h3>"); |
'<h1>Navigate Course Map</h1>'. |
$r->rflush(); |
"<h3>$date</h3>"); |
$r->print('<img src="/adm/lonMisc/chat.gif"> New discussion since '. |
$r->rflush(); |
localtime($lastcheck). |
$r->print( |
'<br><img src="/adm/lonMisc/feedback.gif"> New message (click to open)<p>'); |
'<img src="/adm/lonMisc/chat.gif"> New discussion since '. |
if (($currenturl=~/^\/res/) && |
localtime($lastcheck). |
($currenturl!~/^\/res\/adm/)) { |
'<br><img src="/adm/lonMisc/feedback.gif"> New message (click to open)<p>'); |
$r->print('<a href="#curloc">Current Location</a><p>'); |
if (($currenturl=~/^\/res/) && |
} |
($currenturl!~/^\/res\/adm/)) { |
|
$r->print('<a href="#curloc">Current Location</a><p>'); |
|
} |
|
# ----------------------------------------------------- The little content list |
# ----------------------------------------------------- The little content list |
for ($i=0;$i<=$#rows;$i++) { |
for ($i=0;$i<=$#rows;$i++) { |
if ($rows[$i]) { |
if ($rows[$i]) { |
my @colcont=split(/\&/,$rows[$i]); |
my @colcont=split(/\&/,$rows[$i]); |
my $avespan=$lcm/($#colcont+1); |
my $avespan=$lcm/($#colcont+1); |
for ($j=0;$j<=$#colcont;$j++) { |
for ($j=0;$j<=$#colcont;$j++) { |
my $rid=$colcont[$j]; |
my $rid=$colcont[$j]; |
if ($rid=~/^h(.+)/) { |
if ($rid=~/^h(.+)/) { |
$rid=$1; |
$rid=$1; |
$r->print( |
$r->print(' <a href="#'. |
' <a href="#'.$rid.'">'.$hash{'title_'.$rid}.'</a><br>'); |
$rid.'">'.$hash{'title_'.$rid}. |
} |
'</a><br>'); |
} |
} |
} |
} |
} |
} |
|
} |
# ----------------------------------------------------------------- Start table |
# ----------------------------------------------------------------- Start table |
$r->print('<hr><table cols="'.$lcm.'" border="0">'); |
$r->print('<hr><table cols="'.$lcm.'" border="0">'); |
for ($i=0;$i<=$#rows;$i++) { |
for ($i=0;$i<=$#rows;$i++) { |
if ($rows[$i]) { |
if ($rows[$i]) { |
$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 ($j=0;$j<=$#colcont;$j++) { |
for ($j=0;$j<=$#colcont;$j++) { |
my $rid=$colcont[$j]; |
my $rid=$colcont[$j]; |
my $add='<td> '; |
my $add='<td> '; |
my $adde='</td>'; |
my $adde='</td>'; |
my $hwk='<font color="#223322">'; |
my $hwk='<font color="#223322">'; |
my $hwke='</font>'; |
my $hwke='</font>'; |
if ($rid=~/^h(.+)/) { |
if ($rid=~/^h(.+)/) { |
$rid=$1; |
$rid=$1; |
$add= |
$add='<th bgcolor="#AAFF55"><a name="'.$rid.'">'; |
'<th bgcolor="#AAFF55"><a name="'.$rid.'">'; |
$adde='</th>'; |
$adde='</th>'; |
} |
} |
if ($rid=~/^p(\d)(\d)\"([\w\: \(\)\/\,]*)\"(.+)/) { |
if ($rid=~/^p(\d)(\d)\"([\w\: \(\)\/\,]*)\"(.+)/) { |
# sub astatus describes what code/tcode mean |
# sub astatus describes what code/tcode mean |
my $code=$1; |
my $code=$1; |
my $tcode=$2; |
my $tcode=$2; |
my $ctext=$3; |
my $ctext=$3; |
$rid=$4; |
$rid=$4; |
if ($tcode eq '1') { |
if ($tcode eq '1') { |
$add='<td bgcolor="#AAAAAA">'; |
$add='<td bgcolor="#AAAAAA">'; |
} |
} |
if ($code eq '3') { |
if ($code eq '3') { |
$add='<td bgcolor="#AAFFAA">'; |
$add='<td bgcolor="#AAFFAA">'; |
} else { |
} else { |
$add='<td bgcolor="#FFAAAA">'; |
$add='<td bgcolor="#FFAAAA">'; |
if ($tcode eq '2') { |
if ($tcode eq '2') { |
$add='<td bgcolor="#FFFFAA">'; |
$add='<td bgcolor="#FFFFAA">'; |
} |
} |
if ($tcode eq '4') { |
if ($tcode eq '4') { |
$add='<td bgcolor="#FFFF33">'; |
$add='<td bgcolor="#FFFF33">'; |
$adde='</td>'; |
$adde='</td>'; |
} |
} |
} |
} |
$hwk='<font color="#888811"><b>'; |
$hwk='<font color="#888811"><b>'; |
$hwke='</b></font>'; |
$hwke='</b></font>'; |
if ($code eq '1') { |
if ($code eq '1') { |
$hwke='</b> ('.$ctext.')</font>'; |
$hwke='</b> ('.$ctext.')</font>'; |
} |
} |
if ($code eq '2') { |
if ($code eq '2') { |
$hwk='<font color="#992222"><b>'; |
$hwk='<font color="#992222"><b>'; |
$hwke='</b> ('.$ctext.')</font>'; |
$hwke='</b> ('.$ctext.')</font>'; |
} |
} |
if ($code eq '3') { |
if ($code eq '3') { |
$hwk='<font color="#229922"><b>'; |
$hwk='<font color="#229922"><b>'; |
$hwke='</b> ('.$ctext.')</font>'; |
$hwke='</b> ('.$ctext.')</font>'; |
} |
} |
} |
} |
if ($hash{'src_'.$rid} eq $currenturl) { |
if ($hash{'src_'.$rid} eq $currenturl) { |
$add=$add.'<a name="curloc"></a>'. |
$add=$add.'<a name="curloc"></a>'. |
'<font color=red size=+2><b>> </b></font>'; |
'<font color=red size=+2><b>> </b></font>'; |
$adde= |
$adde= |
'<font color=red size=+2><b> <</b></font>'.$adde; |
'<font color=red size=+2><b> <</b></font>'.$adde; |
} |
} |
my $src= |
my $src= |
&Apache::lonnet::declutter($hash{'src_'.$rid}); |
&Apache::lonnet::declutter($hash{'src_'.$rid}); |
$rid=~/^(\d+)\.(\d+)$/; |
$rid=~/^(\d+)\.(\d+)$/; |
my $symb= |
my $symb= |
&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.$src; |
&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.$src; |
if ($discussiontimes{$symb}>$lastcheck) { |
if ($discussiontimes{$symb}>$lastcheck) { |
$adde= |
$adde= |
'<img border=0 src="/adm/lonMisc/chat.gif">'. |
'<img border=0 src="/adm/lonMisc/chat.gif">'. |
$adde; |
$adde; |
} |
} |
if ($error{$src}) { |
if ($error{$src}) { |
foreach (split(/\,/,$error{$src})) { |
foreach (split(/\,/,$error{$src})) { |
if ($_) { |
if ($_) { |
$adde= |
$adde= |
' <a href="/adm/email?display='. |
' <a href="/adm/email?display='. |
&Apache::lonnet::escape($_). |
&Apache::lonnet::escape($_). |
'"><img src="/adm/lonMisc/bomb.gif" border=0></a>' |
'"><img src="/adm/lonMisc/bomb.gif" border=0></a>' |
.$adde; |
.$adde; |
} |
} |
} |
} |
} |
} |
if ($feedback{$src}) { |
if ($feedback{$src}) { |
foreach (split(/\,/,$feedback{$src})) { |
foreach (split(/\,/,$feedback{$src})) { |
if ($_) { |
if ($_) { |
$adde= |
$adde= |
' <a href="/adm/email?display='. |
' <a href="/adm/email?display='. |
&Apache::lonnet::escape($_). |
&Apache::lonnet::escape($_). |
'"><img src="/adm/lonMisc/feedback.gif" border=0></a>' |
'"><img src="/adm/lonMisc/feedback.gif" border=0></a>' |
.$adde; |
.$adde; |
} |
} |
} |
} |
} |
} |
$r->print($add.'<a href="'.$hash{'src_'.$rid}. |
$r->print($add.'<a href="'.$hash{'src_'.$rid}. |
'">'.$hwk. |
'">'.$hwk. |
$hash{'title_'.$rid}.$hwke.'</a>'.$adde); |
$hash{'title_'.$rid}.$hwke.'</a>'.$adde); |
} |
} |
$r->print('</tr>'); |
$r->print('</tr>'); |
} |
} |
} |
} |
$r->print("\n</table>"); |
$r->print("\n</table>"); |
$r->print('</body></html>'); |
$r->print('</body></html>'); |
|
# -------------------------------------------------------------------- End page |
# -------------------------------------------------------------------- End page |
} |
} |
# ------------------------------------------------------------- End render page |
# ------------------------------------------------------------- End render page |
} else { |
} |
$r->content_type('text/html'); |
|
$r->send_http_header; |
|
$r->print('<html><body>Coursemap undefined.</body></html>'); |
|
} |
|
# ------------------------------------------------------------------ Untie hash |
# ------------------------------------------------------------------ Untie hash |
unless (untie(%hash)) { |
unless (untie(%hash)) { |
&Apache::lonnet::logthis("<font color=blue>WARNING: ". |
&Apache::lonnet::logthis("<font color=blue>WARNING: ". |
"Could not untie coursemap $fn (browse).</font>"); |
"Could not untie coursemap $fn (browse).</font>"); |
} |
} |
unless (untie(%parmhash)) { |
unless (untie(%parmhash)) { |
&Apache::lonnet::logthis("<font color=blue>WARNING: ". |
&Apache::lonnet::logthis("<font color=blue>WARNING: ". |
"Could not untie parmhash (browse).</font>"); |
"Could not untie parmhash (browse).</font>"); |
} |
} |
# -------------------------------------------------------------------- All done |
return OK; |
return OK; |
|
# ----------------------------------------------- Errors, hash could no be tied |
|
} |
|
} |
|
} |
|
|
|
$ENV{'user.error.msg'}="$requrl:bre:0:0:Course not initialized"; |
|
return HTTP_NOT_ACCEPTABLE; |
|
} |
} |
|
|
1; |
1; |