# HG changeset patch
# User Maciej Seroka <maciejs@symbian.org>
# Date 1272447322 -3600
# Node ID ade7819ee16c49f21a60a80a84a5d2fa39deea15
# Parent  38294310f88b7465dfa351fb5c4b7ffa78887ddc
Fixed saving compilationerror element in headers reports

diff -r 38294310f88b -r ade7819ee16c bc_tools/ha_filter.pl
--- a/bc_tools/ha_filter.pl	Wed Apr 21 15:44:40 2010 +0100
+++ b/bc_tools/ha_filter.pl	Wed Apr 28 10:35:22 2010 +0100
@@ -79,7 +79,7 @@
     forcearray => [ 'header', 'baselineversion', 'currentversion', 'timestamp', 'day', 'month', 'year', 'hour', 'minute', 'second', #
 	'haversion', 'formatversion', 'cmdlineparms', 'parm', 'pname', 'pvalue', 'knownissuesversion', 'os', 'version', 'buildweek', 'issuelist',#
 	'headerfile', 'filename', 'comparefilename', 'status', 'comment', 'issue', 'checksum', 'shortname', 'issueid', 'typeid', 'identityid', #
-	'identitydescription', 'typestring', 'cause', 'documentation', 'ignoreinformation', 'linenumber', 'severity', 'scseverity'], keyattr => [] );
+	'identitydescription', 'typestring', 'cause', 'documentation', 'ignoreinformation', 'linenumber', 'severity', 'scseverity', 'compilationerror'], keyattr => [] );
 print "complete \n";
 
 # Get number of header files.
@@ -256,7 +256,7 @@
 		 forcearray => [ 'header', 'baselineversion', 'currentversion', 'timestamp', 'day', 'month', 'year', 'hour', 'minute', 'second', #
 		 'haversion', 'formatversion', 'cmdlineparms', 'parm', 'pname', 'pvalue', 'knownissuesversion', 'os', 'version', 'buildweek', 'issuelist',#
 		 'headerfile', 'filename', 'comparefilename', 'status', 'comment', 'issue', 'checksum', 'shortname', 'issueid', 'typeid', 'identityid', #
-		 'identitydescription', 'typestring', 'cause', 'documentation', 'ignoreinformation', 'linenumber', 'severity', 'scseverity'], keyattr => [] );
+		 'identitydescription', 'typestring', 'cause', 'documentation', 'ignoreinformation', 'linenumber', 'severity', 'scseverity', 'compilationerror'], keyattr => [] );
 		print "complete \n";
 		$n = 0;
 		$header_num = @{$temp_report->{'bbcresults'}->{'issuelist'}->[0]->{'headerfile'}};
@@ -264,7 +264,7 @@
 		while ($n < $header_num) {
 			$file_name = $temp_report->{'bbcresults'}->{'issuelist'}->[0]->{'headerfile'}->[$n]->{'shortname'}->[0];
 			$pkg_found = 0;
-			open FILE, "<$tsv_file" or die("Failed to read $tsv_file: $!\n");;
+			open FILE, "<$tsv_file" or die("Failed to read $tsv_file: $!\n");
 			while ($line = <FILE>)
 			{
 				chomp $line;