loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.94, 2004/03/26 17:13:59	version 1.95, 2004/03/26 19:35:59
Line 101 use Apache::lontexconvert();	Line 101 use Apache::lontexconvert();
use HTML::Entities();	use HTML::Entities();
use Mail::Send;	use Mail::Send;
use Apache::lonlocal;	use Apache::lonlocal;
	use Apache::loncommunicate;

# Querystring component with sorting type	# Querystring component with sorting type
my $sqs;	my $sqs;
Line 1249 sub handler {	Line 1250 sub handler {
$r->print($thismsg.'<br />');	$r->print($thismsg.'<br />');
$sendstatus.=' '.$thismsg;	$sendstatus.=' '.$thismsg;
}	}
	} else {
	&printheader($r,'','No messages sent.');
}	}
if ($sendstatus=~/^(\s(?:ok\|con_delayed)\s)*$/) {	if ($sendstatus=~/^(\s(?:ok\|con_delayed)\s)*$/) {
$r->print('<br /><font color="green">'.&mt('Completed.').'</font>');	$r->print('<br /><font color="green">'.&mt('Completed.').'</font>');
if ($ENV{'form.displayedcrit'}) {	if ($ENV{'form.displayedcrit'}) {
&discrit($r);	&discrit($r);
} else {	} else {
&disall($r);	&Apache::loncommunicate::menu($r);
}	}
} else {	} else {
$r->print(	$r->print(