[popfile-commit] engine/Classifier Bayes.pm,1.123,1.124

[<jgr...@us...>]

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

Modified Files:
	Bayes.pm 
Log Message:
Finished working on false positive/negative counting

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.123
retrieving revision 1.124
diff -C2 -d -r1.123 -r1.124
*** Bayes.pm	12 Apr 2003 21:16:52 -0000	1.123
--- Bayes.pm	15 Apr 2003 21:20:17 -0000	1.124
***************
*** 1069,1073 ****
      my ( $self, $bucket, $parameter ) = @_;
  
!     return $self->{parameters__}{$bucket}{$parameter};
  }
  
--- 1069,1080 ----
      my ( $self, $bucket, $parameter ) = @_;
  
!     my $param = $self->{parameters__}{$bucket}{$parameter};
! 
!     if ( !defined( $param ) ) {
!         $param = 0;
!     }
! 
!     $self->log_( "get_bucket_parameter( $bucket, $parameter ) is $param ");
!     return $param;
  }
  
***************
*** 1088,1092 ****
--- 1095,1102 ----
      my ( $self, $bucket, $parameter, $value ) = @_;
  
+     $self->log_( "set_bucket_parameter( $bucket, $parameter ) to $value ");
+ 
      $self->{parameters__}{$bucket}{$parameter} = $value;
+     $self->write_parameters();
  }