[BACK]Return to lonnavmaps.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonnavmaps.pm between versions 1.21 and 1.22

version 1.21, 2002/01/01 16:02:28 version 1.22, 2002/01/01 18:37:59
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 580  sub handler { Line 609  sub handler {
                                   $adde=                                    $adde=
                           '<font color=red size=+2><b> &lt;</b></font>'.$adde;                            '<font color=red size=+2><b> &lt;</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=
    '&nbsp;<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=
    '&nbsp;<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);
Removed from v.1.21  
changed lines
  Added in v.1.22

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>