loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

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'}) &&