loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.43, 2003/03/30 21:58:17	version 1.47, 2003/06/20 14:50:34
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 $latexHelp = Apache::loncommon::helpLatexCheatsheet();
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	<html>
<head>	<head>
Line 111 enctype="multipart/form-data">	Line 112 enctype="multipart/form-data">
Please check at least one of the following feedback types:	Please check at least one of the following feedback types:
$options<hr>	$options<hr>
My question/comment/feedback:<p>	My question/comment/feedback:<p>
	$latexHelp
<textarea name=comment cols=60 rows=10 wrap=hard>	<textarea name=comment cols=60 rows=10 wrap=hard>
</textarea><p>	</textarea><p>
Attachment (128 KB max size): <input type="file" name="attachment" />	Attachment (128 KB max size): <input type="file" name="attachment" />
Line 219 sub screen_header {	Line 221 sub screen_header {

sub resource_output {	sub resource_output {
my ($feedurl) = @_;	my ($feedurl) = @_;
my $usersaw=&Apache::lonnet::ssi($feedurl);	my $usersaw=&Apache::lonnet::ssi_body($feedurl);
$usersaw=~s/\<body[^\>]*\>//gi;	$usersaw=~s/\<body[^\>]*\>//gi;
$usersaw=~s/\<\/body\>//gi;	$usersaw=~s/\<\/body\>//gi;
$usersaw=~s/\<html\>//gi;	$usersaw=~s/\<html\>//gi;