[WWcvs] pg: Macros that aid the construction sequentialProblems.

[Mike G. v. a. <we...@ma...>]

Log Message:
-----------
Macros that aid the construction sequentialProblems.  For these
problems certain sections of text are hidden until earlier
answers have been answered correctly.

-- Mike

Added Files:
-----------
    pg/macros:
        PGsequentialmacros.pl

Revision Data
-------------
--- /dev/null
+++ macros/PGsequentialmacros.pl
@@ -0,0 +1,66 @@
+sub listFormVariables {
+    # Lists all of the variables filled out on the input form
+	# Useful for debugging
+    TEXT($HR,"Form variables", );
+    TEXT(pretty_print($inputs_ref));
+    TEXT("Environment",$BR);
+   TEXT(pretty_print(\%envir));
+   TEXT($HR);
+}
+sub checkAnswer {
+    # checks an answer on a given answer evaluator.
+	my $answerName = shift;  # get the name of the answer
+    my $ans_eval        = get_PG_ANSWERS_HASH($answerName),;   # get the answer evaluator
+    my %options         = @_;
+	my $debug =($options{debug})?1:0;  # give debug information
+
+    my $answer = $main::inputs_ref->{$answerName};
+    my $response = undef;
+    if (defined($answer) and defined($ans_eval) ) {
+		my $rh_ans_hash = $ans_eval->evaluate($answer);
+                $response = (defined($rh_ans_hash) and 1 == $rh_ans_hash->{score}) ? 1:0;
+		TEXT("result of evaluating $answerName",$BR, pretty_print($rh_ans_hash) ) if $debug;
+	} else {
+         warn "Answer evaluator for answer $answerName is not defined" unless defined($ans_eval);
+         # it's ok to have a blank answer.
+    }
+    return $response;   # response is (undef => no answer, 1=> correct answer, 0 => not completely correct
+}
+sub listQueuedAnswers {
+        # lists the names of the answer blanks so far;
+        my %pg_answers_hash = get_PG_ANSWERS_HASH();
+        join(" ", keys %pg_answers_hash);
+}
+sub checkQueuedAnswers {
+       # gather all of the answers submitted up to this time
+      my %options = @_;
+      my $debug = ($options{debug}) ? 1 :0;
+      my (%pg_answers_hash) = get_PG_ANSWERS_HASH();
+      my %scores=();
+      foreach $label (keys %pg_answers_hash) {
+             $scores{$label}=checkAnswer($label,  debug=>$debug);
+      }
+     %scores;
+}
+sub all_answers_are_correct{
+     # return 1 if all scores are 1, else it returns 0;
+     # returns 0 if no answers have been checked yet
+     my %scores = checkQueuedAnswers();
+     return 0 unless %scores;
+     my $result =1;
+     foreach my $label (keys %scores) { if (not defined($scores{$label}) or $scores{$label} <1) {$result=0; last;} };  
+     $result;
+}
+sub get_incorrect_answers {
+	# returns only incorrect answers, not blank or undefined answers.
+    my %scores = checkQueuedAnswers();
+    my @incorrect = ();
+    foreach my $label (keys %scores) {push( @incorrect, $label) 
+          unless  (not defined($scores{$label}) or $scores{$label}==1  )
+    };
+    @incorrect;
+}
+
+1;
+
+