Parent Directory
| 
Revision Log
Revision 3158 - (view) (download) (as text)
| 1 : | apizer | 1080 | |
| 2 : | sh002i | 1050 | BEGIN{ |
| 3 : | be_strict; | ||
| 4 : | } | ||
| 5 : | |||
| 6 : | package main; | ||
| 7 : | |||
| 8 : | |||
| 9 : | =head1 NAME | ||
| 10 : | |||
| 11 : | PGchoicemacros.pl --- located in the courseScripts directory | ||
| 12 : | |||
| 13 : | |||
| 14 : | =head1 SYNPOSIS | ||
| 15 : | |||
| 16 : | =pod | ||
| 17 : | |||
| 18 : | apizer | 1080 | There are two types of choice macros. The older versions are simply scripts. |
| 19 : | The newer versions involve the "List.pm" class and its sub-classes | ||
| 20 : | sh002i | 1050 | and the use of objects based on these classes. The list sub-classes are: |
| 21 : | apizer | 1080 | "Match.pm" which aids in setting up matching question |
| 22 : | and answer lists, "Select.pm" which aids in selecting | ||
| 23 : | and presenting a subset of questions with short answers | ||
| 24 : | sh002i | 1050 | (e.g. true/false questions) from a larger question set, and |
| 25 : | apizer | 1080 | "Multiple.pm" which aids in setting up a |
| 26 : | standard style, one question, many answers type multiple | ||
| 27 : | sh002i | 1050 | choice question. |
| 28 : | |||
| 29 : | |||
| 30 : | =head1 DESCRIPTION | ||
| 31 : | |||
| 32 : | Sample usage: | ||
| 33 : | |||
| 34 : | |||
| 35 : | $ml = new_match_list(); | ||
| 36 : | # enter three questions and their answers | ||
| 37 : | apizer | 1080 | $ml->qa( "What color is a rose?", |
| 38 : | sh002i | 1050 | "Red", |
| 39 : | "What color is the sky?", | ||
| 40 : | "Blue", | ||
| 41 : | "What color is the sea?", | ||
| 42 : | "Green" | ||
| 43 : | ); | ||
| 44 : | apizer | 1080 | # choose two of these questions, ordered at random, |
| 45 : | sh002i | 1050 | # which will be printed in the problem. |
| 46 : | apizer | 1080 | $ml->choose(2); |
| 47 : | sh002i | 1050 | BEGIN_TEXT |
| 48 : | Match the answers below with these questions:$BR | ||
| 49 : | \\{$ml->print_q\\} $BR | ||
| 50 : | Answers: | ||
| 51 : | \\{$ml->print_a\\} | ||
| 52 : | END_TEXT | ||
| 53 : | apizer | 1080 | |
| 54 : | sh002i | 1050 | ANS( $ml->ra_correct_ans() ); |
| 55 : | apizer | 1080 | |
| 56 : | sh002i | 1050 | =cut |
| 57 : | |||
| 58 : | |||
| 59 : | =head2 Matching List macros | ||
| 60 : | |||
| 61 : | |||
| 62 : | =head3 new_match_list | ||
| 63 : | |||
| 64 : | Matching list object creation macro | ||
| 65 : | |||
| 66 : | Usage: | ||
| 67 : | |||
| 68 : | |||
| 69 : | $ml = new_match_list(); | ||
| 70 : | |||
| 71 : | Which is short hand for the following direct call to Match | ||
| 72 : | |||
| 73 : | $ml = new Match(random(1,2000,1), ~~&std_print_q, ~~&std_print_a); | ||
| 74 : | |||
| 75 : | |||
| 76 : | apizer | 1080 | Either call will create a matching list object in the variable $ml. |
| 77 : | sh002i | 1050 | (I< Note: $ml cannot be a my variable if it is to be used within a BEGIN_TEXT/END_TEXT block.>) |
| 78 : | |||
| 79 : | apizer | 1080 | The first argument is the seed for the match list (choosen at random between 1 and 2000 in |
| 80 : | sh002i | 1050 | the example above.). The next two arguments are references to the print subroutines |
| 81 : | used to print the questions and the answers. | ||
| 82 : | Other printing methods can be used instead of the standard ones. An | ||
| 83 : | apizer | 1080 | example of how to do this is demonstrated with |
| 84 : | sh002i | 1050 | "pop_up_list_print_q" below. |
| 85 : | |||
| 86 : | =head4 std_print_q | ||
| 87 : | |||
| 88 : | Standard method for formatting a list of questions with answer blanks. | ||
| 89 : | |||
| 90 : | This formatting routine is the default method for formatting the | ||
| 91 : | way questions are printed | ||
| 92 : | for each of the three sub-classes of "List.pm". It lists the questions vertically, numbering | ||
| 93 : | apizer | 1080 | them sequentially and providing an answer blank before each question. |
| 94 : | C<std_print_q> checks which mode the user is trying to print the | ||
| 95 : | sh002i | 1050 | questions from and returns the appropriately formatted string. |
| 96 : | |||
| 97 : | The length of the answer blank can be set with C<$ml-> | ||
| 98 : | |||
| 99 : | To replace the standard question formatting method with your own, use: | ||
| 100 : | |||
| 101 : | $ml->rf_print_q(~~&my_question_format_method) | ||
| 102 : | |||
| 103 : | apizer | 1080 | Your method should be a subroutine of the form C<my_question_format_method($self, @questions)> |
| 104 : | and should return a string to be printed. The @questions array contains the | ||
| 105 : | questions to be listed, while $self can be used to obtain extra information from | ||
| 106 : | sh002i | 1050 | the object for formatting purposes. The variable C<$main::displayMode> contains the |
| 107 : | current display mode. (See "MODES" for more details on display modes and | ||
| 108 : | see "writing print methods for lists" for details on constructing formatting subroutines.) | ||
| 109 : | |||
| 110 : | |||
| 111 : | =head4 std_print_a | ||
| 112 : | |||
| 113 : | Standard method for formatting a list of answers. | ||
| 114 : | |||
| 115 : | This simple formatting routine is the default method for formatting | ||
| 116 : | the answers for matching lists. It lists the answers vertically | ||
| 117 : | lettered sequentially. | ||
| 118 : | |||
| 119 : | To replace the standard answer formatting method with your own subroutine use: | ||
| 120 : | |||
| 121 : | $ml->rf_print_q(~~&my_answer_format_method) | ||
| 122 : | |||
| 123 : | apizer | 1080 | The answer formatting method has the same interface as the question formatting |
| 124 : | sh002i | 1050 | method. |
| 125 : | |||
| 126 : | apizer | 1080 | |
| 127 : | sh002i | 1050 | =head2 Select List macros |
| 128 : | |||
| 129 : | |||
| 130 : | =head3 new_select_list | ||
| 131 : | |||
| 132 : | Select list object creation macro | ||
| 133 : | |||
| 134 : | Usage: | ||
| 135 : | |||
| 136 : | $sl = new_select_list; | ||
| 137 : | |||
| 138 : | Which is equivalent to this direct call to Select | ||
| 139 : | |||
| 140 : | $sl = new Select(random(1,2000,1), ~~&std_print_q, ~~&std_print_a); | ||
| 141 : | |||
| 142 : | |||
| 143 : | Either call will create a select list object in the variable $sl. ( Note that | ||
| 144 : | $sl cannot be a my variable if it is to be used within a BEGIN_TEXT/END_TEXT | ||
| 145 : | block.) The printing methods are the same as those defined for C<new_match_list> | ||
| 146 : | above. | ||
| 147 : | See the documentation for "Select.pm" to see how to use this | ||
| 148 : | object to create a true/false question. | ||
| 149 : | |||
| 150 : | std_print_a is only intended to be used for debugging with select lists, as there is rarely a reason to | ||
| 151 : | print out the answers to a select list. | ||
| 152 : | |||
| 153 : | |||
| 154 : | =head3 new_pop_up_select_list | ||
| 155 : | |||
| 156 : | |||
| 157 : | |||
| 158 : | Usage: | ||
| 159 : | |||
| 160 : | $sl = new_pop_up_select_list;</I></PRE> | ||
| 161 : | |||
| 162 : | Which is equivalent to this direct call to Select | ||
| 163 : | |||
| 164 : | $sl = new Select(random(1,2000,1), ~~&pop_up_list_print_q, ~~&std_print_a); | ||
| 165 : | |||
| 166 : | |||
| 167 : | Either call will create a select list object in the variable $sl. ( Note that | ||
| 168 : | $sl cannot be a my variable if it is to be used within a BEGIN_TEXT/END_TEXT | ||
| 169 : | block.) The printing methods are passed as references (~~ in PG equals \ in | ||
| 170 : | perl) to subroutines so that no matter what printing subroutines are used, | ||
| 171 : | those subroutines can be used by saying $sl->print_q and $sl->print_a. This | ||
| 172 : | also means that other subroutines can be used instead of the default ones. | ||
| 173 : | |||
| 174 : | See the documentation for <a href='Select'>Select.pm</a> to see how to use this | ||
| 175 : | object to create a true/false question. | ||
| 176 : | |||
| 177 : | |||
| 178 : | =head4 std_print_q | ||
| 179 : | |||
| 180 : | Standard method for printing questions with answer boxes | ||
| 181 : | |||
| 182 : | See std_print_q under Matching Lists above. | ||
| 183 : | |||
| 184 : | |||
| 185 : | =head4 pop_up_list_print_q | ||
| 186 : | |||
| 187 : | Alternate method for print questions with pop up lists. | ||
| 188 : | |||
| 189 : | Usage: | ||
| 190 : | |||
| 191 : | This printing routine is used to print the questions for a true/false or other | ||
| 192 : | select list with a preceding pop up list of possible answers. A list of values | ||
| 193 : | and labels need to be given to the pop_up_list so that the intended answer is | ||
| 194 : | returned when a student selects an answer form the list. Notethe use of => to | ||
| 195 : | associate the values on the left with the labels on the right, this means that, | ||
| 196 : | for instance, the student will see the word True in the pop_up_list but the | ||
| 197 : | answer that is returned to the grader is T, so that it corresponds with what | ||
| 198 : | the professor typed in as the answer when using $sl->qa('blah blah', 'T'); | ||
| 199 : | |||
| 200 : | =for html | ||
| 201 : | <PRE> | ||
| 202 : | <I>$sl->ra_pop_up_list([</I>value<I> => </I>label<I>, | ||
| 203 : | T => 'True', | ||
| 204 : | F => 'False']);</I></PRE> | ||
| 205 : | |||
| 206 : | |||
| 207 : | =head4 std_print_a | ||
| 208 : | |||
| 209 : | This is only intended to be used for debugging as there is rarely a reason to | ||
| 210 : | print out the answers to a select list. | ||
| 211 : | |||
| 212 : | See std_print_a under Matching Lists above. | ||
| 213 : | |||
| 214 : | |||
| 215 : | =head2 Multiple Choice macros | ||
| 216 : | |||
| 217 : | |||
| 218 : | =head3 new_multiple_choice | ||
| 219 : | |||
| 220 : | Multiple choice object creation macro | ||
| 221 : | |||
| 222 : | Usage: | ||
| 223 : | |||
| 224 : | =for html | ||
| 225 : | <PRE> | ||
| 226 : | <I>$mc = new_multiple_choice;</I></PRE> | ||
| 227 : | |||
| 228 : | Which is equivalent to this direct call to Multiple | ||
| 229 : | |||
| 230 : | =for html | ||
| 231 : | <PRE> | ||
| 232 : | <I>$mc = new Multiple(random(1,2000,1), ~~&std_print_q, ~~&std_print_a);</I></PRE> | ||
| 233 : | |||
| 234 : | Either call will create a multiple choice object in the variable $mc. Note that | ||
| 235 : | $mc cannot be a my variable if it is to be used within a BEGIN_TEXT/END_TEXT | ||
| 236 : | block. | ||
| 237 : | |||
| 238 : | =for html | ||
| 239 : | <P>See the documentation for <a href='Multiple'>Multiple.pm</a> to see how to use | ||
| 240 : | this object to create a multiple choice question. | ||
| 241 : | |||
| 242 : | |||
| 243 : | =head4 std_print_q | ||
| 244 : | |||
| 245 : | Standard method for printing questions | ||
| 246 : | |||
| 247 : | See std_print_q under Matching Lists above. | ||
| 248 : | |||
| 249 : | |||
| 250 : | =head4 radio_print_a | ||
| 251 : | |||
| 252 : | Method for printing answers with radio buttons | ||
| 253 : | |||
| 254 : | This simple printing routine is used to print the answers to multiple choice | ||
| 255 : | questions in a bulleted style with radio buttons preceding each possible answer. | ||
| 256 : | When a multiple choice object is created, a reference to radio_print_a is passed | ||
| 257 : | to that object so that it can be used from within the object later. | ||
| 258 : | |||
| 259 : | radio_print_a checks which mode the user is trying to print the answers from and | ||
| 260 : | returns the appropriately formatted string. | ||
| 261 : | |||
| 262 : | |||
| 263 : | =head3 new_checkbox_multiple_choice | ||
| 264 : | |||
| 265 : | Checkbox multiple choice object creation macro | ||
| 266 : | |||
| 267 : | Usage: | ||
| 268 : | |||
| 269 : | =for html | ||
| 270 : | <PRE> | ||
| 271 : | <I>$cmc = new_checkbox_multiple_choice;</I></PRE> | ||
| 272 : | |||
| 273 : | Which is equivalent to this direct call to Multiple | ||
| 274 : | |||
| 275 : | =for html | ||
| 276 : | <PRE> | ||
| 277 : | <I>$cmc = new Multiple(random(1,2000,1), ~~&std_print_q, ~~&checkbox_print_a);</I></PRE> | ||
| 278 : | |||
| 279 : | Either call will create a checkbox multiple choice object in the variable $cmc. Note that | ||
| 280 : | $cmc cannot be a my variable if it is to be used within a BEGIN_TEXT/END_TEXT | ||
| 281 : | block. | ||
| 282 : | |||
| 283 : | =for html | ||
| 284 : | <P>See the documentation for <a href='Multiple'>Multiple.pm</a> to see how to use | ||
| 285 : | this object to create a multiple choice question. | ||
| 286 : | |||
| 287 : | |||
| 288 : | =head4 std_print_q | ||
| 289 : | |||
| 290 : | Standard method for printing questions | ||
| 291 : | |||
| 292 : | See std_print_q under Matching Lists above. | ||
| 293 : | |||
| 294 : | |||
| 295 : | =head4 checkbox_print_a | ||
| 296 : | |||
| 297 : | Method for printing answers with radio buttons | ||
| 298 : | |||
| 299 : | This simple printing routine is used to print the answers to multiple choice | ||
| 300 : | questions in a bulleted style with checkboxes preceding each possible answer. | ||
| 301 : | When a multiple choice object is created, a reference to checkbox_print_a is passed | ||
| 302 : | to that object so that it can be used from within the object later. | ||
| 303 : | |||
| 304 : | checkbox_print_a checks which mode the user is trying to print the answers from and | ||
| 305 : | returns the appropriately formatted string. | ||
| 306 : | |||
| 307 : | |||
| 308 : | |||
| 309 : | =cut | ||
| 310 : | BEGIN { | ||
| 311 : | be_strict(); | ||
| 312 : | } | ||
| 313 : | sub _PGchoicemacros_init{ | ||
| 314 : | } | ||
| 315 : | |||
| 316 : | =head4 new_match_list | ||
| 317 : | |||
| 318 : | Usage: $ml = new_match_list(); | ||
| 319 : | |||
| 320 : | |||
| 321 : | Note that $ml cannot be a my variable if used within a BEGIN_TEXT/END_TEXT block | ||
| 322 : | |||
| 323 : | =cut | ||
| 324 : | |||
| 325 : | sub new_match_list { | ||
| 326 : | new Match(random(1,2000,1), \&std_print_q, \&std_print_a); | ||
| 327 : | } | ||
| 328 : | |||
| 329 : | =head4 new_select_list | ||
| 330 : | sage: $sl = new_select_list(); | ||
| 331 : | |||
| 332 : | Note that $sl cannot be a my variable if used within a BEGIN_TEXT/END_TEXT block | ||
| 333 : | |||
| 334 : | =cut | ||
| 335 : | |||
| 336 : | sub new_select_list { | ||
| 337 : | new Select(random(1,2000,1), \&std_print_q, \&std_print_a); | ||
| 338 : | } | ||
| 339 : | |||
| 340 : | =head4 new_pop_up_select_list; | ||
| 341 : | |||
| 342 : | Usage: $pusl = new_pop_up_select_list(); | ||
| 343 : | |||
| 344 : | =cut | ||
| 345 : | |||
| 346 : | sub new_pop_up_select_list { | ||
| 347 : | new Select(random(1,2000,1), \&pop_up_list_print_q, \&std_print_a); | ||
| 348 : | } | ||
| 349 : | |||
| 350 : | =head4 new_multiple_choice | ||
| 351 : | |||
| 352 : | Usage: $mc = new_multiple_choice(); | ||
| 353 : | |||
| 354 : | =cut | ||
| 355 : | |||
| 356 : | |||
| 357 : | sub new_multiple_choice { | ||
| 358 : | new Multiple(random(1,2000,1), \&std_print_q, \&radio_print_a); | ||
| 359 : | } | ||
| 360 : | |||
| 361 : | =head4 new_checkbox_multiple_choice | ||
| 362 : | |||
| 363 : | Usage: $mcc = new_checkbox_multiple_choice(); | ||
| 364 : | |||
| 365 : | =cut | ||
| 366 : | |||
| 367 : | sub new_checkbox_multiple_choice { | ||
| 368 : | new Multiple(random(1,2000,1), \&std_print_q, \&checkbox_print_a); | ||
| 369 : | } | ||
| 370 : | |||
| 371 : | =head4 initializing a pop_up_list | ||
| 372 : | |||
| 373 : | Usage: $sl->rf_print_a(~~&pop_up_list_print_q); | ||
| 374 : | $sl->ra_pop_up_list([</I>value<I> => </I>label<I>, T => 'True', F => 'False']); | ||
| 375 : | |||
| 376 : | =cut | ||
| 377 : | |||
| 378 : | sub pop_up_list_print_q { | ||
| 379 : | my $self = shift; | ||
| 380 : | my (@questions) = @_; | ||
| 381 : | my $length = $self->{ans_rule_len}; | ||
| 382 : | my @list = @{$self->{ra_pop_up_list} }; | ||
| 383 : | my $out = ""; | ||
| 384 : | |||
| 385 : | #if ($main::displayMode eq 'HTML' || $main::displayMode eq 'HTML_tth') { | ||
| 386 : | if ($main::displayMode =~ /^HTML/) { | ||
| 387 : | my $i=1; my $quest; | ||
| 388 : | foreach $quest (@questions) { | ||
| 389 : | $out.= "\n<p>" . pop_up_list(@list) . " <B>$i.</B> $quest"; | ||
| 390 : | $i++; | ||
| 391 : | } | ||
| 392 : | $out .= "<br>\n"; | ||
| 393 : | } elsif ($main::displayMode eq 'Latex2HTML') { | ||
| 394 : | my $i=1; my $quest; | ||
| 395 : | foreach $quest (@questions) { | ||
| 396 : | $out.= " \\begin{rawhtml}<p><B>\\end{rawhtml}" . pop_up_list(@list) . " $i. \\begin{rawhtml}</B>\\end{rawhtml} $quest"; | ||
| 397 : | $i++; | ||
| 398 : | } | ||
| 399 : | $out .= " \\begin{rawhtml}<BR>\\end{rawhtml} "; | ||
| 400 : | } elsif ($main::displayMode eq 'TeX') { | ||
| 401 : | $out = "\n\\par\\begin{enumerate}\n"; | ||
| 402 : | my $i=1; my $quest; | ||
| 403 : | foreach $quest (@questions) { | ||
| 404 : | $out .= "\\item[" . pop_up_list(@list) . "$i.] $quest\n"; | ||
| 405 : | $i++; | ||
| 406 : | } | ||
| 407 : | $out .= "\\end{enumerate}\n"; | ||
| 408 : | } else { | ||
| 409 : | $out = "Error: PGchoicemacros: pop_up_list_print_q: Unknown displayMode: $main::displayMode.\n"; | ||
| 410 : | } | ||
| 411 : | $out; | ||
| 412 : | |||
| 413 : | } | ||
| 414 : | |||
| 415 : | gage | 1068 | |
| 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 : | dpvc | 2267 | || $main::displayMode eq 'HTML_jsMath' || $main::displayMode eq 'HTML_asciimath' |
| 441 : | gage | 1068 | || $main::displayMode eq 'HTML_dpng'|| $main::displayMode eq 'HTML_img') { |
| 442 : | my $i=1; my $quest; | ||
| 443 : | foreach $quest (@questions) { | ||
| 444 : | $out.= "\n<p>" . " $quest" . pop_up_list(@list); | ||
| 445 : | $i++; | ||
| 446 : | } | ||
| 447 : | $out .= "<br>\n"; | ||
| 448 : | } elsif ($main::displayMode eq 'Latex2HTML') { | ||
| 449 : | my $i=1; my $quest; | ||
| 450 : | foreach $quest (@questions) { | ||
| 451 : | $out.= " \\begin{rawhtml}<p><B>\\end{rawhtml}" . pop_up_list(@list) . " $i. \\begin{rawhtml}</B>\\end{rawhtml} $quest"; | ||
| 452 : | $i++; | ||
| 453 : | } | ||
| 454 : | $out .= " \\begin{rawhtml}<BR>\\end{rawhtml} "; | ||
| 455 : | } elsif ($main::displayMode eq 'TeX') { | ||
| 456 : | $out = "\n\\par\\begin{enumerate}\n"; | ||
| 457 : | my $i=1; my $quest; | ||
| 458 : | foreach $quest (@questions) { | ||
| 459 : | $out .= "\\item[" . pop_up_list(@list) . "$i.] $quest\n"; | ||
| 460 : | $i++; | ||
| 461 : | } | ||
| 462 : | $out .= "\\end{enumerate}\n"; | ||
| 463 : | } else { | ||
| 464 : | $out = "Error: PGchoicemacros: pop_up_list_print_q: Unknown displayMode: $main::displayMode.\n"; | ||
| 465 : | } | ||
| 466 : | $out; | ||
| 467 : | |||
| 468 : | } | ||
| 469 : | # To put pop-up-list in the middle of a question. | ||
| 470 : | # contributed by Mark Schmitt 3-6-03 | ||
| 471 : | |||
| 472 : | sub ans_in_middle_pop_up_list_print_q { | ||
| 473 : | my $self = shift; | ||
| 474 : | my (@questions) = @_; | ||
| 475 : | my $length = $self->{ans_rule_len}; | ||
| 476 : | my @list = @{$self->{ra_pop_up_list} }; | ||
| 477 : | my $out = ""; | ||
| 478 : | |||
| 479 : | if ($main::displayMode eq 'HTML' || $main::displayMode eq 'HTML_tth' | ||
| 480 : | dpvc | 2267 | || $main::displayMode eq 'HTML_jsMath' || $main::displayMode eq 'HTML_asciimath' |
| 481 : | gage | 1068 | || $main::displayMode eq 'HTML_dpng'|| $main::displayMode eq 'HTML_img') { |
| 482 : | my $i=1; my $quest; | ||
| 483 : | foreach $quest (@questions) { | ||
| 484 : | $out.= "" . " $quest" . pop_up_list(@list); | ||
| 485 : | $i++; | ||
| 486 : | } | ||
| 487 : | $out .= ""; | ||
| 488 : | } elsif ($main::displayMode eq 'Latex2HTML') { | ||
| 489 : | my $i=1; my $quest; | ||
| 490 : | foreach $quest (@questions) { | ||
| 491 : | $out.= " \\begin{rawhtml}<p><B>\\end{rawhtml}" . pop_up_list(@list) . " $i. \\begin{rawhtml}</B>\\end{rawhtml} $quest"; | ||
| 492 : | $i++; | ||
| 493 : | } | ||
| 494 : | $out .= " \\begin{rawhtml}<BR>\\end{rawhtml} "; | ||
| 495 : | } elsif ($main::displayMode eq 'TeX') { | ||
| 496 : | $out = "\n\\par\\begin{enumerate}\n"; | ||
| 497 : | my $i=1; my $quest; | ||
| 498 : | foreach $quest (@questions) { | ||
| 499 : | $out .= "\\item[" . pop_up_list(@list) . "$i.] $quest\n"; | ||
| 500 : | $i++; | ||
| 501 : | } | ||
| 502 : | $out .= "\\end{enumerate}\n"; | ||
| 503 : | } else { | ||
| 504 : | $out = "Error: PGchoicemacros: pop_up_list_print_q: Unknown displayMode: $main::displayMode.\n"; | ||
| 505 : | } | ||
| 506 : | $out; | ||
| 507 : | |||
| 508 : | } | ||
| 509 : | |||
| 510 : | |||
| 511 : | # Units for physics class | ||
| 512 : | # contributed by Mark Schmitt 3-6-03 | ||
| 513 : | |||
| 514 : | sub units_list_print_q { | ||
| 515 : | my $self = shift; | ||
| 516 : | my (@questions) = @_; | ||
| 517 : | my $length = $self->{ans_rule_len}; | ||
| 518 : | my @list = @{$self->{ra_pop_up_list} }; | ||
| 519 : | my $out = ''; | ||
| 520 : | |||
| 521 : | $out.= pop_up_list(@list); | ||
| 522 : | |||
| 523 : | $out; | ||
| 524 : | } | ||
| 525 : | |||
| 526 : | sh002i | 1050 | #Standard method of printing answers in a matching list |
| 527 : | sub std_print_a { | ||
| 528 : | my $self = shift; | ||
| 529 : | my(@array) = @_; | ||
| 530 : | my $i = 0; | ||
| 531 : | apizer | 3158 | my @alpha = ('A'..'Z', 'AA'..'ZZ'); |
| 532 : | jj | 3136 | my $letter; |
| 533 : | sh002i | 1050 | my $out= &main::M3( |
| 534 : | "\\begin{enumerate}\n", | ||
| 535 : | " \\begin{rawhtml} <OL TYPE=\"A\" VALUE=\"1\"> \\end{rawhtml} ", | ||
| 536 : | jj | 3136 | # kludge to fix IE/CSS problem |
| 537 : | #"<OL COMPACT TYPE=\"A\" START=\"1\">\n" | ||
| 538 : | "<BLOCKQUOTE>\n" | ||
| 539 : | sh002i | 1050 | ) ; |
| 540 : | my $elem; | ||
| 541 : | foreach $elem (@array) { | ||
| 542 : | jj | 3136 | $letter = shift @alpha; |
| 543 : | sh002i | 1050 | $out .= &main::M3( |
| 544 : | "\\item[$main::ALPHABET[$i].] $elem\n", | ||
| 545 : | " \\begin{rawhtml} <LI> \\end{rawhtml} $elem ", | ||
| 546 : | jj | 3136 | #"<LI> $elem</LI>\n" |
| 547 : | "<br /> <b>$letter.</b> $elem\n" | ||
| 548 : | sh002i | 1050 | ) ; |
| 549 : | $i++; | ||
| 550 : | } | ||
| 551 : | $out .= &main::M3( | ||
| 552 : | "\\end{enumerate}\n", | ||
| 553 : | " \\begin{rawhtml} </OL>\n \\end{rawhtml} ", | ||
| 554 : | jj | 3136 | #"</OL>\n" |
| 555 : | "</BLOCKQUOTE>\n" | ||
| 556 : | sh002i | 1050 | ) ; |
| 557 : | $out; | ||
| 558 : | |||
| 559 : | } | ||
| 560 : | |||
| 561 : | |||
| 562 : | |||
| 563 : | |||
| 564 : | #Alternate method of printing answers as a list of radio buttons for multiple choice | ||
| 565 : | sub radio_print_a { | ||
| 566 : | my $self = shift; | ||
| 567 : | my (@answers) = @_; | ||
| 568 : | my $out = ""; | ||
| 569 : | my $i =0; | ||
| 570 : | my @in = (); | ||
| 571 : | #if ($main::displayMode eq 'HTML' || $main::displayMode eq 'HTML_tth') { | ||
| 572 : | if ($main::displayMode =~ /^HTML/) { | ||
| 573 : | foreach my $ans (@answers) { | ||
| 574 : | push (@in, ($main::ALPHABET[$i], "<B> $main::ALPHABET[$i]. </B> $ans")); | ||
| 575 : | $i++; | ||
| 576 : | } | ||
| 577 : | my @radio_buttons = ans_radio_buttons(@in); | ||
| 578 : | $out = "\n<BR>" . join "\n<BR>", @radio_buttons; | ||
| 579 : | $out .= "<BR>\n"; | ||
| 580 : | } elsif ($main::displayMode eq 'Latex2HTML') { | ||
| 581 : | foreach my $ans (@answers) { | ||
| 582 : | push (@in, ($main::ALPHABET[$i], "\\begin{rawhtml}<B> $main::ALPHABET[$i]. </B> \\end{rawhtml} $ans")); | ||
| 583 : | $i++; | ||
| 584 : | } | ||
| 585 : | my @radio_buttons = ans_radio_buttons(@in); | ||
| 586 : | $out = "\\begin{rawhtml}<BR>\\end{rawhtml}" . join "\\begin{rawhtml}<BR>\\end{rawhtml}", @radio_buttons; | ||
| 587 : | $out .= " \\begin{rawhtml}<BR>\\end{rawhtml} "; | ||
| 588 : | } elsif ($main::displayMode eq 'TeX') { | ||
| 589 : | foreach my $ans (@answers) { | ||
| 590 : | push (@in, ($main::ALPHABET[$i], "$main::ALPHABET[$i]. $ans")); | ||
| 591 : | $i++; | ||
| 592 : | } | ||
| 593 : | my @radio_buttons = ans_radio_buttons(@in); | ||
| 594 : | #$out = "\n\\par\\begin{itemize}\n"; | ||
| 595 : | $out .= join '', @radio_buttons; | ||
| 596 : | #$out .= "\\end{itemize}\n"; | ||
| 597 : | } else { | ||
| 598 : | $out = "Error: PGchoicemacros: radio_print_a: Unknown displayMode: $main::displayMode.\n"; | ||
| 599 : | } | ||
| 600 : | $out; | ||
| 601 : | |||
| 602 : | } | ||
| 603 : | |||
| 604 : | #Second alternate method of printing answers as a list of radio buttons for multiple choice | ||
| 605 : | #Method for naming radio buttons is no longer round about and hackish | ||
| 606 : | sub checkbox_print_a { | ||
| 607 : | my $self = shift; | ||
| 608 : | my (@answers) = @_; | ||
| 609 : | my $out = ""; | ||
| 610 : | my $i =0; | ||
| 611 : | my @in = (); | ||
| 612 : | # if ($main::displayMode eq 'HTML' || $main::displayMode eq 'HTML_tth') { | ||
| 613 : | if ($main::displayMode =~ /^HTML/) { | ||
| 614 : | foreach my $ans (@answers) { | ||
| 615 : | push (@in, ($main::ALPHABET[$i], "<B> $main::ALPHABET[$i]. </B> $ans")); | ||
| 616 : | $i++; | ||
| 617 : | } | ||
| 618 : | my @checkboxes = ans_checkbox(@in); | ||
| 619 : | $out = "\n<BR>" . join "\n<BR>", @checkboxes; | ||
| 620 : | $out .= "<BR>\n"; | ||
| 621 : | } elsif ($main::displayMode eq 'Latex2HTML') { | ||
| 622 : | foreach my $ans (@answers) { | ||
| 623 : | push (@in, ($main::ALPHABET[$i], "\\begin{rawhtml}<B> $main::ALPHABET[$i]. </B> \\end{rawhtml} $ans")); | ||
| 624 : | $i++; | ||
| 625 : | } | ||
| 626 : | my @checkboxes = ans_checkbox(@in); | ||
| 627 : | $out = "\\begin{rawhtml}<BR>\\end{rawhtml}" . join "\\begin{rawhtml}<BR>\\end{rawhtml}", @checkboxes; | ||
| 628 : | $out .= " \\begin{rawhtml}<BR>\\end{rawhtml} "; | ||
| 629 : | } elsif ($main::displayMode eq 'TeX') { | ||
| 630 : | foreach my $ans (@answers) { | ||
| 631 : | push (@in, ($main::ALPHABET[$i], "$main::ALPHABET[$i]. $ans")); | ||
| 632 : | $i++; | ||
| 633 : | } | ||
| 634 : | my @radio_buttons = ans_checkbox(@in); | ||
| 635 : | #$out = "\n\\par\\begin{itemize}\n"; | ||
| 636 : | $out .= join '', @radio_buttons ; | ||
| 637 : | #$out .= "\\end{itemize}\n"; | ||
| 638 : | } else { | ||
| 639 : | $out = "Error: PGchoicemacros: checkbox_print_a: Unknown displayMode: $main::displayMode.\n"; | ||
| 640 : | } | ||
| 641 : | $out; | ||
| 642 : | |||
| 643 : | } | ||
| 644 : | |||
| 645 : | |||
| 646 : | #Standard method of printing questions in a matching or select list | ||
| 647 : | sub std_print_q { | ||
| 648 : | my $self = shift; | ||
| 649 : | my (@questions) = @_; | ||
| 650 : | my $length = $self->{ans_rule_len}; | ||
| 651 : | my $out = ""; | ||
| 652 : | #if ($main::displayMode eq 'HTML' || $main::displayMode eq 'HTML_tth') { | ||
| 653 : | if ($main::displayMode =~ /^HTML/) { | ||
| 654 : | dpvc | 2396 | my $i=1; my $quest; $out = "\n<P>\n"; |
| 655 : | sh002i | 1050 | foreach $quest (@questions) { |
| 656 : | dpvc | 2396 | $out.= ans_rule($length) . " <B>$i.</B> $quest<BR>"; |
| 657 : | sh002i | 1050 | $i++; |
| 658 : | } | ||
| 659 : | } elsif ($main::displayMode eq 'Latex2HTML') { | ||
| 660 : | dpvc | 2396 | my $i=1; my $quest; $out = "\\par\n"; |
| 661 : | sh002i | 1050 | foreach $quest (@questions) { |
| 662 : | dpvc | 2396 | $out.= ans_rule($length) . "\\begin{rawhtml}<B>$i. </B>\\end{rawhtml} $quest\\begin{rawhtml}<BR>\\end{rawhtml}\n"; |
| 663 : | sh002i | 1050 | $i++; |
| 664 : | } | ||
| 665 : | } elsif ($main::displayMode eq 'TeX') { | ||
| 666 : | $out = "\n\\par\\begin{enumerate}\n"; | ||
| 667 : | my $i=1; my $quest; | ||
| 668 : | foreach $quest (@questions) { | ||
| 669 : | $out .= "\\item[" . ans_rule($length) . "$i.] $quest\n"; | ||
| 670 : | $i++; | ||
| 671 : | } | ||
| 672 : | $out .= "\\end{enumerate}\n"; | ||
| 673 : | } else { | ||
| 674 : | $out = "Error: PGchoicemacros: std_print_q: Unknown displayMode: $main::displayMode.\n"; | ||
| 675 : | } | ||
| 676 : | $out; | ||
| 677 : | |||
| 678 : | } | ||
| 679 : | |||
| 680 : | |||
| 681 : | |||
| 682 : | =head3 legacy macros | ||
| 683 : | |||
| 684 : | These are maintained for backward compatibility. | ||
| 685 : | They can still be useful in constructing non-standard lists that don't fit | ||
| 686 : | the various list objects. In general the using the list objects is likely | ||
| 687 : | to give better results and is preferred. | ||
| 688 : | |||
| 689 : | =cut | ||
| 690 : | |||
| 691 : | =head4 qa | ||
| 692 : | |||
| 693 : | =cut | ||
| 694 : | |||
| 695 : | sub qa { | ||
| 696 : | my($questionsRef,$answersRef,@questANDanswer) = @_; | ||
| 697 : | while (@questANDanswer) { | ||
| 698 : | push(@$questionsRef,shift(@questANDanswer)); | ||
| 699 : | push(@$answersRef,shift(@questANDanswer)); | ||
| 700 : | |||
| 701 : | } | ||
| 702 : | } | ||
| 703 : | |||
| 704 : | =head4 invert | ||
| 705 : | |||
| 706 : | =cut | ||
| 707 : | |||
| 708 : | sub invert { | ||
| 709 : | my @array = @_; | ||
| 710 : | my @out = (); | ||
| 711 : | my $i; | ||
| 712 : | for ($i=0;$i<=$#array;$i++) { | ||
| 713 : | $out[$array[$i]]=$i; | ||
| 714 : | } | ||
| 715 : | @out; | ||
| 716 : | } | ||
| 717 : | |||
| 718 : | =head4 NchooseK | ||
| 719 : | |||
| 720 : | =cut | ||
| 721 : | |||
| 722 : | sub NchooseK { | ||
| 723 : | my($n,$k)=@_;; | ||
| 724 : | my @array = 0..($n-1); | ||
| 725 : | my @out = (); | ||
| 726 : | while (@out<$k) { | ||
| 727 : | push(@out, splice(@array, random(0,$#array,1) , 1) ); | ||
| 728 : | } | ||
| 729 : | @out; | ||
| 730 : | } | ||
| 731 : | |||
| 732 : | =head4 shuffle | ||
| 733 : | |||
| 734 : | =cut | ||
| 735 : | |||
| 736 : | sub shuffle { | ||
| 737 : | my ($i) = @_; | ||
| 738 : | my @out = &NchooseK($i,$i); | ||
| 739 : | @out; | ||
| 740 : | } | ||
| 741 : | |||
| 742 : | =head4 match_questions_list | ||
| 743 : | |||
| 744 : | =cut | ||
| 745 : | |||
| 746 : | sub match_questions_list { | ||
| 747 : | my (@questions) = @_; | ||
| 748 : | my $out = ""; | ||
| 749 : | #if ($main::displayMode eq 'HTML' || $main::displayMode eq 'HTML_tth') { | ||
| 750 : | if ($main::displayMode =~ /^HTML/) { | ||
| 751 : | my $i=1; my $quest; | ||
| 752 : | foreach $quest (@questions) { | ||
| 753 : | $out.= "\n<BR>" . ans_rule(4) . "<B>$i.</B> $quest"; | ||
| 754 : | $i++; | ||
| 755 : | } | ||
| 756 : | $out .= "<br>\n"; | ||
| 757 : | } elsif ($main::displayMode eq 'Latex2HTML') { | ||
| 758 : | my $i=1; my $quest; | ||
| 759 : | foreach $quest (@questions) { | ||
| 760 : | $out.= " \\begin{rawhtml}<BR>\\end{rawhtml} " . ans_rule(4) . "\\begin{rawhtml}<B>\\end{rawhtml} $i. \\begin{rawhtml}</B>\\end{rawhtml} $quest"; #"$i. $quest"; | ||
| 761 : | $i++; | ||
| 762 : | } | ||
| 763 : | $out .= " \\begin{rawhtml}<BR>\\end{rawhtml} "; | ||
| 764 : | } elsif ($main::displayMode eq 'TeX') { | ||
| 765 : | $out = "\n\\par\\begin{enumerate}\n"; | ||
| 766 : | my $i=1; my $quest; | ||
| 767 : | foreach $quest (@questions) { | ||
| 768 : | $out .= "\\item[" . ans_rule(3) . "$i.] $quest\n"; | ||
| 769 : | $i++; | ||
| 770 : | } | ||
| 771 : | $out .= "\\end{enumerate}\n"; | ||
| 772 : | } else { | ||
| 773 : | $out = "Error: PGchoicemacros: match_questions_list: Unknown displayMode: $main::displayMode.\n"; | ||
| 774 : | } | ||
| 775 : | $out; | ||
| 776 : | } | ||
| 777 : | |||
| 778 : | |||
| 779 : | |||
| 780 : | sub match_questions_list_varbox { | ||
| 781 : | my ($length, @questions) = @_; | ||
| 782 : | my $out = ""; | ||
| 783 : | #if ($main::displayMode eq 'HTML' || $main::displayMode eq 'HTML_tth') { | ||
| 784 : | if ($main::displayMode =~ /^HTML/) { | ||
| 785 : | my $i=1; my $quest; | ||
| 786 : | foreach $quest (@questions) { | ||
| 787 : | $out.= "\n<BR>" . ans_rule($length) . "<B>$i.</B> $quest"; | ||
| 788 : | $i++; | ||
| 789 : | } | ||
| 790 : | $out .= "<br>\n"; | ||
| 791 : | } elsif ($main::displayMode eq 'Latex2HTML') { | ||
| 792 : | my $i=1; my $quest; | ||
| 793 : | foreach $quest (@questions) { | ||
| 794 : | $out.= " \\begin{rawhtml}<BR>\\end{rawhtml} " . ans_rule($length) . "\\begin{rawhtml}<B>\\end{rawhtml} $i. \\begin{rawhtml}</B>\\end{rawhtml} $quest"; #"$i. $quest"; | ||
| 795 : | $i++; | ||
| 796 : | } | ||
| 797 : | $out .= " \\begin{rawhtml}<BR>\\end{rawhtml} "; | ||
| 798 : | } elsif ($main::displayMode eq 'TeX') { | ||
| 799 : | $out = "\n\\par\\begin{enumerate}\n"; | ||
| 800 : | my $i=1; my $quest; | ||
| 801 : | foreach $quest (@questions) { | ||
| 802 : | $out .= "\\item[" . ans_rule($length) . "$i.] $quest\n"; | ||
| 803 : | $i++; | ||
| 804 : | } | ||
| 805 : | $out .= "\\end{enumerate}\n"; | ||
| 806 : | } else { | ||
| 807 : | $out = "Error: PGchoicemacros: match_questions_list_varbox: Unknown displayMode: $main::displayMode.\n"; | ||
| 808 : | } | ||
| 809 : | $out; | ||
| 810 : | } | ||
| 811 : | |||
| 812 : | |||
| 813 : | |||
| 814 : | 1; |
| aubreyja at gmail dot com | ViewVC Help |
| Powered by ViewVC 1.0.9 |