$ml = new_match_list;Which is equivalent to the following direct call to Match =for html
$ml = new Match(random(1,2000,1), ~~&std_print_q, ~~&std_print_a);=for html Either call will create a matching list object in the variable $ml. ( $ml cannot be a my variable if it is to be used within a BEGIN_TEXT/END_TEXT block. The printing methods are passed as references (~~ in PG equals \ in perl) to subroutines so that no matter what printing subroutines are used, those subroutines can be used by saying $ml->print_q and $ml->print_a. This also means that other subroutines can be used instead of the default ones. An example of how to do this is demonstrated with pop_up_list_print_q below. =for html
See the documentation for Match.pm to see how to use this object to create a matching question. =head4 std_print_q Standard method for printing questions =for html This simple printing routine is used to print the questions for each of the three sub-classes of List. When a match list, select list, or multiple choice object is created, a reference to std_print_q is passed to that object so that it can be used from within the object later. std_print_q checks which mode the user is trying to print the questions from and returns the appropriately formatted string. =head4 std_print_a Standard method for printing answers with answer boxes This simple printing routine is used to print the answers for matching lists (and technically select list, even though answers are not printed with a select list). When a match list or select list object is created, a reference to std_print_q is passed to that object so that it can be used from within the object later. std_print_a checks which mode the user is trying to print the answers from and returns the appropriately formatted string. =head2 Select List macros =head3 new_select_list Select list object creation macro Useage: =for html
$sl = new_select_list;Which is equivalent to this direct call to Select =for html
$sl = new Select(random(1,2000,1), ~~&std_print_q, ~~&std_print_a);=for html Either call will create a select list object in the variable $sl. ( Note that $sl cannot be a my variable if it is to be used within a BEGIN_TEXT/END_TEXT block.) The printing methods are passed as references (~~ in PG equals \ in perl) to subroutines so that no matter what printing subroutines are used, those subroutines can be used by saying $sl->print_q and $sl->print_a. This also means that other subroutines can be used instead of the default ones. An example of how to do this is demonstrated with pop_up_list_print_q below. =for html
See the documentation for Select.pm to see how to use this object to create a true/false question. =head4 std_print_q Standard method for printing questions with answer boxes See std_print_q under Matching Lists above. =head4 std_print_a This is only intended to be used for debugging as there is rarely a reason to print out the answers to a select list. See std_print_a under Matching Lists above. =head3 new_pop_up_select_list Select list object creation macro Useage: =for html
$sl = new_pop_up_select_list;Which is equivalent to this direct call to Select =for html
$sl = new Select(random(1,2000,1), ~~&pop_up_list_print_q, ~~&std_print_a);=for html Either call will create a select list object in the variable $sl. ( Note that $sl cannot be a my variable if it is to be used within a BEGIN_TEXT/END_TEXT block.) The printing methods are passed as references (~~ in PG equals \ in perl) to subroutines so that no matter what printing subroutines are used, those subroutines can be used by saying $sl->print_q and $sl->print_a. This also means that other subroutines can be used instead of the default ones. =for html
See the documentation for Select.pm to see how to use this object to create a true/false question. =head4 std_print_q Standard method for printing questions with answer boxes See std_print_q under Matching Lists above. =head4 pop_up_list_print_q Alternate method for print questions with pop up lists. Useage: This printing routine is used to print the questions for a true/false or other select list with a preceding pop up list of possible answers. A list of values and labels need to be given to the pop_up_list so that the intended answer is returned when a student selects an answer form the list. Notethe use of => to associate the values on the left with the labels on the right, this means that, for instance, the student will see the word True in the pop_up_list but the answer that is returned to the grader is T, so that it corresponds with what the professor typed in as the answer when using $sl->qa('blah blah', 'T'); =for html
$sl->ra_pop_up_list([value => label, T => 'True', F => 'False']);=head4 std_print_a This is only intended to be used for debugging as there is rarely a reason to print out the answers to a select list. See std_print_a under Matching Lists above. =head2 Multiple Choice macros =head3 new_multiple_choice Multiple choice object creation macro Useage: =for html
$mc = new_multiple_choice;Which is equivalent to this direct call to Multiple =for html
$mc = new Multiple(random(1,2000,1), ~~&std_print_q, ~~&std_print_a);Either call will create a multiple choice object in the variable $mc. Note that $mc cannot be a my variable if it is to be used within a BEGIN_TEXT/END_TEXT block. =for html
See the documentation for Multiple.pm to see how to use this object to create a multiple choice question. =head4 std_print_q Standard method for printing questions See std_print_q under Matching Lists above. =head4 radio_print_a Method for printing answers with radio buttons This simple printing routine is used to print the answers to multiple choice questions in a bulleted style with radio buttons preceding each possible answer. When a multiple choice object is created, a reference to radio_print_a is passed to that object so that it can be used from within the object later. radio_print_a checks which mode the user is trying to print the answers from and returns the appropriately formatted string. =head3 new_checkbox_multiple_choice Checkbox multiple choice object creation macro Useage: =for html
$cmc = new_checkbox_multiple_choice;Which is equivalent to this direct call to Multiple =for html
$cmc = new Multiple(random(1,2000,1), ~~&std_print_q, ~~&checkbox_print_a);Either call will create a checkbox multiple choice object in the variable $cmc. Note that $cmc cannot be a my variable if it is to be used within a BEGIN_TEXT/END_TEXT block. =for html
See the documentation for Multiple.pm to see how to use this object to create a multiple choice question. =head4 std_print_q Standard method for printing questions See std_print_q under Matching Lists above. =head4 checkbox_print_a Method for printing answers with radio buttons This simple printing routine is used to print the answers to multiple choice questions in a bulleted style with checkboxes preceding each possible answer. When a multiple choice object is created, a reference to checkbox_print_a is passed to that object so that it can be used from within the object later. checkbox_print_a checks which mode the user is trying to print the answers from and returns the appropriately formatted string. =cut #Useage: $ml = new_match_list #Note that $ml cannot be a my variable if used within a BEGIN_TEXT/END_TEXT block sub new_match_list { new Match(random(1,2000,1), \&std_print_q, \&std_print_a); } #Useage: $sl = new_select_list #Note that $sl cannot be a my variable if used within a BEGIN_TEXT/END_TEXT block sub new_select_list { new Select(random(1,2000,1), \&std_print_q, \&std_print_a); } #Useage: $pusl = new_pop_up_select_list sub new_pop_up_select_list { new Select(random(1,2000,1), \&pop_up_list_print_q, \&std_print_a); } #Useage: $mc = new_multiple_choice #Note that $mc cannot be a my variable if used within a BEGIN_TEXT/END_TEXT block sub new_multiple_choice { new Multiple(random(1,2000,1), \&std_print_q, \&radio_print_a); } #Useage: $mcc = new_checkbox_multiple_choice sub new_checkbox_multiple_choice { new Multiple(random(1,2000,1), \&std_print_q, \&checkbox_print_a); } #Useage: $sl->rf_print_a(~~&pop_up_list_print_q); # $sl->ra_pop_up_list([value => label, T => 'True', F => 'False']); sub pop_up_list_print_q { my $self = shift; my (@questions) = @_; my $length = $self->{ans_rule_len}; my @list = @{$self->{ra_pop_up_list} }; my $out = ""; if ($main::displayMode eq 'HTML' || $main::displayMode eq 'HTML_tth') { my $i=1; my $quest; foreach $quest (@questions) { $out.= "\n
" . pop_up_list(@list) . " $i. $quest";
$i++;
}
$out .= "
\n";
} elsif ($main::displayMode eq 'Latex2HTML') {
my $i=1; my $quest;
foreach $quest (@questions) {
$out.= " \\begin{rawhtml}
\\end{rawhtml}" . pop_up_list(@list) . " $i. \\begin{rawhtml}\\end{rawhtml} $quest";
$i++;
}
$out .= " \\begin{rawhtml}
\\end{rawhtml} ";
} elsif ($main::displayMode eq 'TeX') {
$out = "\n\\par\\begin{enumerate}\n";
my $i=1; my $quest;
foreach $quest (@questions) {
$out .= "\\item[" . pop_up_list(@list) . "$i.] $quest\n";
$i++;
}
$out .= "\\end{enumerate}\n";
} else {
$out = "Error: PGchoicemacros: pop_up_list_print_q: Unknown displayMode: $main::displayMode.\n";
}
$out;
}
#Standard method of printing answers in a matching list
sub std_print_a {
my $self = shift;
my(@array) = @_;
my $i = 0;
my $out= &main::M3(
"\\begin{enumerate}\n",
" \\begin{rawhtml}