| … | |
… | |
| 410 | } |
410 | } |
| 411 | $out; |
411 | $out; |
| 412 | |
412 | |
| 413 | } |
413 | } |
| 414 | |
414 | |
|
|
415 | |
|
|
416 | # For graphs in a matching question. |
|
|
417 | |
|
|
418 | #sub format_graphs { |
|
|
419 | # my $self = shift; |
|
|
420 | # my @in = @_; |
|
|
421 | # my $out = ""; |
|
|
422 | # while (@in) { |
|
|
423 | # $out .= shift(@in). "#" ; |
|
|
424 | # } |
|
|
425 | # $out; |
|
|
426 | #} |
|
|
427 | |
|
|
428 | |
|
|
429 | # To put pop-up-list at the end of a question. |
|
|
430 | # contributed by Mark Schmitt 3-6-03 |
|
|
431 | |
|
|
432 | sub quest_first_pop_up_list_print_q { |
|
|
433 | my $self = shift; |
|
|
434 | my (@questions) = @_; |
|
|
435 | my $length = $self->{ans_rule_len}; |
|
|
436 | my @list = @{$self->{ra_pop_up_list} }; |
|
|
437 | my $out = ""; |
|
|
438 | |
|
|
439 | if ($main::displayMode eq 'HTML' || $main::displayMode eq 'HTML_tth' |
|
|
440 | || $main::displayMode eq 'HTML_dpng'|| $main::displayMode eq 'HTML_img') { |
|
|
441 | my $i=1; my $quest; |
|
|
442 | foreach $quest (@questions) { |
|
|
443 | $out.= "\n<p>" . " $quest" . pop_up_list(@list); |
|
|
444 | $i++; |
|
|
445 | } |
|
|
446 | $out .= "<br>\n"; |
|
|
447 | } elsif ($main::displayMode eq 'Latex2HTML') { |
|
|
448 | my $i=1; my $quest; |
|
|
449 | foreach $quest (@questions) { |
|
|
450 | $out.= " \\begin{rawhtml}<p><B>\\end{rawhtml}" . pop_up_list(@list) . " $i. \\begin{rawhtml}</B>\\end{rawhtml} $quest"; |
|
|
451 | $i++; |
|
|
452 | } |
|
|
453 | $out .= " \\begin{rawhtml}<BR>\\end{rawhtml} "; |
|
|
454 | } elsif ($main::displayMode eq 'TeX') { |
|
|
455 | $out = "\n\\par\\begin{enumerate}\n"; |
|
|
456 | my $i=1; my $quest; |
|
|
457 | foreach $quest (@questions) { |
|
|
458 | $out .= "\\item[" . pop_up_list(@list) . "$i.] $quest\n"; |
|
|
459 | $i++; |
|
|
460 | } |
|
|
461 | $out .= "\\end{enumerate}\n"; |
|
|
462 | } else { |
|
|
463 | $out = "Error: PGchoicemacros: pop_up_list_print_q: Unknown displayMode: $main::displayMode.\n"; |
|
|
464 | } |
|
|
465 | $out; |
|
|
466 | |
|
|
467 | } |
|
|
468 | # To put pop-up-list in the middle of a question. |
|
|
469 | # contributed by Mark Schmitt 3-6-03 |
|
|
470 | |
|
|
471 | sub ans_in_middle_pop_up_list_print_q { |
|
|
472 | my $self = shift; |
|
|
473 | my (@questions) = @_; |
|
|
474 | my $length = $self->{ans_rule_len}; |
|
|
475 | my @list = @{$self->{ra_pop_up_list} }; |
|
|
476 | my $out = ""; |
|
|
477 | |
|
|
478 | if ($main::displayMode eq 'HTML' || $main::displayMode eq 'HTML_tth' |
|
|
479 | || $main::displayMode eq 'HTML_dpng'|| $main::displayMode eq 'HTML_img') { |
|
|
480 | my $i=1; my $quest; |
|
|
481 | foreach $quest (@questions) { |
|
|
482 | $out.= "" . " $quest" . pop_up_list(@list); |
|
|
483 | $i++; |
|
|
484 | } |
|
|
485 | $out .= ""; |
|
|
486 | } elsif ($main::displayMode eq 'Latex2HTML') { |
|
|
487 | my $i=1; my $quest; |
|
|
488 | foreach $quest (@questions) { |
|
|
489 | $out.= " \\begin{rawhtml}<p><B>\\end{rawhtml}" . pop_up_list(@list) . " $i. \\begin{rawhtml}</B>\\end{rawhtml} $quest"; |
|
|
490 | $i++; |
|
|
491 | } |
|
|
492 | $out .= " \\begin{rawhtml}<BR>\\end{rawhtml} "; |
|
|
493 | } elsif ($main::displayMode eq 'TeX') { |
|
|
494 | $out = "\n\\par\\begin{enumerate}\n"; |
|
|
495 | my $i=1; my $quest; |
|
|
496 | foreach $quest (@questions) { |
|
|
497 | $out .= "\\item[" . pop_up_list(@list) . "$i.] $quest\n"; |
|
|
498 | $i++; |
|
|
499 | } |
|
|
500 | $out .= "\\end{enumerate}\n"; |
|
|
501 | } else { |
|
|
502 | $out = "Error: PGchoicemacros: pop_up_list_print_q: Unknown displayMode: $main::displayMode.\n"; |
|
|
503 | } |
|
|
504 | $out; |
|
|
505 | |
|
|
506 | } |
|
|
507 | |
|
|
508 | |
|
|
509 | # Units for physics class |
|
|
510 | # contributed by Mark Schmitt 3-6-03 |
|
|
511 | |
|
|
512 | sub units_list_print_q { |
|
|
513 | my $self = shift; |
|
|
514 | my (@questions) = @_; |
|
|
515 | my $length = $self->{ans_rule_len}; |
|
|
516 | my @list = @{$self->{ra_pop_up_list} }; |
|
|
517 | my $out = ''; |
|
|
518 | |
|
|
519 | $out.= pop_up_list(@list); |
|
|
520 | |
|
|
521 | $out; |
|
|
522 | } |
|
|
523 | |
| 415 | #Standard method of printing answers in a matching list |
524 | #Standard method of printing answers in a matching list |
| 416 | sub std_print_a { |
525 | sub std_print_a { |
| 417 | my $self = shift; |
526 | my $self = shift; |
| 418 | my(@array) = @_; |
527 | my(@array) = @_; |
| 419 | my $i = 0; |
528 | my $i = 0; |
Parent Directory
| 
Revision Log
| 
Patch