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

Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.88 and 1.94

version 1.88, 2008/06/06 22:50:41 version 1.94, 2008/10/23 10:15:37
Line 733  sub groupmail_sent { Line 733  sub groupmail_sent {
   
 sub discrit {  sub discrit {
     my $r=shift;      my $r=shift;
     my $header = '<h1><font color="red">'.&mt('Critical Messages').'</font></h1>'.      my $header = '<h1>'.&mt('Critical Messages').'</h1>'
         '<form action="/adm/email" method="POST">'.                  .'<div class="LC_warning">'
         '<input type="hidden" name="confirm" value="true" />';                  .&mt('Access to other pages will be prevented until you have moved all critical messages to your inbox.')
                   .'</div><br />'
                   .'<form action="/adm/email" method="POST">'
                   .'<input type="hidden" name="confirm" value="true" />';
     my %what=&Apache::lonnet::dump('critical');      my %what=&Apache::lonnet::dump('critical');
     my $result = '';      my $result = '';
     foreach my $key (sort(keys(%what))) {      foreach my $key (sort(keys(%what))) {
Line 1236  sub compout { Line 1239  sub compout {
     my $dismsg='';      my $dismsg='';
     my $disbase='';      my $disbase='';
     my $attachrow;      my $attachrow;
     my $func=&mt('Send New');      my $func1='Send'; # do not translate here!
       my %func2=( # do not translate here!
                  'ma'  => 'Message',
                  'msg' => 'Messages',
                 );
     my %lt=&Apache::lonlocal::texthash('us'  => 'Username',      my %lt=&Apache::lonlocal::texthash('us'  => 'Username',
        'do'  => 'Domain',         'do'  => 'Domain',
        'ad'  => 'Additional Recipients',         'ad'  => 'Additional Recipients',
Line 1244  sub compout { Line 1251  sub compout {
                                        'ar'  => 'Allow replies',                                         'ar'  => 'Allow replies',
        'sb'  => 'Subject',         'sb'  => 'Subject',
        'ca'  => 'Cancel',         'ca'  => 'Cancel',
        'ma'  => 'Mail',  
                                        'msg' => 'Messages',  
                                        'gen' => 'Generate messages from a file',                                         'gen' => 'Generate messages from a file',
                                        'gmt' => 'General message text',                                         'gmt' => 'General message text',
                                        'tff' => 'The file format for the uploaded portion of the message is',                                         'tff' => 'The file format for the uploaded portion of the message is',
Line 1253  sub compout { Line 1258  sub compout {
                                        'atta' => 'Attachment',                                         'atta' => 'Attachment',
                                       );                                        );
     my %attachmax = (      my %attachmax = (
                      text => '(128 KB max size)',                       text => &mt('(128 KB max size)'),
                      num  => 131072,                       num  => 131072,
                     );                      );
     if (!$forwarding && !$multiforward) {      if (!$forwarding && !$multiforward) {
Line 1293  sub compout { Line 1298  sub compout {
  %content=&Apache::lonmsg::unpackagemsg($message{$forwarding},$folder);   %content=&Apache::lonmsg::unpackagemsg($message{$forwarding},$folder);
  $dispcrit.='<input type="hidden" name="forwid" value="'.   $dispcrit.='<input type="hidden" name="forwid" value="'.
     $forwarding.'" />';      $forwarding.'" />';
  $func=&mt('Forward');   $func1='Forward'; # do not translate here!
   
  $dissub=&mt('Forwarding').': '.$content{'subject'};   $dissub=&mt('Forwarding').': '.$content{'subject'};
  $dismsg=&mt('Forwarded message from').' '.   $dismsg=&mt('Forwarded message from').' '.
Line 1307  sub compout { Line 1312  sub compout {
  %content=&Apache::lonmsg::unpackagemsg($message{$replying},$folder);   %content=&Apache::lonmsg::unpackagemsg($message{$replying},$folder);
  $dispcrit.='<input type="hidden" name="replyid" value="'.   $dispcrit.='<input type="hidden" name="replyid" value="'.
     $replying.'" />';      $replying.'" />';
  $func=&mt('Send Reply to');   $func1='Send Reply to'; # do not translate here!
   
  $dissub=&mt('Reply').': '.$content{'subject'};          $dissub=&mt('Reply').': '.$content{'subject'};       
  $dismsg='> '.$content{'message'};   $dismsg='> '.$content{'message'};
Line 1418  ENDREPSCRIPT Line 1423  ENDREPSCRIPT
                   &mt('Unless you choose otherwise:').'<ul><li>'.                    &mt('Unless you choose otherwise:').'<ul><li>'.
         &mt("The subject in each forwarded message will be <i>'Forwarding:'</i> followed by the original subject.").'</li><li>'.          &mt("The subject in each forwarded message will be <i>'Forwarding:'</i> followed by the original subject.").'</li><li>'.
         &mt("The message itself will begin with a first line: <i>'Forwarded message from'</i> followed by the original sender's name.").'</li></ul></td></tr>');          &mt("The message itself will begin with a first line: <i>'Forwarded message from'</i> followed by the original sender's name.").'</li></ul></td></tr>');
         $func=&mt('Forward');          $func1='Forward'; # do not translate here!
         $dissub = &mt('Forwarding').': ';          $dissub = &mt('Forwarding').': ';
         $subj_size = '10';          $subj_size = '10';
         my $extra = '&lt;'.&mt('original subject').'&gt;&nbsp;&nbsp;&nbsp;'.          my $extra = '&lt;'.&mt('original subject').'&gt;&nbsp;&nbsp;&nbsp;'.
Line 1437  $latexHelp. Line 1442  $latexHelp.
         foreach my $msg (@to_forward) {          foreach my $msg (@to_forward) {
             $r->print('<input type="hidden" name="delmark" value="'.$msg.'" />');              $r->print('<input type="hidden" name="delmark" value="'.$msg.'" />');
         }          }
         $r->print(&submit_button_row($folder,$dismode,$func.' '.$lt{'msg'},          $r->print(&submit_button_row($folder,$dismode,&mt($func1.' '.$func2{'msg'}),
                                      \%lt));                                       \%lt));
     } elsif ($broadcast ne 'upload') {      } elsif ($broadcast ne 'upload') {
         $subj_size = '50';          $subj_size = '50';
Line 1459  $attachrow Line 1464  $attachrow
 $dispcrit  $dispcrit
 $disbase  $disbase
 ENDCOMP  ENDCOMP
         $r->print(&submit_button_row($folder,$dismode,$func.' '.$lt{'ma'},          $r->print(&submit_button_row($folder,$dismode,&mt($func1.' '.$func2{'ma'}),
                                      \%lt));                                       \%lt));
         $r->print($citation);          $r->print($citation);
         if (exists($env{'form.ref'})) {          if (exists($env{'form.ref'})) {
Line 2093  sub displaymessage { Line 2098  sub displaymessage {
     my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]);      my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]);
     my %content=&Apache::lonmsg::unpackagemsg($message{$msgid});      my %content=&Apache::lonmsg::unpackagemsg($message{$msgid});
     my $counter=0;      my $counter=0;
     $r->print('<pre>');  
     my $escmsgid=&escape($msgid);      my $escmsgid=&escape($msgid);
     foreach (@messages) {      foreach (@messages) {
  if ($_->[5] eq $escmsgid){   if ($_->[5] eq $escmsgid){
Line 2101  sub displaymessage { Line 2105  sub displaymessage {
  }   }
  $counter++;   $counter++;
     }      }
     $r->print('</pre>');  
   
     my $see_anonymous;      my $see_anonymous;
     my $from_student = 0;      my $from_student = 0;
Line 2152  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);
Line 2196  sub displaymessage { Line 2214  sub displaymessage {
  $r->print(&Apache::loncommon::student_image_tag($content{'senderdomain'},$content{'sendername'}));   $r->print(&Apache::loncommon::student_image_tag($content{'senderdomain'},$content{'sendername'}));
     }      }
   
     $r->print('<br /><b>'.&mt('Subject').':</b> '.$content{'subject'});      # Display LON-CAPA Message (Start)
       # Subject
       $r->print('<br />'
                .&Apache::lonhtmlcommon::start_pick_box()
                .&Apache::lonhtmlcommon::row_title(&mt('Subject'))
                .$content{'subject'}
                .&Apache::lonhtmlcommon::row_closure()
       );
     if ($folder eq 'sent') {      if ($folder eq 'sent') {
         $r->print('<br /><b>'.&mt('To').':</b> '.$tolist);          # To
           $r->print(&Apache::lonhtmlcommon::row_title(&mt('To'))
                    .$tolist
                    .&Apache::lonhtmlcommon::row_closure()
           );
         if ($content{'replytoaddr'}) {          if ($content{'replytoaddr'}) {
             my ($replytoname,$replytodom) = split(/:/,$content{'replytoaddr'});              my ($replytoname,$replytodom) = split(/:/,$content{'replytoaddr'});
             if ($replytoname ne '' && $replytodom ne '') {              if ($replytoname ne '' && $replytodom ne '') {
                 $r->print('<br /><b>'.&mt('Reply To').':</b> '.                  $r->print(&Apache::lonhtmlcommon::row_title(&mt('Reply To'))
                           $replytoname.' '.&mt('at').' '.$replytodom);                           .&mt('[_1] at [_2]',$replytoname,$replytodom)
                            .&Apache::lonhtmlcommon::row_closure()
                   );
             }              }
         }          }
     } else {      } else {
         $r->print('<br /><b>'.&mt('From').':</b> '.          # From, Reply
       &Apache::loncommon::aboutmewrapper(          $r->print(&Apache::lonhtmlcommon::row_title(&mt('From'))
  &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),                   .&Apache::loncommon::aboutmewrapper(
  $content{'sendername'},$content{'senderdomain'}));                       &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),
                                                    $content{'sendername'},$content{'senderdomain'})
           );
         if ($content{'noreplies'}) {          if ($content{'noreplies'}) {
             $r->print(' ('.&mt('No replies to sender').')');               $r->print(' ('.&mt('No replies to sender').')'
                        .&Apache::lonhtmlcommon::row_closure()
               ); 
         } else {          } else {
             if ($content{'replytoaddr'}) {              if ($content{'replytoaddr'}) {
                 my ($replytoname,$replytodom) = split(/:/,$content{'replytoaddr'});                  my ($replytoname,$replytodom) = split(/:/,$content{'replytoaddr'});
                 if ($replytoname ne '' && $replytodom ne '') {                  if ($replytoname ne '' && $replytodom ne '') {
                     $r->print('<br /><b>'.&mt('Reply To').':</b> '.                      $r->print(&Apache::lonhtmlcommon::row_closure()
                               $replytoname.' '.&mt('at').' '.$replytodom);                               .&Apache::lonhtmlcommon::row_title(&mt('Reply To'))
                                .&mt('[_1] at [_2]',$replytoname,$replytodom)
                                .&Apache::lonhtmlcommon::row_closure()
                       );
                   } else {
                       $r->print(&Apache::lonhtmlcommon::row_closure());
                 }                  }
             } else {              } else {
                 $r->print(' ('.$content{'sendername'}.' '.&mt('at').' '.                  $r->print(' ('.&mt('[_1] at [_2]',$content{'sendername'},$content{'senderdomain'}).') '
                           $content{'senderdomain'}.') ');                           .&Apache::lonhtmlcommon::row_closure()
                   );
             }              }
             if ($cclist) {              if ($cclist) {
                 $r->print('<br /><b>'.&mt('Cc').':</b> '.$cclist);                  $r->print(&Apache::lonhtmlcommon::row_title(&mt('Cc'))
                            .$cclist
                            .&Apache::lonhtmlcommon::row_closure()
                       );
   
             }              }
         }           }
     }      }
   
       # Course
     if ($content{'courseid'}) {      if ($content{'courseid'}) {
         $r->print('<br /><b>'.&mt($crstype).':</b> '.$courseinfo{'description'});          $r->print(&Apache::lonhtmlcommon::row_title(&mt($crstype))
                    .$courseinfo{'description'}
           );
         if ($content{'coursesec'}) {          if ($content{'coursesec'}) {
             $r->print(' ('.&mt('Section').': '.$content{'coursesec'}.')');              $r->print(' ('.&mt('Section').': '.$content{'coursesec'}.')');
         }          }
           $r->print(&Apache::lonhtmlcommon::row_closure());
     }      }
     $r->print('<br /><b>'.&mt('Time').':</b> '.$content{'time'});      $r->print(&Apache::lonhtmlcommon::row_title(&mt('Time'))
                .$content{'time'}
                .&Apache::lonhtmlcommon::row_closure()
       );
   
       # Refers to
     if ($baseurl) {      if ($baseurl) {
         if (defined($content{'courseid'}) && defined($env{'request.course.id'})) {          if (defined($content{'courseid'}) && defined($env{'request.course.id'})) {
             if ($content{'courseid'} eq $env{'request.course.id'}) {              if ($content{'courseid'} eq $env{'request.course.id'}) {
Line 2253  sub displaymessage { Line 2308  sub displaymessage {
                 if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) {                  if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) {
                     $showurl = $baseurl;                      $showurl = $baseurl;
                 }                  }
                 $r->print('<br /><b>'.&mt('Refers to').':</b> <a href="'.$showurl.$symblink.'">'.$restitle.'</a>');                  $r->print(&Apache::lonhtmlcommon::row_title(&mt('Refers to'))
                            .'<a href="'.$showurl.$symblink.'">'.$restitle.'</a>'
                            .&Apache::lonhtmlcommon::row_closure()
                   );
                 $refers_to = 1;                  $refers_to = 1;
             }              }
         }          }
Line 2266  sub displaymessage { Line 2324  sub displaymessage {
                                                         $content{'courseid'});                                                          $content{'courseid'});
                         if ($unencurl ne '') {                          if ($unencurl ne '') {
                             if (&Apache::lonnet::allowed('bre',$unencurl)) {                              if (&Apache::lonnet::allowed('bre',$unencurl)) {
                                 $r->print('<br /><b>'.&mt('Refers to').                                  $r->print(&Apache::lonhtmlcommon::row_title(&mt('Refers to'))
                                           ':</b> <a href="'.$unencurl.'">'.                                           .'<a href="'.$unencurl.'">'.$restitle.'</a>'
                                           $restitle.'</a>');                                           .&Apache::lonhtmlcommon::row_closure()
                                   );
                             }                              }
                         }                          }
                     }                      }
                 }                  }
             } else {              } else {
                 if (&Apache::lonnet::allowed('bre',$baseurl)) {                  if (&Apache::lonnet::allowed('bre',$baseurl)) {
                     $r->print('<br /><b>'.&mt('Refers to').                      $r->print(&Apache::lonhtmlcommon::row_title(&mt('Refers to'))
                               ':</b> <a href="'.$baseurl.                               .'<a href="'.$baseurl.'">'.$restitle.'</a>'
                               '">'.$restitle.'</a>');                               .&Apache::lonhtmlcommon::row_closure()
                       );
   
                 }                  }
             }              }
         }          }
     }      }
     $r->print('<p><pre>'.  
       &Apache::lontexconvert::msgtexconverted($content{'message'},1).      # Message
       '</pre><hr />'.&displayresource(%content).'</p>');      $r->print(&Apache::lonhtmlcommon::row_title(&mt('Message'))
                .'<pre>'
        .&Apache::lontexconvert::msgtexconverted($content{'message'},1)
        .'</pre>'
       );
       if (&displayresource(%content)) {
           $r->print(&Apache::lonhtmlcommon::row_closure()
                    .&Apache::lonhtmlcommon::row_title(&mt('Resource Details'))
                    .&displayresource(%content)
           );
       } 
       $r->print(&Apache::lonhtmlcommon::row_closure(1).
                 &Apache::lonhtmlcommon::end_pick_box());
       # Display LON-CAPA Message (End)
     return;      return;
 }  }
   
Removed from v.1.88  
changed lines
  Added in v.1.94

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