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

Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.89 and 1.90

version 1.89, 2008/06/24 11:06:03 version 1.90, 2008/08/25 11:20:19
Line 2155  sub displaymessage { Line 2155  sub displaymessage {
         $symb=&Apache::lonnet::symbread($content{'baseurl'});          $symb=&Apache::lonnet::symbread($content{'baseurl'});
     }      }
     if ($env{'user.adv'}) {      if ($env{'user.adv'}) {
  my $adv_actions;          my $actionlist='';
  $r->print('<table border="2" width="100%"><tr bgcolor="#FFAAAA"><td>'.&mt('Currently available actions (will open extra window)').':</td>');  
  if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) {   if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) {
  $r->print('<td><b>'.&Apache::loncommon::track_student_link(&mt('View recent activity'),$content{'sendername'},$content{'senderdomain'},'check').'</b></td>');   $actionlist.='<td><b>'
     }                              .&Apache::loncommon::track_student_link(
                                    &mt('View recent activity'),$content{'sendername'},$content{'senderdomain'},'check')
                               .'</b></td>';
    }
  if (&Apache::lonnet::allowed('opa',$env{'request.course.id'}) && $symb) {   if (&Apache::lonnet::allowed('opa',$env{'request.course.id'}) && $symb) {
     $r->print('<td><b>'.&Apache::loncommon::pprmlink(&mt('Set/Change parameters'),$content{'sendername'},$content{'senderdomain'},$symb,'check').'</b></td>');      $actionlist.='<td><b>'
                           .&Apache::loncommon::pprmlink(
                                &mt('Set/Change parameters'),$content{'sendername'},$content{'senderdomain'},$symb,'check')
                           .'</b></td>';
  }   }
  if (&Apache::lonnet::allowed('mgr',$env{'request.course.id'}) && $symb) {   if (&Apache::lonnet::allowed('mgr',$env{'request.course.id'}) && $symb) {
     $r->print('<td><b>'.&Apache::loncommon::pgrdlink(&mt('Set/Change grades'),$content{'sendername'},$content{'senderdomain'},$symb,'check').'</b></td>');      $actionlist.='<td><b>'
                          .&Apache::loncommon::pgrdlink(
                               &mt('Set/Change grades'),$content{'sendername'},$content{'senderdomain'},$symb,'check')
                          .'</b></td>';
  }   }
  $r->print('</tr></table>');          if ($actionlist) {
               $r->print('<table border="2" width="100%">'
                        .'<tr bgcolor="#FFAAAA"><td>'
                        .&mt('Currently available actions (will open extra window):')
                        .'</td>'
                        .$actionlist
                        .'</tr></table>');
           }
     }      }
     my ($tolist,$cclist);      my ($tolist,$cclist);
     my (@recipients,@ccs);      my (@recipients,@ccs);
Removed from v.1.89  
changed lines
  Added in v.1.90

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