loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.85, 2004/06/01 21:40:57	version 1.86, 2004/06/02 16:41:46
Line 34 use Apache::Constants qw(:common);	Line 34 use Apache::Constants qw(:common);
use Apache::lonmsg();	use Apache::lonmsg();
use Apache::loncommon();	use Apache::loncommon();
use Apache::lontexconvert();	use Apache::lontexconvert();
use Apache::lonlocal;	use Apache::lonlocal; # must not have ()
	use Apache::lonhtmlcommon();

sub list_discussion {	sub list_discussion {
my ($mode,$status,$symb)=@_;	my ($mode,$status,$symb)=@_;
Line 458 sub mail_screen {	Line 459 sub mail_screen {
}	}
}	}
my $latexHelp=&Apache::loncommon::helpLatexCheatsheet();	my $latexHelp=&Apache::loncommon::helpLatexCheatsheet();
my $htmlheader=&Apache::lonhtmlcommon::htmlareaheaders();	my $htmlheader=&Apache::lonhtmlcommon::htmlareaheaders();
my $send=&mt('Send');	my $send=&mt('Send');
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	<html>
Line 502 $htmlheader	Line 503 $htmlheader
}	}

if (rec) {	if (rec) {
	document.mailform.onsubmit();
document.mailform.submit();	document.mailform.submit();
} else {	} else {
alert('Please check a feedback type.');	alert('Please check a feedback type.');