loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.190, 2006/04/10 21:55:48	version 1.191, 2006/04/13 18:59:02
Line 2238 sub no_redirect_back {	Line 2238 sub no_redirect_back {
my $nofeed=&mt('Sorry, no feedback possible on this resource ...');	my $nofeed=&mt('Sorry, no feedback possible on this resource ...');

my %body_options = ('only_body' => 1,	my %body_options = ('only_body' => 1,
	'bgcolor' => '#FFFFFF',
'add_entries' => {'onload' => "if (window.name!='loncapaclient') { self.window.close(); }"});	'add_entries' => {'onload' => "if (window.name!='loncapaclient') { self.window.close(); }"});

if ($feedurl !~ m{^/adm/feedback}) {	if ($feedurl !~ m{^/adm/feedback}) {
Line 2252 sub no_redirect_back {	Line 2253 sub no_redirect_back {
$feedurl=&Apache::lonenc::check_encrypt($feedurl);	$feedurl=&Apache::lonenc::check_encrypt($feedurl);
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');	my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
$r->print (<<ENDNOREDIRTWO);	$r->print (<<ENDNOREDIRTWO);
</head>	$start_page
<body bgcolor="#FFFFFF" onLoad='if (window.name!="loncapaclient") { self.window.close(); }'>
<img align="right" src="$logo" />	<img align="right" src="$logo" />
<b>$nofeed</b>	<b>$nofeed</b>
<br />	<br />