--- rat/lonpage.pm 2022/10/04 20:39:57 1.142
+++ rat/lonpage.pm 2025/03/19 14:44:03 1.145
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Page Handler
#
-# $Id: lonpage.pm,v 1.142 2022/10/04 20:39:57 raeburn Exp $
+# $Id: lonpage.pm,v 1.145 2025/03/19 14:44:03 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -268,6 +268,7 @@ sub handler {
my $nforms=0;
my $nuploads=0;
my $ntimers=0;
+ my $hasnumresp;
my %turninpaths;
my %multiresps;
my $turninparent;
@@ -423,6 +424,7 @@ ENDEXT
}
my $output=Apache::lonnet::ssi($src,%posthash);
$output=~s|//(\s*)?\s||gs;
+ $output=~s{\Q
\E}{
}gs;
if (($target eq 'tex') || ($target eq 'tex_answer')) {
$output =~ s/^([^&]+)\\begin\{document}//;
$output =~ s/\\end\{document}//;
@@ -512,6 +514,11 @@ ENDEXT
$ntimers++;
$hastimer = 1;
}
+ unless ($hasnumresp) {
+ if ($output=~/\]+class\s*=\s*['"]*[^'">]*LC_numresponse_text\W/) {
+ $hasnumresp = 1;
+ }
+ }
$output=~
s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi;
$output=~
@@ -953,8 +960,11 @@ ENDEXT
&mt('Processing your submission ...').'
');
}
unless (($target eq 'tex') || ($target eq 'tex_answer')) {
- $r->print(&Apache::loncommon::end_page({'discussion'
- => 1,}));
+ my $args = {'discussion' => 1};
+ if ($hasnumresp) {
+ $args->{'dashjs'} = 1;
+ }
+ $r->print(&Apache::loncommon::end_page($args));
} else {
$r->print('\end{document}'.$number_of_columns);
}