| … | |
… | |
| 435 | my $length = $self->{ans_rule_len}; |
435 | my $length = $self->{ans_rule_len}; |
| 436 | my @list = @{$self->{ra_pop_up_list} }; |
436 | my @list = @{$self->{ra_pop_up_list} }; |
| 437 | my $out = ""; |
437 | my $out = ""; |
| 438 | |
438 | |
| 439 | if ($main::displayMode eq 'HTML' || $main::displayMode eq 'HTML_tth' |
439 | if ($main::displayMode eq 'HTML' || $main::displayMode eq 'HTML_tth' |
|
|
440 | || $main::displayMode eq 'HTML_jsMath' |
| 440 | || $main::displayMode eq 'HTML_jsMath' || $main::displayMode eq 'HTML_asciimath' |
441 | || $main::displayMode eq 'HTML_asciimath' || $main::displayMode eq 'HTML_LaTeXMathML' |
| 441 | || $main::displayMode eq 'HTML_dpng'|| $main::displayMode eq 'HTML_img') { |
442 | || $main::displayMode eq 'HTML_dpng'|| $main::displayMode eq 'HTML_img') { |
| 442 | my $i=1; my $quest; |
443 | my $i=1; my $quest; |
| 443 | foreach $quest (@questions) { |
444 | foreach $quest (@questions) { |
| 444 | $out.= "\n<p>" . " $quest" . pop_up_list(@list); |
445 | $out.= "\n<p>" . " $quest" . pop_up_list(@list); |
| 445 | $i++; |
446 | $i++; |
| … | |
… | |
| 475 | my $length = $self->{ans_rule_len}; |
476 | my $length = $self->{ans_rule_len}; |
| 476 | my @list = @{$self->{ra_pop_up_list} }; |
477 | my @list = @{$self->{ra_pop_up_list} }; |
| 477 | my $out = ""; |
478 | my $out = ""; |
| 478 | |
479 | |
| 479 | if ($main::displayMode eq 'HTML' || $main::displayMode eq 'HTML_tth' |
480 | if ($main::displayMode eq 'HTML' || $main::displayMode eq 'HTML_tth' |
|
|
481 | || $main::displayMode eq 'HTML_jsMath' |
| 480 | || $main::displayMode eq 'HTML_jsMath' || $main::displayMode eq 'HTML_asciimath' |
482 | || $main::displayMode eq 'HTML_asciimath' || $main::displayMode eq 'HTML_LaTeXMathML' |
| 481 | || $main::displayMode eq 'HTML_dpng'|| $main::displayMode eq 'HTML_img') { |
483 | || $main::displayMode eq 'HTML_dpng'|| $main::displayMode eq 'HTML_img') { |
| 482 | my $i=1; my $quest; |
484 | my $i=1; my $quest; |
| 483 | foreach $quest (@questions) { |
485 | foreach $quest (@questions) { |
| 484 | $out.= "" . " $quest" . pop_up_list(@list); |
486 | $out.= "" . " $quest" . pop_up_list(@list); |
| 485 | $i++; |
487 | $i++; |