[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 6248 Revision 6252
253 my $selected = shift; 253 my $selected = shift;
254 # warn "\n\nanslabel $ans_label responselabel $response_label value $ans_value"; 254 # warn "\n\nanslabel $ans_label responselabel $response_label value $ans_value";
255 if (defined ($PG->{PG_ANSWERS_HASH}->{$ans_label}) ) { 255 if (defined ($PG->{PG_ANSWERS_HASH}->{$ans_label}) ) {
256 my $responsegroup = $PG->{PG_ANSWERS_HASH}->{$ans_label}->{response}; 256 my $responsegroup = $PG->{PG_ANSWERS_HASH}->{$ans_label}->{response};
257 $responsegroup->extend_response($response_label, $ans_value,$selected); 257 $responsegroup->extend_response($response_label, $ans_value,$selected);
258 warn "\n$responsegroup responses are now ", pretty_print($response_group); 258 #warn "\n$responsegroup responses are now ", pretty_print($response_group);
259 } 259 }
260 ''; 260 '';
261} 261}
262sub ENDDOCUMENT { 262sub ENDDOCUMENT {
263 # check that answers match 263 # check that answers match
552__END__ 552__END__
553 553
554################################################################################ 554################################################################################
555# WeBWorK Online Homework Delivery System 555# WeBWorK Online Homework Delivery System
556# Copyright © 2000-2007 The WeBWorK Project, http://openwebwork.sf.net/ 556# Copyright © 2000-2007 The WeBWorK Project, http://openwebwork.sf.net/
557# $CVSHeader: pg/macros/PG.pl,v 1.40 2009/06/25 23:28:44 gage Exp $ 557# $CVSHeader: pg/macros/PG.pl,v 1.41 2010/05/14 01:13:12 gage Exp $
558# 558#
559# This program is free software; you can redistribute it and/or modify it under 559# This program is free software; you can redistribute it and/or modify it under
560# the terms of either: (a) the GNU General Public License as published by the 560# the terms of either: (a) the GNU General Public License as published by the
561# Free Software Foundation; either version 2, or (at your option) any later 561# Free Software Foundation; either version 2, or (at your option) any later
562# version, or (b) the "Artistic License" which comes with this package. 562# version, or (b) the "Artistic License" which comes with this package.

Legend:
Removed from v.6248  
changed lines
  Added in v.6252

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9