loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.93, 2004/03/26 16:57:53	version 1.94, 2004/03/26 17:13:59
Line 756 ENDDISHEADER	Line 756 ENDDISHEADER
# ============================================================== Compose output	# ============================================================== Compose output

sub compout {	sub compout {
my ($r,$forwarding,$replying,$broadcast)=@_;	my ($r,$forwarding,$replying,$broadcast,$replycrit)=@_;

if ($broadcast eq 'individual') {	if ($broadcast eq 'individual') {
&printheader($r,'/adm/email?compose=individual',	&printheader($r,'/adm/email?compose=individual',
Line 776 sub compout {	Line 776 sub compout {
text=>"Display Message"});	text=>"Display Message"});
&printheader($r,'/adm/email?replyto='.&Apache::lonnet::escape($replying),	&printheader($r,'/adm/email?replyto='.&Apache::lonnet::escape($replying),
'Replying to a Message');	'Replying to a Message');
	} elsif ($replycrit) {
	$r->print('<h3>'.&mt('Replying to a Critical Message').'</h3>');
	$replying=$replycrit;
} else {	} else {
&printheader($r,'/adm/email?compose=upload',	&printheader($r,'/adm/email?compose=upload',
'Distribute from Uploaded File');	'Distribute from Uploaded File');
Line 1151 sub handler {	Line 1154 sub handler {
my $msgid=$1;	my $msgid=$1;
$r->print('<b>'.&mt('Confirming Receipt').':</b> '.	$r->print('<b>'.&mt('Confirming Receipt').':</b> '.
&user_crit_received($msgid).'<br>');	&user_crit_received($msgid).'<br>');
&compout($r,'',$msgid);	&compout($r,'','','',$msgid);
}	}
}	}
&discrit($r);	&discrit($r);