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

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

version 1.90, 2008/08/25 11:20:19 version 1.91, 2008/08/25 14:29:12
Line 2214  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 2271  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 2284  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));
       # Display LON-CAPA Message (End)
     return;      return;
 }  }
   
Removed from v.1.90  
changed lines
  Added in v.1.91

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