[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 6256 Revision 6257
261} 261}
262sub ENDDOCUMENT { 262sub ENDDOCUMENT {
263 # check that answers match 263 # check that answers match
264 # gather up PG_FLAGS elements 264 # gather up PG_FLAGS elements
265 265
266 266 $PG->{flags}->{showPartialCorrectAnswers} = defined($showPartialCorrectAnswers)? $showPartialCorrectAnswers : 1 ;
267 my @elements = qw(showPartialCorrectAnswers 267 $PG->{flags}->{recordSubmittedAnswers} = defined($recordSubmittedAnswers)? $recordSubmittedAnswers : 1 ;
268 recordSubmittedAnswers refreshCachedImages 268 $PG->{flags}->{refreshCachedImages} = defined($refreshCachedImages)? $refreshCachedImages : 0 ;
269 hintExists solutionExists 269 $PG->{flags}->{hintExists} = defined($hintExists)? $hintExists : 0 ;
270 ); 270 $PG->{flags}->{solutionExists} = defined($solutionExists)? $solutionExists : 0 ;
271 while (@elements) { 271 $PG->{flags}->{comment} = defined($pgComment)? $pgComment :'' ;
272 my $var= shift @elements; 272 $PG->{flags}->{showHintLimit} = defined($showHint)? $showHint : 0 ;
273 $PG->{flags}->{$var} = ${$var}; 273
274 }
275 $PG->{flags}->{comment} = $pgComment; #KLUDGE #FIXME
276 $PG->{flags}->{showHintLimit} = $showHint; #KLUDGE #FIXME
277
278 274
279 # install problem grader 275 # install problem grader
280 if (defined($PG->{flags}->{PROBLEM_GRADER_TO_USE}) ) { 276 if (defined($PG->{flags}->{PROBLEM_GRADER_TO_USE}) ) {
281 # problem grader defined within problem -- no further action needed 277 # problem grader defined within problem -- no further action needed
282 } elsif ( defined( $rh_envir->{PROBLEM_GRADER_TO_USE} ) ) { 278 } elsif ( defined( $rh_envir->{PROBLEM_GRADER_TO_USE} ) ) {
552__END__ 548__END__
553 549
554################################################################################ 550################################################################################
555# WeBWorK Online Homework Delivery System 551# WeBWorK Online Homework Delivery System
556# Copyright © 2000-2007 The WeBWorK Project, http://openwebwork.sf.net/ 552# Copyright © 2000-2007 The WeBWorK Project, http://openwebwork.sf.net/
557# $CVSHeader: pg/macros/PG.pl,v 1.42 2010/05/14 12:31:19 gage Exp $ 553# $CVSHeader: pg/macros/PG.pl,v 1.43 2010/05/14 16:48:45 gage Exp $
558# 554#
559# This program is free software; you can redistribute it and/or modify it under 555# 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 556# 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 557# Free Software Foundation; either version 2, or (at your option) any later
562# version, or (b) the "Artistic License" which comes with this package. 558# version, or (b) the "Artistic License" which comes with this package.

Legend:
Removed from v.6256  
changed lines
  Added in v.6257

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9