[WWcvs] pg: If a problem file sets $refreshCachedImages=1 inside the pg file,

[jj v. a. <we...@ma...>]

Log Message:
-----------
If a problem file sets $refreshCachedImages=1 inside the pg file, then
cached copies of on the fly graphics are ignored and the graphic is
regenerated.

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

Revision Data
-------------
Index: dangerousMacros.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/dangerousMacros.pl,v
retrieving revision 1.35
retrieving revision 1.36
diff -Lmacros/dangerousMacros.pl -Lmacros/dangerousMacros.pl -u -r1.35 -r1.36
--- macros/dangerousMacros.pl
+++ macros/dangerousMacros.pl
@@ -377,10 +377,13 @@
 	my $fileName = $graph->imageName  . $extension;
 	my $filePath = convertPath("gif/$fileName");
 	$filePath = &surePathToTmpFile( $filePath );
+	my $refreshCachedImages = PG_restricted_eval(q!$refreshCachedImages!);
 	# Check to see if we already have this graph, or if we have to make it
 	if( not -e $filePath # does it exist?
 	  or ((stat "$templateDirectory"."$main::envir{fileName}")[9] > (stat $filePath)[9]) # source has changed
-          or $graph->imageName =~ /Undefined_Set/) { # problems from SetMaker and its ilk should always be redone
+	  or $graph->imageName =~ /Undefined_Set/ # problems from SetMaker and its ilk should always be redone
+	  or $refreshCachedImages
+	) {
  		#createFile($filePath, $main::tmp_file_permission, $main::numericalGroupID);
 		local(*OUTPUT);  # create local file handle so it won't overwrite other open files.
  		open(OUTPUT, ">$filePath")||warn ("$0","Can't open $filePath<BR>","");