[popfile-commit] engine/Classifier Bayes.pm,1.125,1.126

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

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

Modified Files:
	Bayes.pm 
Log Message:
change new function to match POPFile specification (In POPFile::Module)

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.125
retrieving revision 1.126
diff -C2 -d -r1.125 -r1.126
*** Bayes.pm	16 Apr 2003 00:59:57 -0000	1.125
--- Bayes.pm	16 Apr 2003 23:20:12 -0000	1.126
***************
*** 1498,1502 ****
  # ---------------------------------------------------------------------------------------------
  #
! # toggle_score - Enables and disables the saving of word scores
  #
  # $value        1 for enabled, 0 for disabled
--- 1498,1502 ----
  # ---------------------------------------------------------------------------------------------
  #
! # wordscores - Enables and disables the saving of word scores
  #
  # $value        1 for enabled, 0 for disabled
***************
*** 1504,1512 ****
  # ---------------------------------------------------------------------------------------------
  
! sub toggle_score
  {
      my ( $self, $value ) = @_;
      
!     $self->{wordscores__} = $value;
  }
  
--- 1504,1514 ----
  # ---------------------------------------------------------------------------------------------
  
! sub wordscores
  {
      my ( $self, $value ) = @_;
      
!     $self->{wordscores__} = $value if (defined $value);
!     
!     return $self->{wordscores__};
  }