Index: req-status
===================================================================
RCS file: /cvsroot/its/sw/wreq/req-status,v
retrieving revision 1.2
diff -u -r1.2 req-status
--- req-status	1999/05/16 00:03:31	1.2
+++ req-status	1999/05/16 14:52:29
@@ -250,7 +250,12 @@
 	$recdyhin=$wstold+$recdyhin*$dysecs;
 	
 	if($FORM{'gif'} eq 'on'){# plot weekly end-of-the-week status
-		use GD;
+	        # Make sure this module only fails on missing GD.pm when 
+		# GIF graph is requested.
+		eval 'use GD;';
+		$im = new GD::Image(645,401);
+		&html_error("req-status: missing GD.pm.",
+			"<P>Fetch and install from CPAN") unless ($im);
 
 		print "Content-type: image/gif\n";
 		#print "Content-Disposition: inline; filename=\"req$$.gif\"\n";
@@ -287,7 +292,6 @@
 			#print "<br>$i X $wke X $wks X $openn X $wkopenn $t1 $t2 X $rmax \n";
 		}
 
-		$im = new GD::Image(645,401);
 		$white = $im->colorAllocate(255,255,255);
 		$black = $im->colorAllocate(0,0,0);       
 		$red = $im->colorAllocate(255,0,0);