version 1.19, 2001/08/10 22:47:39
|
version 1.20, 2001/08/13 19:36:39
|
Line 13
|
Line 13
|
# 10/19,10/20,10/30, |
# 10/19,10/20,10/30, |
# 02/06/01 Gerd Kortemeyer |
# 02/06/01 Gerd Kortemeyer |
# 07/27 Guy Albertelli |
# 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; |
package Apache::lonmsg; |
|
|
Line 393 sub compout {
|
Line 393 sub compout {
|
ENDREC |
ENDREC |
} |
} |
$r->print(<<"ENDCOMP"); |
$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"> |
<tr><td>Subject:</td><td><input type=text size=50 name=subject value="$dissub"> |
</td></tr></table> |
</td></tr></table> |
<textarea name=message cols=60 rows=10>$dismsg |
<textarea name=message cols=60 rows=10>$dismsg |
Line 534 sub handler {
|
Line 537 sub handler {
|
} else { |
} else { |
$toaddr{$ENV{'form.recuname'}.':'.$ENV{'form.recdomain'}}=1; |
$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 { |
map { |
my ($recuname,$recdomain)=split(/\:/,$_); |
my ($recuname,$recdomain)=split(/\:/,$_); |
if (($ENV{'form.critmsg'}) && |
if (($ENV{'form.critmsg'}) && |