[system] / trunk / pg / macros / PG.pl Repository:
ViewVC logotype

Diff of /trunk/pg/macros/PG.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 6280 Revision 6281
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
115sub NAMED_ANS { 115sub 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.

Legend:
Removed from v.6280  
changed lines
  Added in v.6281

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9