loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.69, 2003/11/07 21:21:17	version 1.70, 2003/11/24 16:00:45
Line 327 $r->print(&generate_preview_button().'</	Line 327 $r->print(&generate_preview_button().'</

sub fail_redirect {	sub fail_redirect {
my ($r,$feedurl) = @_;	my ($r,$feedurl) = @_;
	if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' };
$r->print (<<ENDFAILREDIR);	$r->print (<<ENDFAILREDIR);
<head><title>Feedback not sent</title>	<head><title>Feedback not sent</title>
<meta http-equiv="pragma" content="no-cache" />	<meta http-equiv="pragma" content="no-cache" />
Line 343 ENDFAILREDIR	Line 344 ENDFAILREDIR

sub redirect_back {	sub redirect_back {
my ($r,$feedurl,$typestyle,$sendsomething,$sendposts,$status) = @_;	my ($r,$feedurl,$typestyle,$sendsomething,$sendposts,$status) = @_;
	if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' };
$r->print (<<ENDREDIR);	$r->print (<<ENDREDIR);
<head>	<head>
<title>Feedback sent</title>	<title>Feedback sent</title>