[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 3519 Revision 3520
135 %main::PG_FLAGS=(); #global flags 135 %main::PG_FLAGS=(); #global flags
136 $main::showPartialCorrectAnswers = 0 unless defined($main::showPartialCorrectAnswers ); 136 $main::showPartialCorrectAnswers = 0 unless defined($main::showPartialCorrectAnswers );
137 $main::showHint = 1 unless defined($main::showHint); 137 $main::showHint = 1 unless defined($main::showHint);
138 $main::solutionExists =0; 138 $main::solutionExists =0;
139 $main::hintExists =0; 139 $main::hintExists =0;
140 $main::pgComment = '';
140 %main::gifs_created = (); 141 %main::gifs_created = ();
141 142
142 !); 143 !);
143# warn eval(q! "PG.pl: The envir variable $main::{envir} is".join(" ",%main::envir)!); 144# warn eval(q! "PG.pl: The envir variable $main::{envir} is".join(" ",%main::envir)!);
144 my $rh_envir = eval(q!\%main::envir!); 145 my $rh_envir = eval(q!\%main::envir!);
444 (3) refreshCachedImages -- determines whether the cached image of the problem 445 (3) refreshCachedImages -- determines whether the cached image of the problem
445 in typeset mode is always refreshed (i.e. setting this to 1 means cached 446 in typeset mode is always refreshed (i.e. setting this to 1 means cached
446 images are not used). 447 images are not used).
447 (4) solutionExits -- indicates the existence of a solution. 448 (4) solutionExits -- indicates the existence of a solution.
448 (5) hintExits -- indicates the existence of a hint. 449 (5) hintExits -- indicates the existence of a hint.
450 (6) comment -- contents of COMMENT commands if any.
449 (6) showHintLimit -- determines the number of attempts after which hint(s) will be shown 451 (7) showHintLimit -- determines the number of attempts after which hint(s) will be shown
450 452
451 (7) PROBLEM_GRADER_TO_USE -- chooses the problem grader to be used in this order 453 (8) PROBLEM_GRADER_TO_USE -- chooses the problem grader to be used in this order
452 (a) A problem grader specified by the problem using: 454 (a) A problem grader specified by the problem using:
453 install_problem_grader(\&grader); 455 install_problem_grader(\&grader);
454 (b) One of the standard problem graders defined in PGanswermacros.pl when set to 456 (b) One of the standard problem graders defined in PGanswermacros.pl when set to
455 'std_problem_grader' or 'avg_problem_grader' by the environment variable 457 'std_problem_grader' or 'avg_problem_grader' by the environment variable
456 $PG_environment{PROBLEM_GRADER_TO_USE} 458 $PG_environment{PROBLEM_GRADER_TO_USE}
476 $STRINGforOUTPUT .="\n"; 478 $STRINGforOUTPUT .="\n";
477 eval q{ #make sure that "main" points to the current safe compartment by evaluating these lines. 479 eval q{ #make sure that "main" points to the current safe compartment by evaluating these lines.
478 $main::PG_FLAGS{'showPartialCorrectAnswers'} = $main::showPartialCorrectAnswers; 480 $main::PG_FLAGS{'showPartialCorrectAnswers'} = $main::showPartialCorrectAnswers;
479 $main::PG_FLAGS{'recordSubmittedAnswers'} = $main::recordSubmittedAnswers; 481 $main::PG_FLAGS{'recordSubmittedAnswers'} = $main::recordSubmittedAnswers;
480 $main::PG_FLAGS{'refreshCachedImages'} = $main::refreshCachedImages; 482 $main::PG_FLAGS{'refreshCachedImages'} = $main::refreshCachedImages;
483 $main::PG_FLAGS{'comment'} = $main::pgComment;
481 $main::PG_FLAGS{'hintExists'} = $main::hintExists; 484 $main::PG_FLAGS{'hintExists'} = $main::hintExists;
482 $main::PG_FLAGS{'showHintLimit'} = $main::showHint; 485 $main::PG_FLAGS{'showHintLimit'} = $main::showHint;
483 $main::PG_FLAGS{'solutionExists'} = $main::solutionExists; 486 $main::PG_FLAGS{'solutionExists'} = $main::solutionExists;
484 $main::PG_FLAGS{ANSWER_ENTRY_ORDER} = \@main::PG_ANSWER_ENTRY_ORDER; 487 $main::PG_FLAGS{ANSWER_ENTRY_ORDER} = \@main::PG_ANSWER_ENTRY_ORDER;
485 $main::PG_FLAGS{KEPT_EXTRA_ANSWERS} = \@main::KEPT_EXTRA_ANSWERS;##need to keep array labels that don't call "RECORD_ANS_NAME" 488 $main::PG_FLAGS{KEPT_EXTRA_ANSWERS} = \@main::KEPT_EXTRA_ANSWERS;##need to keep array labels that don't call "RECORD_ANS_NAME"

Legend:
Removed from v.3519  
changed lines
  Added in v.3520

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9