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

Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.100 and 1.101

version 1.100, 2008/12/05 19:38:32 version 1.101, 2008/12/07 19:29:29
Line 2263  sub displaymessage { Line 2263  sub displaymessage {
 # start output  # start output
     &printheader($r,'/adm/email?display='.&escape($msgid),'Display a Message','',$content{'baseurl'});      &printheader($r,'/adm/email?display='.&escape($msgid),'Display a Message','',$content{'baseurl'});
     my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'});      my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'});
 # Functions  
     $r->print('<table border="2" width="100%"><tr bgcolor="#FFFFAA"><td>'.&mt('Functions').':</td>');  # Functions and Actions
       my $li_start='<span class="LC_nobreak">&bull; ';
       my $li_end='</span> ';
   
   # Prepare available functions
       my $functionlist='';
     if (!$content{'noreplies'}) {      if (!$content{'noreplies'}) {
         $r->print('<td><a href="/adm/email?replyto='.&escape($msgid).$sqs.          $functionlist.=$li_start
           '"><b>'.&mt('Reply').'</b></a></td>');                       .'<a href="/adm/email?replyto='.&escape($msgid).$sqs.'">'
                        .&mt('Reply')
                        .'</a>'
                        .$li_end;
     }      }
     $r->print('<td><a href="/adm/email?forward='.&escape($msgid).$sqs.      $functionlist.=$li_start
       '"><b>'.&mt('Forward').'</b></a></td>'.                    .'<a href="/adm/email?forward='.&escape($msgid).$sqs.'">'
       '<td><a href="/adm/email?markunread='.&escape($msgid).$sqs.                    .&mt('Forward')
       '"><b>'.&mt('Mark Unread').'</b></a></td>'.                    .'</a>'
       '<td><a href="/adm/email?markdel='.&escape($msgid).$sqs.                    .$li_end;
       '"><b>'.&mt('Delete').'</b></a></td>'.      $functionlist.=$li_start
       '<td><a href="/adm/email?'.$sqs.                    .'<a href="/adm/email?markunread='.&escape($msgid).$sqs.'">'
       '"><b>'.&mt('Back to Folder Display').'</b></a></td>');                    .&mt('Mark Unread')
                     .'</a>'
                     .$li_end;
       $functionlist.=$li_start
                     .'<a href="/adm/email?markdel='.&escape($msgid).$sqs.'">'
                     .&mt('Delete')
                     .'</a>'
                     .$li_end;
       $functionlist.=$li_start
                     .'<a href="/adm/email?'.$sqs.'">'
                     .&mt('Back to Folder Display')
                     .'</a>'
                     .$li_end;
     if ($counter > 0){      if ($counter > 0){
  $r->print('<td><a href="/adm/email?display='.$messages[$counter-1]->[5].$sqs.          $functionlist.=$li_start
   '"><b>'.&mt('Previous').'</b></a></td>');                .'<a href="/adm/email?display='.$messages[$counter-1]->[5].$sqs.'">'
                 .&mt('Previous')
                 .'</a>'
                 .$li_end;
     }      }
     if ($counter < $number_of_messages - 1){      if ($counter < $number_of_messages - 1){
  $r->print('<td><a href="/adm/email?display='.$messages[$counter+1]->[5].$sqs.          $functionlist.=$li_start
   '"><b>'.&mt('Next').'</b></a></td>');                .'<a href="/adm/email?display='.$messages[$counter+1]->[5].$sqs.'">'
                 .&mt('Next')
                 .'</a>'
                 .$li_end;
     }      }
     $r->print('</tr></table>');  # Print functions
       $r->print('<div>'
                .'<fieldset>'
                .'<legend>'
                .&mt('Functions')
                .'</legend>'
                .$functionlist
                .'</fieldset>'
                .'</div>'
       );
   
   # Prepare available actions
     my $symb;      my $symb;
     if (defined($content{'symb'})) {      if (defined($content{'symb'})) {
         $symb = $content{'symb'};          $symb = $content{'symb'};
Line 2294  sub displaymessage { Line 2331  sub displaymessage {
     }      }
     if ($env{'user.adv'}) {      if ($env{'user.adv'}) {
         my $actionlist='';          my $actionlist='';
   
  if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) {   if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) {
  $actionlist.='<td><b>'   $actionlist.=$li_start
                             .&Apache::loncommon::track_student_link(                              .&Apache::loncommon::track_student_link(
                                  &mt('View recent activity'),$content{'sendername'},$content{'senderdomain'},'check')                                   &mt('View recent activity'),$content{'sendername'},$content{'senderdomain'},'check')
                             .'</b></td>';                              .$li_end;
  }   }
  if (&Apache::lonnet::allowed('opa',$env{'request.course.id'}) && $symb) {   if (&Apache::lonnet::allowed('opa',$env{'request.course.id'}) && $symb) {
     $actionlist.='<td><b>'      $actionlist.=$li_start
                         .&Apache::loncommon::pprmlink(                          .&Apache::loncommon::pprmlink(
                              &mt('Set/Change parameters'),$content{'sendername'},$content{'senderdomain'},$symb,'check')                               &mt('Set/Change parameters'),$content{'sendername'},$content{'senderdomain'},$symb,'check')
                         .'</b></td>';                          .$li_end;
  }   }
  if (&Apache::lonnet::allowed('mgr',$env{'request.course.id'}) && $symb) {   if (&Apache::lonnet::allowed('mgr',$env{'request.course.id'}) && $symb) {
     $actionlist.='<td><b>'      $actionlist.=$li_start
                        .&Apache::loncommon::pgrdlink(                         .&Apache::loncommon::pgrdlink(
                             &mt('Set/Change grades'),$content{'sendername'},$content{'senderdomain'},$symb,'check')                              &mt('Set/Change grades'),$content{'sendername'},$content{'senderdomain'},$symb,'check')
                        .'</b></td>';                         .$li_end;
  }   }
   
   # Print actions
         if ($actionlist) {          if ($actionlist) {
             $r->print('<table border="2" width="100%">'              $r->print('<div>'
                      .'<tr bgcolor="#FFAAAA"><td>'                       .'<fieldset>'
                        .'<legend>'
                      .&mt('Currently available actions (will open extra window):')                       .&mt('Currently available actions (will open extra window):')
                      .'</td>'                       .'</legend>'
                      .$actionlist                       .$actionlist
                      .'</tr></table>');                       .'</fieldset>'
                        .'</div>'
               );
         }          }
     }      }
   
     my ($tonum,$tolist,$cclist,$bcclist,$groupcclist,%recipients);      my ($tonum,$tolist,$cclist,$bcclist,$groupcclist,%recipients);
     if ($content{'recipid'}) {      if ($content{'recipid'}) {
         $tonum = &retrieve_recips('display',\%content,\%recipients);          $tonum = &retrieve_recips('display',\%content,\%recipients);
Removed from v.1.100  
changed lines
  Added in v.1.101

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