loncom/interface/lonmsgdisplay.pm - diff

Return to lonmsgdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.30, 2006/05/30 20:09:25	version 1.31, 2006/06/12 22:55:23
Line 1058 ENDTREC	Line 1058 ENDTREC
($env{'form.recdomain'}) && ($env{'form.recuname'})) {	($env{'form.recdomain'}) && ($env{'form.recuname'})) {
chomp($env{'form.newrecord'});	chomp($env{'form.newrecord'});
if ($env{'form.newrecord'}) {	if ($env{'form.newrecord'}) {
my $recordtxt = $env{'form.newrecord'};	&Apache::lonmsg::store_instructor_comment($env{'form.newrecord'},
&Apache::lonmsg::user_normal_msg_raw(	$env{'form.recuname'},
$env{'course.'.$env{'request.course.id'}.'.num'},	$env{'form.recdomain'});
$env{'course.'.$env{'request.course.id'}.'.domain'},
&mt('Record').
' ['.$env{'form.recuname'}.':'.$env{'form.recdomain'}.']',
$recordtxt);
}	}
$r->print('<h3>'.&Apache::loncommon::plainname($env{'form.recuname'},	$r->print('<h3>'.&Apache::loncommon::plainname($env{'form.recuname'},
$env{'form.recdomain'}).'</h3>');	$env{'form.recdomain'}).'</h3>');