[popfile-commit] engine/Classifier Bayes.pm,1.327.4.7,1.327.4.8

[Manni H. <man...@us...>]

Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11563/Classifier

Modified Files:
      Tag: b0_22_2
	Bayes.pm 
Log Message:
Fix bug that prevented magnets containing quote characters from being deleted.

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.327.4.7
retrieving revision 1.327.4.8
diff -C2 -d -r1.327.4.7 -r1.327.4.8
*** Bayes.pm	22 Jan 2007 12:29:32 -0000	1.327.4.7
--- Bayes.pm	31 Aug 2007 14:13:48 -0000	1.327.4.8
***************
*** 3843,3851 ****
  
      my $mtid = $result->[0];
  
      $self->{db__}->do( "delete from magnets
                              where magnets.bucketid = $bucketid and
                                    magnets.mtid = $mtid and
!                                   magnets.val  = '$text';" );
  }
  
--- 3843,3852 ----
  
      my $mtid = $result->[0];
+     $text = $self->{db__}->quote( $text );
  
      $self->{db__}->do( "delete from magnets
                              where magnets.bucketid = $bucketid and
                                    magnets.mtid = $mtid and
!                                   magnets.val  = $text;" );
  }