[popfile-commit] engine/Classifier Bayes.pm,1.154,1.155

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

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

Modified Files:
	Bayes.pm 
Log Message:
complete API use for class files in Bayes.pm

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.154
retrieving revision 1.155
diff -C2 -d -r1.154 -r1.155
*** Bayes.pm	24 Jun 2003 13:38:26 -0000	1.154
--- Bayes.pm	25 Jun 2003 04:20:53 -0000	1.155
***************
*** 578,582 ****
  
      $self->{magnet_used__}   = 0;
!     $self->{magnet_detail__} = 0;
  
      $self->{parser__}->parse_stream($file);
--- 578,582 ----
  
      $self->{magnet_used__}   = 0;
!     $self->{magnet_detail__} = '';
  
      $self->{parser__}->parse_stream($file);
***************
*** 1165,1175 ****
  
      if ( !$nosave ) {
!         open CLASS, ">$class_file";
!         if ( $self->{magnet_used__} == 0 )  {
!             print CLASS "$classification\n";
!         } else {
!             print CLASS "$classification MAGNET $self->{magnet_detail__}\n";
!         }
!         close CLASS;
      }
  
--- 1165,1170 ----
  
      if ( !$nosave ) {
!         $class_file =~ s/^([^\/])*\///;
!         $self->history_write_class($class_file, undef, $classification, undef, ($self->{magnet_used__}?$self->{magnet_detail__}:undef))
      }