rat/lonpage.pm - diff - 1.111.2.13.2.6

Return to lonpage.pm CVS log

Up to [LON-CAPA] / rat

version 1.111.2.13.2.5, 2023/01/19 17:23:33	version 1.111.2.13.2.6, 2023/09/11 12:11:26
Line 268 sub handler {	Line 268 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 515 ENDEXT	Line 516 ENDEXT
$ntimers++;	$ntimers++;
$hastimer = 1;	$hastimer = 1;
}	}
	unless ($hasnumresp) {
	if ($output=~/\<input[^\>]+class\s=\s[\'\"]*([^\'\"\>]+\|)LC_numresponse_text/) {
	$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 956 ENDEXT	Line 962 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);
}	}