[WWcvs] pg: Update information to instructor about hints in the problem.

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

Log Message:
-----------
Update information to instructor about hints in the problem.

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

Revision Data
-------------
Index: PGbasicmacros.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/PGbasicmacros.pl,v
retrieving revision 1.58
retrieving revision 1.59
diff -Lmacros/PGbasicmacros.pl -Lmacros/PGbasicmacros.pl -u -r1.58 -r1.59
--- macros/PGbasicmacros.pl
+++ macros/PGbasicmacros.pl
@@ -1002,7 +1002,7 @@
 	           PG_restricted_eval(q!$main::envir{'PRINT_FILE_NAMES_PERMISSION_LEVEL'}!) : 10000; # protect against undefined values
     my $printHintForInstructor = $permissionLevel >= $PRINT_FILE_NAMES_PERMISSION_LEVEL;
     my $showHint = PG_restricted_eval(q!$main::showHint!);
-    my $displayHint = PG_restricted_eval(q!$envir{'displayHintsQ'}!);
+    my $displayHint = PG_restricted_eval(q!$main::envir{'displayHintsQ'}!);
 	PG_restricted_eval(q!$main::hintExists =1!);
     PG_restricted_eval(q!$main::numOfAttempts = 0 unless defined($main::numOfAttempts);!);
     my $attempts = PG_restricted_eval(q!$main::numOfAttempts!);
@@ -1014,7 +1014,7 @@
 			$out = '';  # do nothing since hints are not available for download for students
 		}
 	} elsif ($printHintForInstructor) {  # always print hints for instructor types 
-		$out = join(' ', "$BR( Show the student hint after $showHint attempts: )$BR $BBOLD HINT: $EBOLD ", @in);
+		$out = join(' ', "$BR( Show the student hint after $showHint attempts. The current number of attempts is $attempts. )$BR $BBOLD HINT: $EBOLD ", @in);
 	} elsif ( $displayHint  and ( $attempts > $showHint )) 	{
 
 	 ## the second test above prevents a hint being shown if a doctored form is submitted