version 1.21, 2002/01/01 16:02:28
|
version 1.23, 2002/01/01 20:33:15
|
Line 488 sub handler {
|
Line 488 sub handler {
|
'discussiontimes', |
'discussiontimes', |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
|
|
|
my %feedback=(); |
|
my %error=(); |
|
foreach my $msgid ( |
|
split(/\&/,&Apache::lonnet::reply('keys:'. |
|
$ENV{'user.domain'}.':'. |
|
$ENV{'user.name'}.':nohist_email', |
|
$ENV{'user.home'}))) { |
|
$msgid=&Apache::lonnet::unescape($msgid); |
|
my $plain=&Apache::lonnet::unescape( |
|
&Apache::lonnet::unescape($msgid)); |
|
if ($plain=~/(Error|Feedback) \[([^\]]+)\]/) { |
|
my ($what,$url)=($1,$2); |
|
my %status= |
|
&Apache::lonnet::get('email_status',[$msgid]); |
|
if ($status{$msgid}=~/^error\:/) { |
|
$status{$msgid}=''; |
|
} |
|
|
|
if (($status{$msgid} eq 'new') || |
|
(!$status{$msgid})) { |
|
if ($what eq 'Error') { |
|
$error{$url}.=','.$msgid; |
|
} else { |
|
$feedback{$url}.=','.$msgid; |
|
} |
|
} |
|
} |
|
} |
|
# ----------------------------------------------------------- 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"'); |
Line 502 sub handler {
|
Line 531 sub handler {
|
'<h1>Navigate Course Map</h1>'. |
'<h1>Navigate Course Map</h1>'. |
"<h3>$date</h3>"); |
"<h3>$date</h3>"); |
$r->rflush(); |
$r->rflush(); |
|
$r->print( |
|
'<img src="/adm/lonMisc/chat.gif"> New discussion since '. |
|
localtime($lastcheck). |
|
'<br><img src="/adm/lonMisc/feedback.gif"> New message (click to open)<p>'); |
if (($currenturl=~/^\/res/) && |
if (($currenturl=~/^\/res/) && |
($currenturl!~/^\/res\/adm/)) { |
($currenturl!~/^\/res\/adm/)) { |
$r->print('<a href="#curloc">Current Location</a><p>'); |
$r->print('<a href="#curloc">Current Location</a><p>'); |
Line 580 sub handler {
|
Line 613 sub handler {
|
$adde= |
$adde= |
'<font color=red size=+2><b> <</b></font>'.$adde; |
'<font color=red size=+2><b> <</b></font>'.$adde; |
} |
} |
|
my $src= |
|
&Apache::lonnet::declutter($hash{'src_'.$rid}); |
$rid=~/^(\d+)\.(\d+)$/; |
$rid=~/^(\d+)\.(\d+)$/; |
my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'. |
my $symb= |
&Apache::lonnet::declutter($hash{'src_'.$rid}); |
&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}) { |
|
foreach (split(/\,/,$error{$src})) { |
|
if ($_) { |
|
$adde= |
|
' <a href="/adm/email?display='. |
|
&Apache::lonnet::escape($_). |
|
'"><img src="/adm/lonMisc/bomb.gif" border=0></a>' |
|
.$adde; |
|
} |
|
} |
|
} |
|
if ($feedback{$src}) { |
|
foreach (split(/\,/,$feedback{$src})) { |
|
if ($_) { |
|
$adde= |
|
' <a href="/adm/email?display='. |
|
&Apache::lonnet::escape($_). |
|
'"><img src="/adm/lonMisc/feedback.gif" border=0></a>' |
|
.$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); |