loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.44, 2003/06/04 22:05:22	version 1.46, 2003/06/18 17:32:02
Line 54 use Apache::lontexconvert();	Line 54 use Apache::lontexconvert();

sub mail_screen {	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();"');
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	<html>
<head>	<head>
Line 218 sub screen_header {	Line 219 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;