common/tools/raptor/RaptorCommon.pm
changeset 764 d00048f1b036
parent 383 52675b624b66
--- a/common/tools/raptor/RaptorCommon.pm	Fri Nov 13 14:15:28 2009 +0000
+++ b/common/tools/raptor/RaptorCommon.pm	Fri Nov 13 17:47:50 2009 +0000
@@ -20,7 +20,7 @@
 
 sub init
 {
-	my $filename = "$::basedir/summary.csv";
+	my $filename = "$::raptorbitsdir/summary.csv";
 	if (!-f$filename)
 	{
 		print "Writing summary file $filename\n";
@@ -31,10 +31,10 @@
 
 sub dump_fault
 {
-	my ($category, $subcategory, $severity, $component, $phase, $recipe, $file, $line) = @_;
+	my ($category, $subcategory, $severity, $location, $component, $mmp, $phase, $recipe, $file, $line) = @_;
 	
-	open(SUMMARY, ">>$::basedir/summary.csv");
-	print SUMMARY "$category,$subcategory,$severity,$::raptor_config,$component,$phase,$recipe,$file,$line\n";
+	open(SUMMARY, ">>$::raptorbitsdir/summary.csv");
+	print SUMMARY "$category,$subcategory,$severity,$location,$component,$mmp,$phase,$recipe,$file,$line\n";
 	close(SUMMARY);
 }