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

Diff for /loncom/interface/lonmsg.pm between versions 1.66 and 1.69

version 1.66, 2003/10/04 20:49:40 version 1.69, 2003/10/15 21:10:24
Line 115  use Apache::loncommon(); Line 115  use Apache::loncommon();
 use Apache::lontexconvert();  use Apache::lontexconvert();
 use HTML::Entities();  use HTML::Entities();
 use Mail::Send;  use Mail::Send;
   use Apache::lonlocal;
   
 # Querystring component with sorting type  # Querystring component with sorting type
 my $sqs;  my $sqs;
Line 143  sub packagemsg { Line 144  sub packagemsg {
     my $result='<sendername>'.$ENV{'user.name'}.'</sendername>'.      my $result='<sendername>'.$ENV{'user.name'}.'</sendername>'.
            '<senderdomain>'.$ENV{'user.domain'}.'</senderdomain>'.             '<senderdomain>'.$ENV{'user.domain'}.'</senderdomain>'.
            '<subject>'.$subject.'</subject>'.             '<subject>'.$subject.'</subject>'.
    '<time>'.localtime($now).'</time>'.     '<time>'.&Apache::lonlocal::locallocaltime($now).'</time>'.
    '<servername>'.$ENV{'SERVER_NAME'}.'</servername>'.     '<servername>'.$ENV{'SERVER_NAME'}.'</servername>'.
            '<host>'.$ENV{'HTTP_HOST'}.'</host>'.             '<host>'.$ENV{'HTTP_HOST'}.'</host>'.
    '<client>'.$ENV{'REMOTE_ADDR'}.'</client>'.     '<client>'.$ENV{'REMOTE_ADDR'}.'</client>'.
Line 186  sub unpackagemsg { Line 187  sub unpackagemsg {
     if ($content{'attachmenturl'}) {      if ($content{'attachmenturl'}) {
        my ($fname,$ft)=($content{'attachmenturl'}=~/\/(\w+)\.(\w+)$/);         my ($fname,$ft)=($content{'attachmenturl'}=~/\/(\w+)\.(\w+)$/);
        if ($notoken) {         if ($notoken) {
    $content{'message'}.='<p>Attachment: <tt>'.$fname.'.'.$ft.'</tt>';     $content{'message'}.='<p>'.&mt('Attachment').': <tt>'.$fname.'.'.$ft.'</tt>';
        } else {         } else {
    $content{'message'}.='<p>Attachment: <a href="'.     $content{'message'}.='<p>'.&mt('Attachment').': <a href="'.
        &Apache::lonnet::tokenwrapper($content{'attachmenturl'}).         &Apache::lonnet::tokenwrapper($content{'attachmenturl'}).
        '"><tt>'.$fname.'.'.$ft.'</tt></a>';         '"><tt>'.$fname.'.'.$ft.'</tt></a>';
        }         }
Line 212  sub unpackmsgid { Line 213  sub unpackmsgid {
 sub sendemail {  sub sendemail {
     my ($to,$subject,$body)=@_;      my ($to,$subject,$body)=@_;
     $body=      $body=
     "*** This is an automatic message generated by the LON-CAPA system.\n".      "*** ".&mt('This is an automatic message generated by the LON-CAPA system.')."\n".
     "*** Please do not reply to this address.\n\n".$body;      "*** ".&mt('Please do not reply to this address.')."\n\n".$body;
     my $msg = new Mail::Send;      my $msg = new Mail::Send;
     $msg->to($to);      $msg->to($to);
     $msg->subject('[LON-CAPA] '.$subject);      $msg->subject('[LON-CAPA] '.$subject);
     my $fh = $msg->open('smtp',Server => 'localhost');      if (my $fh = $msg->open('smtp',Server => 'localhost')) {
     print $fh $body;   print $fh $body;
     $fh->close;   $fh->close;
       }
 }  }
   
 # ==================================================== Send notification emails  # ==================================================== Send notification emails
Line 362  sub user_crit_received { Line 364  sub user_crit_received {
     my %contents=&unpackagemsg($message{$msgid},1);      my %contents=&unpackagemsg($message{$msgid},1);
     my $status='rec: '.($contents{'sendback'}?      my $status='rec: '.($contents{'sendback'}?
      &user_normal_msg($contents{'sendername'},$contents{'senderdomain'},       &user_normal_msg($contents{'sendername'},$contents{'senderdomain'},
                      'Receipt: '.$ENV{'user.name'}.' at '.$ENV{'user.domain'},                       &mt('Receipt').': '.$ENV{'user.name'}.' at '.$ENV{'user.domain'},
                      'User '.$ENV{'user.name'}.' at '.$ENV{'user.domain'}.                       &mt('User').' '.$ENV{'user.name'}.' '.&mt('at').' '.$ENV{'user.domain'}.
                      ' acknowledged receipt of message'."\n".'   "'.                       ' acknowledged receipt of message'."\n".'   "'.
                      $contents{'subject'}.'"'."\n".'dated '.                       $contents{'subject'}.'"'."\n".&mt('dated').' '.
                      $contents{'time'}.".\n"                       $contents{'time'}.".\n"
                      ):'no msg req');                       ):'no msg req');
     $status.=' trans: '.      $status.=' trans: '.
Line 469  sub discourse { Line 471  sub discourse {
    $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 $now=time;      my $now=time;
       my %lt=&Apache::lonlocal::texthash('cfa' => 'Check for All',
               'cfs' => 'Check for Section/Group',
               'cfn' => 'Check for None');
     $r->print(<<ENDDISHEADER);      $r->print(<<ENDDISHEADER);
 <input type=hidden name=sendmode value=group>  <input type=hidden name=sendmode value=group>
 <script>  <script>
Line 500  sub discourse { Line 505  sub discourse {
         }          }
     }      }
 </script>  </script>
 <input type=button onClick="checkall()" value="Check for All">&nbsp;  <input type=button onClick="checkall()" value="$lt{'cfa'}">&nbsp;
 <input type=button onClick="checksec()" value="Check for Section/Group">  <input type=button onClick="checksec()" value="$lt{'cfs'}">
 <input type=text size=5 name=chksec>&nbsp;  <input type=text size=5 name=chksec>&nbsp;
 <input type=button onClick="uncheckall()" value="Check for None">  <input type=button onClick="uncheckall()" value="$lt{'cfn'}">
 <p>  <p>
 ENDDISHEADER  ENDDISHEADER
     my %coursepersonnel=      my %coursepersonnel=
Line 545  ENDDISHEADER Line 550  ENDDISHEADER
   
 sub discrit {  sub discrit {
     my $r=shift;      my $r=shift;
     my $header = '<h1><font color=red>Critical Messages</font></h1>'.      my $header = '<h1><font color=red>'.&mt('Critical Messages').'</font></h1>'.
         '<form action=/adm/email method=post>'.          '<form action=/adm/email method=post>'.
         '<input type=hidden name=confirm value=true>';          '<input type=hidden name=confirm value=true>';
     my %what=&Apache::lonnet::dump('critical');      my %what=&Apache::lonnet::dump('critical');
Line 554  sub discrit { Line 559  sub discrit {
         my %content=&unpackagemsg($what{$_});          my %content=&unpackagemsg($what{$_});
         next if ($content{'senderdomain'} eq '');          next if ($content{'senderdomain'} eq '');
         $content{'message'}=~s/\n/\<br\>/g;          $content{'message'}=~s/\n/\<br\>/g;
         $result.='<hr>From: <b>'.          $result.='<hr>'.&mt('From').': <b>'.
 &Apache::loncommon::aboutmewrapper(  &Apache::loncommon::aboutmewrapper(
  &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).'</b> ('.   &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).'</b> ('.
 $content{'sendername'}.'@'.  $content{'sendername'}.'@'.
             $content{'senderdomain'}.') '.$content{'time'}.              $content{'senderdomain'}.') '.$content{'time'}.
             '<br>Subject: '.$content{'subject'}.              '<br>'.&mt('Subject').': '.$content{'subject'}.
             '<br><blockquote>'.              '<br><blockquote>'.
               &Apache::lontexconvert::msgtexconverted($content{'message'}).                &Apache::lontexconvert::msgtexconverted($content{'message'}).
             '</blockquote>'.              '</blockquote>'.
             '<input type=submit name="rec_'.$_.'" value="Confirm Receipt">'.              '<input type=submit name="rec_'.$_.'" value="'.&mt('Confirm Receipt').'">'.
             '<input type=submit name="reprec_'.$_.'" '.              '<input type=submit name="reprec_'.$_.'" '.
                   'value="Confirm Receipt and Reply">';                    'value="'.&mt('Confirm Receipt and Reply').'">';
     }      }
     # Check to see if there were any messages.      # Check to see if there were any messages.
     if ($result eq '') {      if ($result eq '') {
         $result = "<h2>You have no critical messages.</h2>".          $result = "<h2>".&mt('You have no critical messages.')."</h2>".
     '<a href="/adm/roles">Select a course</a>';      '<a href="/adm/roles">'.&mt('Select a course').'</a>';
     } else {      } else {
         $r->print($header);          $r->print($header);
     }      }
Line 592  sub comprep { Line 597  sub comprep {
  &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).' ('.   &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).' ('.
 $content{'sendername'}.'@'.  $content{'sendername'}.'@'.
             $content{'senderdomain'}.')';              $content{'senderdomain'}.')';
       my $subject='Re: '.$content{'subject'};        my $subject=&mt('Re').': '.$content{'subject'};
       my $dispcrit='';        my $dispcrit='';
       if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {        if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
  my $crithelp = Apache::loncommon::help_open_topic("Course_Critical_Message");   my $crithelp = Apache::loncommon::help_open_topic("Course_Critical_Message");
          $dispcrit=           $dispcrit=
  '<input type=checkbox name=critmsg> Send as critical message ' . $crithelp .    '<input type=checkbox name=critmsg> '.&mt('Send as critical message').' ' . $crithelp . 
  '<br>'.   '<br>'.
  '<input type=checkbox name=sendbck> Send as critical message ' .   '<input type=checkbox name=sendbck> '.&mt('Send as critical message').' ' .
  ' and return receipt' . $crithelp . '<p>';   &mt('and return receipt') . $crithelp . '<p>';
       }        }
       my %lt=&Apache::lonlocal::texthash(
      'to' => 'To',
      'sb' => 'Subject',
      'sr' => 'Send Reply',
      'ca' => 'Cancel'
      );
       $r->print(<<"ENDREPLY");        $r->print(<<"ENDREPLY");
 <form action="/adm/email" method=post>  <form action="/adm/email" method="post">
 <input type=hidden name=sendreply value="$msgid">  <input type="hidden" name="sendreply" value="$msgid">
 To: $torepl<br />  $lt{'to'}: $torepl<br />
 Subject: <input type=text size=50 name=subject value="$subject"><p>  $lt{'sb'}: <input type="text" size=50 name="subject" value="$subject"><p>
 <textarea name=message cols=84 rows=10 wrap=hard>  <textarea name="message" cols="84" rows="10" wrap="hard">
 $quotemsg  $quotemsg
 </textarea><p>  </textarea></p><br />
 $dispcrit  $dispcrit
 <input type=submit value="Send Reply">  <input type="submit" name="send" value="$lt{'sr'}" />
   <input type="submit" name="cancel" value="$lt{'ca'}"/ >
 </form>  </form>
 ENDREPLY  ENDREPLY
 }  }
Line 688  sub disall { Line 700  sub disall {
     }      }
 </script>  </script>
 ENDDISHEADER  ENDDISHEADER
     $r->print('<h1>Display All Messages</h1><form method=post name=disall '.      $r->print('<h1>'.&mt('Display All Messages').'</h1><form method=post name=disall '.
       'action="/adm/email">'.        'action="/adm/email">'.
       '<table border=2><tr><th colspan=2>&nbsp</th><th>');        '<table border=2><tr><th colspan=2>&nbsp</th><th>');
     if ($ENV{'form.sortedby'} eq "revdate") {      if ($ENV{'form.sortedby'} eq "revdate") {
  $r->print('<a href = "?sortedby=date">Date</a></th>');   $r->print('<a href = "?sortedby=date">'.&mt('Date').'</a></th>');
     } else {      } else {
  $r->print('<a href = "?sortedby=revdate">Date</a></th>');   $r->print('<a href = "?sortedby=revdate">'.&mt('Date').'</a></th>');
     }      }
     $r->print('<th>');      $r->print('<th>');
     if ($ENV{'form.sortedby'} eq "revuser") {      if ($ENV{'form.sortedby'} eq "revuser") {
  $r->print('<a href = "?sortedby=user">Username</a>');   $r->print('<a href = "?sortedby=user">'.&mt('Username').'</a>');
     } else {      } else {
  $r->print('<a href = "?sortedby=revuser">Username</a>');   $r->print('<a href = "?sortedby=revuser">'.&mt('Username').'</a>');
     }      }
     $r->print('</th><th>');      $r->print('</th><th>');
     if ($ENV{'form.sortedby'} eq "revdomain") {      if ($ENV{'form.sortedby'} eq "revdomain") {
  $r->print('<a href = "?sortedby=domain">Domain</a>');   $r->print('<a href = "?sortedby=domain">'.&mt('Domain').'</a>');
     } else {      } else {
  $r->print('<a href = "?sortedby=revdomain">Domain</a>');   $r->print('<a href = "?sortedby=revdomain">'.&mt('Domain').'</a>');
     }      }
     $r->print('</th><th>');      $r->print('</th><th>');
     if ($ENV{'form.sortedby'} eq "revsubject") {      if ($ENV{'form.sortedby'} eq "revsubject") {
  $r->print('<a href = "?sortedby=subject">Subject</a>');   $r->print('<a href = "?sortedby=subject">'.&mt('Subject').'</a>');
     } else {      } else {
     $r->print('<a href = "?sortedby=revsubject">Subject</a>');      $r->print('<a href = "?sortedby=revsubject">'.&mt('Subject').'</a>');
     }      }
     $r->print('</th><th>');      $r->print('</th><th>');
     if ($ENV{'form.sortedby'} eq "revstatus") {      if ($ENV{'form.sortedby'} eq "revstatus") {
  $r->print('<a href = "?sortedby=status">Status</th>');   $r->print('<a href = "?sortedby=status">'.&mt('Status').'</th>');
     } else {      } else {
       $r->print('<a href = "?sortedby=revstatus">Status</th>');        $r->print('<a href = "?sortedby=revstatus">'.&mt('Status').'</th>');
     }      }
     $r->print('</tr>');      $r->print('</tr>');
     my @temp=sortedmessages();      my @temp=sortedmessages();
Line 735  ENDDISHEADER Line 747  ENDDISHEADER
  $r->print('<tr bgcolor="#99BBBB">');   $r->print('<tr bgcolor="#99BBBB">');
     }      }
     $r->print('<td><a href="/adm/email?display='.$origID.$sqs.       $r->print('<td><a href="/adm/email?display='.$origID.$sqs. 
       '">Open</a></td><td><a href="/adm/email?markdel='.$origID.$sqs.        '">'.&mt('Open').'</a></td><td><a href="/adm/email?markdel='.$origID.$sqs.
       '">Delete</a><input type=checkbox name="delmark_'.$origID.'"></td>'.        '">'.&mt('Delete').'</a><input type=checkbox name="delmark_'.$origID.'"></td>'.
       '<td>'.&Apache::lonlocal::locallocaltime($sendtime).'</td><td>'.        '<td>'.&Apache::lonlocal::locallocaltime($sendtime).'</td><td>'.
       $fromname.'</td><td>'.$fromdomain.'</td><td>'.        $fromname.'</td><td>'.$fromdomain.'</td><td>'.
       &Apache::lonnet::unescape($shortsubj).'</td><td>'.        &Apache::lonnet::unescape($shortsubj).'</td><td>'.
Line 744  ENDDISHEADER Line 756  ENDDISHEADER
  }   }
     }         }   
     $r->print('</table><p>'.      $r->print('</table><p>'.
               '<a href="javascript:checkall()">Check All</a>&nbsp;'.                '<a href="javascript:checkall()">'.&mt('Check All').'</a>&nbsp;'.
               '<a href="javascript:uncheckall()">Uncheck All</a><p>'.                '<a href="javascript:uncheckall()">'.&mt('Uncheck All').'</a><p>'.
       '<input type="hidden" name="sortedby" value="'.$ENV{'form.sortedby'}.'" />'.        '<input type="hidden" name="sortedby" value="'.$ENV{'form.sortedby'}.'" />'.
               '<input type=submit name="markeddel" value="Delete Checked">'.                '<input type=submit name="markeddel" value="'.&mt('Delete Checked').'">'.
               '</form></body></html>');                '</form></body></html>');
 }  }
   
Line 758  sub compout { Line 770  sub compout {
       my $dispcrit='';        my $dispcrit='';
     my $dissub='';      my $dissub='';
     my $dismsg='';      my $dismsg='';
     my $func='Send New';      my $func=&mt('Send New');
       if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {      my %lt=&Apache::lonlocal::texthash('us' => 'Username',
          'do' => 'Domain',
          'ad' => 'Additional Recipients',
          'sb' => 'Subject',
          'ca' => 'Cancel',
          'ma' => 'Mail');
   
       if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
  my $crithelp = Apache::loncommon::help_open_topic("Course_Critical_Message");   my $crithelp = Apache::loncommon::help_open_topic("Course_Critical_Message");
          $dispcrit=           $dispcrit=
  '<input type=checkbox name=critmsg> Send as critical message ' . $crithelp .    '<input type="checkbox" name="critmsg"> '.&mt('Send as critical message').' ' . $crithelp . 
  '<br>'.   '<br>'.
  '<input type=checkbox name=sendbck> Send as critical message ' .   '<input type="checkbox" name="sendbck"> '.&mt('Send as critical message').'  ' .
  ' and return receipt' . $crithelp . '<p>';   &mt('and return receipt') . $crithelp . '<p>';
       }        }
     if ($forwarding) {      if ($forwarding) {
        $dispcrit.='<input type=hidden name=forwid value="'.         $dispcrit.='<input type="hidden" name="forwid" value="'.
    $forwarding.'">';     $forwarding.'">';
        $func='Forward';         $func=&mt('Forward');
       my %message=&Apache::lonnet::get('nohist_email',[$forwarding]);        my %message=&Apache::lonnet::get('nohist_email',[$forwarding]);
       my %content=&unpackagemsg($message{$forwarding});        my %content=&unpackagemsg($message{$forwarding});
   
        $dissub='Forwarding: '.$content{'subject'};         $dissub=&mt('Forwarding').': '.$content{'subject'};
        $dismsg='Forwarded message from '.         $dismsg=&mt('Forwarded message from').' '.
    $content{'sendername'}.' at '.$content{'senderdomain'};     $content{'sendername'}.' '.&mt('at').' '.$content{'senderdomain'};
     }      }
     my $defdom=$ENV{'user.domain'};      my $defdom=$ENV{'user.domain'};
     if ($ENV{'form.recdom'}) { $defdom=$ENV{'form.recdom'}; }      if ($ENV{'form.recdom'}) { $defdom=$ENV{'form.recdom'}; }
Line 791  sub compout { Line 810  sub compout {
     ('compemail','recuname','recdomain');      ('compemail','recuname','recdomain');
        $r->print(<<"ENDREC");         $r->print(<<"ENDREC");
 <table>  <table>
 <tr><td>Username:</td><td><input type=text size=12 name=recuname value="$ENV{'form.recname'}"></td><td rowspan="2">$selectlink</td></tr>  <tr><td>$lt{'us'}:</td><td><input type="text" size="12" name="recuname" value="$ENV{'form.recname'}"></td><td rowspan="2">$selectlink</td></tr>
 <tr><td>Domain:</td>  <tr><td>$lt{'do'}:</td>
 <td>$domform</td></tr>  <td>$domform</td></tr>
 ENDREC  ENDREC
     }      }
     my $latexHelp = Apache::loncommon::helpLatexCheatsheet();      my $latexHelp = Apache::loncommon::helpLatexCheatsheet();
     if ($broadcast ne 'upload') {      if ($broadcast ne 'upload') {
        $r->print(<<"ENDCOMP");         $r->print(<<"ENDCOMP");
 <tr><td>Additional Recipients<br><tt>username\@domain,username\@domain, ...  <tr><td>$lt{'ad'}<br /><tt>username\@domain,username\@domain, ...
 </tt></td><td>  </tt></td><td>
 <input type=text size=50 name=additionalrec></td></tr>  <input type="text" size="50" name="additionalrec"></td></tr>
 <tr><td>Subject:</td><td><input type=text size=50 name=subject value="$dissub">  <tr><td>$lt{'sb'}:</td><td><input type="text" size="50" name="subject" value="$dissub">
 </td></tr></table>  </td></tr></table>
 $latexHelp  $latexHelp
 <textarea name=message cols=80 rows=10 wrap=hard>$dismsg  <textarea name="message" cols="80" rows="10" wrap="hard">$dismsg
 </textarea><p>  </textarea></p><br />
 $dispcrit  $dispcrit
 <input type=submit value="$func Mail">  <input type="submit" name="send" value="$func $lt{'ma'}" />
   <input type="submit" name="cancel" value="$lt{'ca'}" />
 ENDCOMP  ENDCOMP
     } else { # $broadcast is 'upload'      } else { # $broadcast is 'upload'
  $r->print(<<ENDUPLOAD);   $r->print(<<ENDUPLOAD);
Line 861  sub disfacetoface { Line 881  sub disfacetoface {
         next if ($content{'senderdomain'} eq '');          next if ($content{'senderdomain'} eq '');
         $content{'message'}=~s/\n/\<br\>/g;          $content{'message'}=~s/\n/\<br\>/g;
         if ($content{'subject'}=~/^Record/) {          if ($content{'subject'}=~/^Record/) {
     $result.='<h3>Record</h3>';      $result.='<h3>'.&mt('Record').'</h3>';
         } else {          } else {
             $result.='<h3>Sent Message</h3>';              $result.='<h3>'.&mt('Sent Message').'</h3>';
             %content=&unpackagemsg($content{'message'});              %content=&unpackagemsg($content{'message'});
             $content{'message'}=              $content{'message'}=
                 '<b>Subject: '.$content{'subject'}.'</b><br />'.                  '<b>Subject: '.$content{'subject'}.'</b><br />'.
  $content{'message'};   $content{'message'};
         }          }
         $result.='By: <b>'.          $result.=&mt('By').': <b>'.
 &Apache::loncommon::aboutmewrapper(  &Apache::loncommon::aboutmewrapper(
  &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).'</b> ('.   &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).'</b> ('.
 $content{'sendername'}.'@'.  $content{'sendername'}.'@'.
Line 955  sub handler { Line 975  sub handler {
   
 # ----------------------------------------------------------- Set document type  # ----------------------------------------------------------- Set document type
   
   $r->content_type('text/html');    &Apache::loncommon::content_type($r,'text/html');
   $r->send_http_header;    $r->send_http_header;
   
   return OK if $r->header_only;    return OK if $r->header_only;
Line 1000  sub handler { Line 1020  sub handler {
       $r->print(&Apache::loncommon::studentbrowser_javascript().        $r->print(&Apache::loncommon::studentbrowser_javascript().
  '</head>'.   '</head>'.
  &Apache::loncommon::bodytag('EMail and Messages'));   &Apache::loncommon::bodytag('EMail and Messages'));
       $r->print('<b>Subject:</b> '.$content{'subject'}.        $r->print('<b>'.&mt('Subject').':</b> '.$content{'subject'}.
              '<br><b>From:</b> '.               '<br><b>'.&mt('From').':</b> '.
 &Apache::loncommon::aboutmewrapper(  &Apache::loncommon::aboutmewrapper(
 &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),  &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),
 $content{'sendername'},$content{'senderdomain'}).' ('.  $content{'sendername'},$content{'senderdomain'}).' ('.
                                  $content{'sendername'}.' at '.                                   $content{'sendername'}.' at '.
                                  $content{'senderdomain'}.') '.                                   $content{'senderdomain'}.') '.
              '<br><b>Time:</b> '.$content{'time'}.'<p>'.               '<br><b>'.&mt('Time').':</b> '.$content{'time'}.'<p>'.
              '<table border=2><tr bgcolor="#FFFFAA"><td>Functions:</td>'.               '<table border=2><tr bgcolor="#FFFFAA"><td>'.&mt('Functions').':</td>'.
            '<td><a href="/adm/email?replyto='.&Apache::lonnet::escape($msgid).$sqs.             '<td><a href="/adm/email?replyto='.&Apache::lonnet::escape($msgid).$sqs.
              '"><b>Reply</b></a></td>'.               '"><b>'.&mt('Reply').'</b></a></td>'.
            '<td><a href="/adm/email?forward='.&Apache::lonnet::escape($msgid).$sqs.             '<td><a href="/adm/email?forward='.&Apache::lonnet::escape($msgid).$sqs.
              '"><b>Forward</b></a></td>'.               '"><b>'.&mt('Forward').'</b></a></td>'.
         '<td><a href="/adm/email?markunread='.&Apache::lonnet::escape($msgid).$sqs.          '<td><a href="/adm/email?markunread='.&Apache::lonnet::escape($msgid).$sqs.
              '"><b>Mark Unread</b></a></td>'.               '"><b>'.&mt('Mark Unread').'</b></a></td>'.
         '<td><a href="/adm/email?markdel='.&Apache::lonnet::escape($msgid).$sqs.          '<td><a href="/adm/email?markdel='.&Apache::lonnet::escape($msgid).$sqs.
              '"><b>Delete</b></a></td>'.               '"><b>Delete</b></a></td>'.
  '<td><a href="/adm/email?sortedby='.$ENV{'form.sortedby'}.   '<td><a href="/adm/email?sortedby='.$ENV{'form.sortedby'}.
  '"><b>Display all Messages</b></a></td>');   '"><b>'.&mt('Display all Messages').'</b></a></td>');
       if ($counter > 0){        if ($counter > 0){
    $r->print('<td><a href="/adm/email?display='.$messages[$counter-1]->[5].$sqs.     $r->print('<td><a href="/adm/email?display='.$messages[$counter-1]->[5].$sqs.
            '"><b>Previous</b></a></td>');             '"><b>'.&mt('Previous').'</b></a></td>');
        }         }
        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.     $r->print('<td><a href="/adm/email?display='.$messages[$counter+1]->[5].$sqs.
            '"><b>Next</b></a></td>');             '"><b>'.&mt('Next').'</b></a></td>');
        }         }
        $r->print('</tr></table><p><pre>'.         $r->print('</tr></table><p><pre>'.
              &Apache::lontexconvert::msgtexconverted($content{'message'}).               &Apache::lontexconvert::msgtexconverted($content{'message'}).
Line 1033  $content{'sendername'},$content{'senderd Line 1053  $content{'sendername'},$content{'senderd
   } elsif ($ENV{'form.replyto'}) {    } elsif ($ENV{'form.replyto'}) {
       &comprep($r,$ENV{'form.replyto'});        &comprep($r,$ENV{'form.replyto'});
   } elsif ($ENV{'form.sendreply'}) {    } elsif ($ENV{'form.sendreply'}) {
       my $msgid=$ENV{'form.sendreply'};        if ($ENV{'form.send'}) {
       my %message=&Apache::lonnet::get('nohist_email',[$msgid]);    my $msgid=$ENV{'form.sendreply'};
       my %content=&unpackagemsg($message{$msgid},1);    my %message=&Apache::lonnet::get('nohist_email',[$msgid]);
       &statuschange($msgid,'replied');    my %content=&unpackagemsg($message{$msgid},1);
       if ((($ENV{'form.critmsg'}) || ($ENV{'form.sendbck'})) &&     &statuschange($msgid,'replied');
           (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {    if ((($ENV{'form.critmsg'}) || ($ENV{'form.sendbck'})) && 
          $r->print('Sending critical: '.        (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {
                 &user_crit_msg($content{'sendername'},        $r->print(&mt('Sending critical').': '.
                                  $content{'senderdomain'},   &user_crit_msg($content{'sendername'},
                                  &Apache::lonfeedback::clear_out_html($ENV{'form.subject'}),         $content{'senderdomain'},
                                  &Apache::lonfeedback::clear_out_html($ENV{'form.message'}),         &Apache::lonfeedback::clear_out_html($ENV{'form.subject'}),
                                  $ENV{'form.sendbck'}));         &Apache::lonfeedback::clear_out_html($ENV{'form.message'}),
       } else {         $ENV{'form.sendbck'}));
          $r->print('Sending: '.&user_normal_msg($content{'sendername'},    } else {
                                  $content{'senderdomain'},        $r->print(&mt('Sending').': '.&user_normal_msg($content{'sendername'},
                                  &Apache::lonfeedback::clear_out_html($ENV{'form.subject'}),       $content{'senderdomain'},
                                  &Apache::lonfeedback::clear_out_html($ENV{'form.message'})));       &Apache::lonfeedback::clear_out_html($ENV{'form.subject'}),
        &Apache::lonfeedback::clear_out_html($ENV{'form.message'})));
     }
       }        }
       if ($ENV{'form.displayedcrit'}) {        if ($ENV{'form.displayedcrit'}) {
           &discrit($r);            &discrit($r);
Line 1096  $content{'sendername'},$content{'senderd Line 1118  $content{'sendername'},$content{'senderd
   } elsif ($ENV{'form.recordftf'}) {    } elsif ($ENV{'form.recordftf'}) {
       &facetoface($r,$ENV{'form.recordftf'});        &facetoface($r,$ENV{'form.recordftf'});
   } elsif ($ENV{'form.sendmail'}) {    } elsif ($ENV{'form.sendmail'}) {
       my %content=();        if ($ENV{'form.send'}) {
       undef %content;    my %content=();
       if ($ENV{'form.forwid'}) {    undef %content;
         my $msgid=$ENV{'form.forwid'};    if ($ENV{'form.forwid'}) {
         my %message=&Apache::lonnet::get('nohist_email',[$msgid]);        my $msgid=$ENV{'form.forwid'};
         %content=&unpackagemsg($message{$msgid},1);        my %message=&Apache::lonnet::get('nohist_email',[$msgid]);
         &statuschange($msgid,'forwarded');        %content=&unpackagemsg($message{$msgid},1);
         $ENV{'form.message'}.="\n\n-- Forwarded message --\n\n".        &statuschange($msgid,'forwarded');
                        $content{'message'};        $ENV{'form.message'}.="\n\n-- Forwarded message --\n\n".
       }    $content{'message'};
       my %toaddr=();    }
       undef %toaddr;    my %toaddr=();
       if ($ENV{'form.sendmode'} eq 'group') {    undef %toaddr;
           foreach (keys %ENV) {    if ($ENV{'form.sendmode'} eq 'group') {
       if ($_=~/^form\.send\_to\_\&\&\&[^\&]*\&\&\&\_(.+)$/) {        foreach (keys %ENV) {
   $toaddr{$1}='';    if ($_=~/^form\.send\_to\_\&\&\&[^\&]*\&\&\&\_(.+)$/) {
               }        $toaddr{$1}='';
           }    }
       } elsif ($ENV{'form.sendmode'} eq 'upload') {        }
           foreach (split(/[\n\r\f]+/,$ENV{'form.upfile'})) {    } elsif ($ENV{'form.sendmode'} eq 'upload') {
               my ($rec,$txt)=split(/\s*\:\s*/,$_);        foreach (split(/[\n\r\f]+/,$ENV{'form.upfile'})) {
               if ($txt) {    my ($rec,$txt)=split(/\s*\:\s*/,$_);
   $rec=~s/\@/\:/;    if ($txt) {
                   $toaddr{$rec}.=$txt."\n";        $rec=~s/\@/\:/;
               }        $toaddr{$rec}.=$txt."\n";
           }    }
       } else {        }
   $toaddr{$ENV{'form.recuname'}.':'.$ENV{'form.recdomain'}}='';    } else {
       }        $toaddr{$ENV{'form.recuname'}.':'.$ENV{'form.recdomain'}}='';
       if ($ENV{'form.additionalrec'}) {    }
   foreach (split(/\,/,$ENV{'form.additionalrec'})) {    if ($ENV{'form.additionalrec'}) {
               my ($auname,$audom)=split(/\@/,$_);        foreach (split(/\,/,$ENV{'form.additionalrec'})) {
               $toaddr{$auname.':'.$audom}='';    my ($auname,$audom)=split(/\@/,$_);
           }    $toaddr{$auname.':'.$audom}='';
       }        }
     foreach (keys %toaddr) {    }
       my ($recuname,$recdomain)=split(/\:/,$_);    foreach (keys %toaddr) {
       my $msgtxt=&Apache::lonfeedback::clear_out_html($ENV{'form.message'});        my ($recuname,$recdomain)=split(/\:/,$_);
       if ($toaddr{$_}) { $msgtxt.='<hr>'.$toaddr{$_}; }            my $msgtxt=&Apache::lonfeedback::clear_out_html($ENV{'form.message'});
       if ((($ENV{'form.critmsg'}) || ($ENV{'form.sendbck'})) &&         if ($toaddr{$_}) { $msgtxt.='<hr>'.$toaddr{$_}; }    
           (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {        if ((($ENV{'form.critmsg'}) || ($ENV{'form.sendbck'})) && 
          $r->print('Sending critical: '.    (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {
                 &user_crit_msg($recuname,$recdomain,    $r->print('Sending critical: '.
                &Apache::lonfeedback::clear_out_html($ENV{'form.subject'}),      &user_crit_msg($recuname,$recdomain,
                                  $msgtxt,     &Apache::lonfeedback::clear_out_html($ENV{'form.subject'}),
                                  $ENV{'form.sendbck'}));     $msgtxt,
       } else {     $ENV{'form.sendbck'}));
          $r->print('Sending: '.&user_normal_msg($recuname,$recdomain,        } else {
               &Apache::lonfeedback::clear_out_html($ENV{'form.subject'}),    $r->print('Sending: '.&user_normal_msg($recuname,$recdomain,
                                  $msgtxt,   &Apache::lonfeedback::clear_out_html($ENV{'form.subject'}),
                                  $content{'citation'}));   $msgtxt,
    $content{'citation'}));
         }
         $r->print('<br />');
     }
       }        }
       $r->print('<br>');  
     }  
       if ($ENV{'form.displayedcrit'}) {        if ($ENV{'form.displayedcrit'}) {
           &discrit($r);            &discrit($r);
       } else {        } else {
Removed from v.1.66  
changed lines
  Added in v.1.69

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