loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.389, 2022/01/18 17:33:13	version 1.390, 2022/01/19 00:44:31
Line 2763 sub fail_redirect {	Line 2763 sub fail_redirect {
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');	my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
my %parms=('only_body' => 1);	my %parms=('only_body' => 1);
if ($delay !~ /^\d+(\|\.\d+)$/) {	if ($delay !~ /^\d+(\|\.\d+)$/) {
$delay = 0;	$delay = 2;
}	}
if ($env{'form.modal'}) {	if ($env{'form.modal'}) {
my $onload = 'document.forms.reldt.submit()';	my $onload = 'document.forms.reldt.submit()';
Line 4736 ENDREDIR	Line 4736 ENDREDIR
if ($options) {	if ($options) {
&mail_screen($r,$feedurl,$options,$symb,$attachmax{'text'});	&mail_screen($r,$feedurl,$options,$symb,$attachmax{'text'});
} else {	} else {
&fail_redirect($r,$feedurl,1);	&fail_redirect($r,$feedurl,2);
}	}
return OK;	return OK;
}	}