--- rat/lonpage.pm 2017/09/29 19:18:18 1.125 +++ rat/lonpage.pm 2019/08/11 14:16:59 1.128 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Page Handler # -# $Id: lonpage.pm,v 1.125 2017/09/29 19:18:18 raeburn Exp $ +# $Id: lonpage.pm,v 1.128 2019/08/11 14:16:59 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -324,8 +324,8 @@ ENDEXT } } elsif ($cellemb{$_} eq 'ssi') { # --------------------------------------------------------- This is an SSI cell - my $prefix=$_.'_'; - my $idprefix= join('_',($mapid,$resid,'')); + my $prefix='p_'.$_.'_'; + my $idprefix= 'p_'.join('_',($mapid,$resid,'')); my %posthash=('request.prefix' => $prefix, 'LONCAPA_INTERNAL_no_discussion' => 'true', 'symb' => $symb); @@ -338,23 +338,26 @@ ENDEXT $posthash{'rndseed'}=$env{'form.rndseed'}; $posthash{'answer_output_mode'} = $env{'form.answer_output_mode'}; } - my $submitted=exists($env{'form.all_submit'}); + my $submitted=$env{'form.all_submit_pressed'}; if (!$submitted) { foreach my $key (keys(%env)) { - if ($key=~/^form.\Q$prefix\Esubmit_/) { - $submitted=1;last; + if ($key=~/^\Qform.$prefix\Esubmit_(.+)_pressed$/) { + if ($env{$key}) { + $submitted=1; + last; + } } - } + } } if ($submitted) { foreach my $key (keys(%env)) { - if ($key=~/^form.\Q$prefix\E/) { + if ($key=~/^\Qform.$prefix\E/) { my $name=$key; - $name=~s/^form.\Q$prefix\E//; + $name=~s/^\Qform.$prefix\E//; $posthash{$name}=$env{$key}; - } + } } - if (exists($env{'form.all_submit'})) { + if ($env{'form.all_submit_pressed'}) { $posthash{'all_submit'}='yes'; } } @@ -465,8 +468,6 @@ ENDEXT $output=~ s/(\Q