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