| … | |
… | |
| 103 | my @in = @_; |
103 | my @in = @_; |
| 104 | my @out = (); |
104 | my @out = (); |
| 105 | #prepend labels with the quiz and section prefixes. |
105 | #prepend labels with the quiz and section prefixes. |
| 106 | while (@in ) { |
106 | while (@in ) { |
| 107 | my $label = shift @in; |
107 | my $label = shift @in; |
| 108 | $label = join("", $self->{QUIZ_PREFIX}, $self->{SECTION_PREFIX}, $label); |
108 | $label = join("", $PG->{QUIZ_PREFIX}, $PG->{SECTION_PREFIX}, $label); |
| 109 | $ans_eval = shift @in; |
109 | $ans_eval = shift @in; |
| 110 | push @out, $label, $ans_eval; |
110 | push @out, $label, $ans_eval; |
| 111 | } |
111 | } |
| 112 | pus$PG->LABELED_ANS(@out); # returns pointer to the labeled answer group |
112 | $PG->LABELED_ANS(@out); # returns pointer to the labeled answer group |
| 113 | } |
113 | } |
| 114 | |
114 | |
| 115 | sub NAMED_ANS { |
115 | sub NAMED_ANS { |
| 116 | &LABELED_ANS(@_); # returns pointer to the labeled answer group |
116 | &LABELED_ANS(@_); # returns pointer to the labeled answer group |
| 117 | } |
117 | } |
| … | |
… | |
| 558 | __END__ |
558 | __END__ |
| 559 | |
559 | |
| 560 | ################################################################################ |
560 | ################################################################################ |
| 561 | # WeBWorK Online Homework Delivery System |
561 | # WeBWorK Online Homework Delivery System |
| 562 | # Copyright © 2000-2007 The WeBWorK Project, http://openwebwork.sf.net/ |
562 | # Copyright © 2000-2007 The WeBWorK Project, http://openwebwork.sf.net/ |
| 563 | # $CVSHeader: pg/macros/PG.pl,v 1.45 2010/05/15 19:38:49 gage Exp $ |
563 | # $CVSHeader: pg/macros/PG.pl,v 1.46 2010/05/27 02:22:51 gage Exp $ |
| 564 | # |
564 | # |
| 565 | # This program is free software; you can redistribute it and/or modify it under |
565 | # This program is free software; you can redistribute it and/or modify it under |
| 566 | # the terms of either: (a) the GNU General Public License as published by the |
566 | # the terms of either: (a) the GNU General Public License as published by the |
| 567 | # Free Software Foundation; either version 2, or (at your option) any later |
567 | # Free Software Foundation; either version 2, or (at your option) any later |
| 568 | # version, or (b) the "Artistic License" which comes with this package. |
568 | # version, or (b) the "Artistic License" which comes with this package. |
Parent Directory
| 
Revision Log
| 
Patch