--- loncom/interface/lonmsg.pm	2001/08/10 22:47:39	1.19
+++ loncom/interface/lonmsg.pm	2001/08/13 19:36:39	1.20
@@ -13,7 +13,7 @@
 # 10/19,10/20,10/30,
 # 02/06/01 Gerd Kortemeyer
 # 07/27 Guy Albertelli
-# 07/27,07/28,07/30,08/03,08/06,08/08,08/09,08/10 Gerd Kortemeyer
+# 07/27,07/28,07/30,08/03,08/06,08/08,08/09,08/10,8/13 Gerd Kortemeyer
 
 package Apache::lonmsg;
 
@@ -393,6 +393,9 @@ sub compout {
 ENDREC
     }
     $r->print(<<"ENDCOMP");
+<tr><td>Additional Recipients<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">
 </td></tr></table>
 <textarea name=message cols=60 rows=10>$dismsg
@@ -534,6 +537,12 @@ sub handler {
       } else {
 	  $toaddr{$ENV{'form.recuname'}.':'.$ENV{'form.recdomain'}}=1;
       }
+      if ($ENV{'form.additionalrec'}) {
+	  map {
+              my ($auname,$audom)=split(/\@/,$_);
+              $toaddr{$auname.':'.$audom}=1;
+          } split(/\,/,$ENV{'form.additionalrec'});
+      }
     map {
       my ($recuname,$recdomain)=split(/\:/,$_);
       if (($ENV{'form.critmsg'}) &&