--- trunk/webwork/system/cgi/cgi-scripts/welcomeAction.pl	2001/08/11 00:25:14	117
+++ trunk/webwork/system/cgi/cgi-scripts/welcomeAction.pl	2001/08/11 01:46:39	118
@@ -433,6 +433,21 @@
 			$PG_FLAGS_REF =$pt ->rh_flags;
 #             print OUTPUT @{$PG_PROBLEM_TEXT_REF};
             $texSource .= join '', @{$PG_PROBLEM_TEXT_REF};
+            if (defined($PG_FLAGS_REF->{'error_flag'}) and  $PG_FLAGS_REF->{'error_flag'} ==1) {
+	    		push(@PG_COMPILE_ERRORS, qq{<A HREF="#problem0">$probSetHeader</A>} );
+	    	}
+            if (defined($Global::WARNINGS) and $Global::WARNINGS) {
+                my $warnings = '{\\bf WARNINGS:\par{\\tiny ' . $Global::WARNINGS . ' }}';
+                $warnings =~ s|/|\\\-/|g;  #allow linebreaks in the middle of URLs
+              	$warnings =~ s/<br>/\\par\n/ig; #introduce breaks at linebreaks and paragraphs
+                $warnings =~ s/<p>/\\par\n/ig;  
+                $warnings =~ s/\#/\\\#/g;       #protect against some of the symbols which are reserved in tex 
+                $warnings =~ s/\_/\\\_/g;
+                $warnings =~ s/\>/\\\>/g;
+                $warnings =~ s/\</\\\</g;
+            	$texSource .= $warnings;
+            }
+            $Global::WARNINGS = '';   #reset the Global::WARNINGS parameter
 
         }	else {
 #        	print OUTPUT "Don't understand languages with extension $displayMode.<BR>\n";
@@ -526,14 +541,16 @@
             }
             if (defined($Global::WARNINGS) and $Global::WARNINGS) {
                 my $warnings = '{\\bf WARNINGS:\par{\\tiny ' . $Global::WARNINGS . ' }}';
-                $warnings =~ s|/|\\\-/|g;  #allow linebreaks in the middle of URLs
-              	$warnings =~ s/<br>/\\par\n/ig; #introduce breaks at linebreaks and paragraphs
-                $warnings =~ s/<p>/\\par\n/ig;  
-                $warnings =~ s/\#/\\\#/g;       #protect against some of the symbols which are reserved in tex 
-                $warnings =~ s/\_/\\\_/g;
-                $warnings =~ s/\>/\\\>/g;
-                $warnings =~ s/\</\\\</g;
-            	$texSource .= $warnings;
+                unless (@PG_COMPILE_ERRORS) {  # prepare warnings for TeX output in this case
+					$warnings =~ s|/|\\\-/|g;  #allow linebreaks in the middle of URLs
+					$warnings =~ s/<br>/\\par\n/ig; #introduce breaks at linebreaks and paragraphs
+					$warnings =~ s/<p>/\\par\n/ig;  
+					$warnings =~ s/\#/\\\#/g;       #protect against some of the symbols which are reserved in tex 
+					$warnings =~ s/\_/\\\_/g;
+					$warnings =~ s/\>/\\\>/g;
+					$warnings =~ s/\</\\\</g;
+					$texSource .= $warnings;
+            	}
             }
             $Global::WARNINGS = '';   #reset the Global::WARNINGS parameter
 	    }