[WWcvs] pg: fix error in defining $attempts

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

Log Message:
-----------
fix error in defining $attempts

Tags:
----
rel-2-4-patches

Modified Files:
--------------
    pg/macros:
        PGbasicmacros.pl

Revision Data
-------------
Index: PGbasicmacros.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/PGbasicmacros.pl,v
retrieving revision 1.47.2.2.2.5
retrieving revision 1.47.2.2.2.6
diff -Lmacros/PGbasicmacros.pl -Lmacros/PGbasicmacros.pl -u -r1.47.2.2.2.5 -r1.47.2.2.2.6
--- macros/PGbasicmacros.pl
+++ macros/PGbasicmacros.pl
@@ -1003,7 +1003,8 @@
     my $showHint = PG_restricted_eval(q!$main::showHint!);
     my $displayHint = PG_restricted_eval(q!$envir->{'displayHintsQ'}!);
 	PG_restricted_eval(q!$main::hintExists =1!);
-    my $attempts = PG_restricted_eval(q!$main::numOfAttempts = 0 unless defined($main::numOfAttempts);!);
+    PG_restricted_eval(q!$main::numOfAttempts = 0 unless defined($main::numOfAttempts);!);
+    my $attempts = PG_restricted_eval(q!$main::numOfAttempts!);
 
 	if ($displayMode eq 'TeX')   {
 	    if ($printHintForInstructor) {
@@ -1023,26 +1024,6 @@
   $out ;
 }
 
-# sub hint {
-#    	my @in = @_;
-# 	my $out = '';
-# 
-# 	PG_restricted_eval(q!$main::hintExists =1;
-#                          $main::numOfAttempts = 0 unless defined($main::numOfAttempts);
-#     !);
-# 
-# 	if ($displayMode eq 'TeX')   {
-# 		$out = '';  # do nothing since hints are not available for download
-# 	} elsif (($envir->{'displayHintsQ'}) and
-# 	        PG_restricted_eval(q!($main::numOfAttempts >= $main::showHint)!))
-# 
-# 	 ## the second test above prevents a hint being shown if a doctored form is submitted
-# 
-# 	{$out = join(' ',@in);}    # show hint
-# 
-#   $out ;
-# }
-
 
 sub HINT {
     TEXT("$BR" . hint(@_) . "$BR") if hint(@_);