[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 5753 Revision 5789
1################################################################################ 1################################################################################
2# WeBWorK Online Homework Delivery System 2# WeBWorK Online Homework Delivery System
3# Copyright 2000-2007 The WeBWorK Project, http://openwebwork.sf.net/ 3# Copyright 2000-2007 The WeBWorK Project, http://openwebwork.sf.net/
4# $CVSHeader: pg/macros/PG.pl,v 1.37 2008/05/08 00:37:31 sh002i Exp $ 4# $CVSHeader: pg/macros/PG.pl,v 1.29.2.2.2.2 2008/06/25 20:05:23 gage Exp $
5# 5#
6# This program is free software; you can redistribute it and/or modify it under 6# This program is free software; you can redistribute it and/or modify it under
7# the terms of either: (a) the GNU General Public License as published by the 7# the terms of either: (a) the GNU General Public License as published by the
8# Free Software Foundation; either version 2, or (at your option) any later 8# Free Software Foundation; either version 2, or (at your option) any later
9# version, or (b) the "Artistic License" which comes with this package. 9# version, or (b) the "Artistic License" which comes with this package.
200# $main::solutionExists =0; 200# $main::solutionExists =0;
201# $main::hintExists =0; 201# $main::hintExists =0;
202# %main::gifs_created = (); 202# %main::gifs_created = ();
203 eval(q! 203 eval(q!
204 # set perl to use capital E for scientific notation: e.g. 5.4E-05 instead of 5.4e-05 204 # set perl to use capital E for scientific notation: e.g. 5.4E-05 instead of 5.4e-05
205 $#="%G"; #FIXME -- check that this works 205 # $#="%G"; #FIXME -- this causes bad warnings in perl 5.10
206 206
207 @main::PG_ANSWER_ENTRY_ORDER = (); 207 @main::PG_ANSWER_ENTRY_ORDER = ();
208 $main::ANSWER_PREFIX = 'AnSwEr'; 208 $main::ANSWER_PREFIX = 'AnSwEr';
209 %main::PG_FLAGS=(); #global flags 209 %main::PG_FLAGS=(); #global flags
210 $main::showPartialCorrectAnswers = 0 unless defined($main::showPartialCorrectAnswers ); 210 $main::showPartialCorrectAnswers = 0 unless defined($main::showPartialCorrectAnswers );

Legend:
Removed from v.5753  
changed lines
  Added in v.5789

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9