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