loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.50, 2003/08/06 17:00:30	version 1.51, 2003/09/03 18:09:50
Line 56 sub mail_screen {	Line 56 sub mail_screen {
my ($r,$feedurl,$options) = @_;	my ($r,$feedurl,$options) = @_;
my $bodytag=&Apache::loncommon::bodytag('Resource Feedback and Discussion',	my $bodytag=&Apache::loncommon::bodytag('Resource Feedback and Discussion',
'','onLoad="window.focus();"');	'','onLoad="window.focus();"');
	my $title=&Apache::lonnet::gettitle($feedurl);
	if (!$title) { $title = $feedurl; }
my $latexHelp = Apache::loncommon::helpLatexCheatsheet();	my $latexHelp = Apache::loncommon::helpLatexCheatsheet();
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	<html>
Line 105 sub mail_screen {	Line 107 sub mail_screen {
</script>	</script>
</head>	</head>
$bodytag	$bodytag
<h2><tt>$feedurl</tt></h2>	<h2><tt>$title</tt></h2>
<form action="/adm/feedback" method="post" name="mailform"	<form action="/adm/feedback" method="post" name="mailform"
enctype="multipart/form-data">	enctype="multipart/form-data">
<input type=hidden name=postdata value="$feedurl">	<input type=hidden name=postdata value="$feedurl">