[popfile-commit] engine traintest.pl,1.1,1.2

[<ssc...@us...>]

Update of /cvsroot/popfile/engine
In directory sc8-pr-cvs1:/tmp/cvs-serv7785

Modified Files:
	traintest.pl 
Log Message:
fix CSV output of subject/from (porting problem from 0.18)

Index: traintest.pl
===================================================================
RCS file: /cvsroot/popfile/engine/traintest.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** traintest.pl	13 Mar 2003 03:08:34 -0000	1.1
--- traintest.pl	16 Mar 2003 00:57:16 -0000	1.2
***************
*** 320,324 ****
              @errors[$error_count] = {};
              @errors[$error_count]->{index}= $message_count;
!             @errors[$error_count]->{subject} = $b->{parser}->{subject};
              @errors[$error_count]->{shouldbe} = $bucket_true;
              @errors[$error_count]->{classified_as} = $bucket_class;
--- 320,324 ----
              @errors[$error_count] = {};
              @errors[$error_count]->{index}= $message_count;
!             @errors[$error_count]->{subject} = $b->{parser__}->{subject__};
              @errors[$error_count]->{shouldbe} = $bucket_true;
              @errors[$error_count]->{classified_as} = $bucket_class;
***************
*** 344,349 ****
          @clog[$message_count]->{error_count} = $error_count;
          @clog[$message_count]->{accuracy} = int( 10000 * ( $message_count - $error_count ) / $message_count ) / 100;
!         @clog[$message_count]->{subject} = $b->{parser}->{subject};
!         @clog[$message_count]->{from} = $b->{parser}->{from};
          @clog[$message_count]->{shouldbe} = $bucket_true;
          @clog[$message_count]->{classified_as} = $bucket_class;
--- 344,349 ----
          @clog[$message_count]->{error_count} = $error_count;
          @clog[$message_count]->{accuracy} = int( 10000 * ( $message_count - $error_count ) / $message_count ) / 100;
!         @clog[$message_count]->{subject} = $b->{parser__}->{subject__};
!         @clog[$message_count]->{from} = $b->{parser__}->{from__};
          @clog[$message_count]->{shouldbe} = $bucket_true;
          @clog[$message_count]->{classified_as} = $bucket_class;