Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1:/tmp/cvs-serv26881
Modified Files:
Bayes.pm
Log Message:
fix warnings in new wordlist display due to array index boundary error
Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.133
retrieving revision 1.134
diff -C2 -d -r1.133 -r1.134
*** Bayes.pm 20 Apr 2003 23:34:06 -0000 1.133
--- Bayes.pm 21 Apr 2003 08:56:51 -0000 1.134
***************
*** 683,687 ****
$self->{scores__} .= "<tr>\n<th scope=\"col\">$language{Word}</th><th> </th><th scope=\"col\">$language{Count}</th><th> </th>\n";
! foreach my $ix (0..(@buckets > 7? 7: @buckets)) {
my $bucket = $ranking[$ix];
my $bucketcolor = $self->get_bucket_color( $bucket );
--- 683,687 ----
$self->{scores__} .= "<tr>\n<th scope=\"col\">$language{Word}</th><th> </th><th scope=\"col\">$language{Count}</th><th> </th>\n";
! foreach my $ix (0..($#buckets > 7? 7: $#buckets)) {
my $bucket = $ranking[$ix];
my $bucketcolor = $self->get_bucket_color( $bucket );
***************
*** 711,715 ****
my $base_probability = $self->get_value_( $ranking[0], $word );
! foreach my $ix (0..(@buckets > 7? 7: @buckets)) {
my $bucket = $ranking[$ix];
my $probability = get_value_( $self, $bucket, $word );
--- 711,715 ----
my $base_probability = $self->get_value_( $ranking[0], $word );
! foreach my $ix (0..($#buckets > 7? 7: $#buckets)) {
my $bucket = $ranking[$ix];
my $probability = get_value_( $self, $bucket, $word );
|
