rat/lonpage.pm - diff

Return to lonpage.pm CVS log

Up to [LON-CAPA] / rat

version 1.111.2.13, 2020/11/11 21:52:05	version 1.111.2.14, 2023/09/11 13:28:55
Line 236 sub handler {	Line 236 sub handler {
my $nforms=0;	my $nforms=0;
my $nuploads=0;	my $nuploads=0;
my $ntimers=0;	my $ntimers=0;
	my $hasnumresp;
my %turninpaths;	my %turninpaths;
my %multiresps;	my %multiresps;
my $turninparent;	my $turninparent;
Line 473 ENDEXT	Line 474 ENDEXT
$ntimers++;	$ntimers++;
$hastimer = 1;	$hastimer = 1;
}	}
	unless ($hasnumresp) {
	if ($output=~/\<input[^\>]+class\s=\s['"][^'">]LC_numresponse_text\W/) {
	$hasnumresp = 1;
	}
	}
$output=~	$output=~
s/\<((?:input\|select\|button\|textarea)[^\>]+)name\s\=\s[\'\"]([^\'\"]+)[\'\"]([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi;	s/\<((?:input\|select\|button\|textarea)[^\>]+)name\s\=\s[\'\"]([^\'\"]+)[\'\"]([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi;
$output=~	$output=~
Line 854 ENDEXT	Line 860 ENDEXT
&mt('Processing your submission ...').'</div></form>');	&mt('Processing your submission ...').'</div></form>');
}	}
unless (($target eq 'tex') \|\| ($target eq 'tex_answer')) {	unless (($target eq 'tex') \|\| ($target eq 'tex_answer')) {
$r->print(&Apache::loncommon::end_page({'discussion'	my $args = {'discussion' => 1};
=> 1,}));	if ($hasnumresp) {
	$args->{'dashjs'} = 1;
	}
	$r->print(&Apache::loncommon::end_page($args));
} else {	} else {
$r->print('\end{document}'.$number_of_columns);	$r->print('\end{document}'.$number_of_columns);
}	}