[popfile-commit] engine/Classifier Bayes.pm,1.100,1.101

[<sta...@us...>]

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

Modified Files:
	Bayes.pm 
Log Message:
David Smith Accessibility 2b changes

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.100
retrieving revision 1.101
diff -C2 -d -r1.100 -r1.101
*** Bayes.pm	20 Feb 2003 16:25:53 -0000	1.100
--- Bayes.pm	21 Feb 2003 20:15:56 -0000	1.101
***************
*** 653,657 ****
      }
  
!     $self->{scores} = "<b>Scores</b><p><table><tr><th scope=\"col\">Bucket</th>\n<th>&nbsp;</th>\n";
      $self->{scores} .= "<th scope=\"col\">Probability</th></tr>\n";
      print "Bucket              Raw score      Normalized     Estimated prob\n\n" if $self->{debug};
--- 653,657 ----
      }
  
!     $self->{scores} = "<b>Scores</b><p>\n<table class=\"top20Buckets\">\n<tr>\n<th scope=\"col\">Bucket</th>\n<th>&nbsp;</th>\n";
      $self->{scores} .= "<th scope=\"col\">Probability</th></tr>\n";
      print "Bucket              Raw score      Normalized     Estimated prob\n\n" if $self->{debug};
***************
*** 670,676 ****
  
      if ($self->{wordscores}) {
!         $self->{scores} .= "<table>\n<tr><td colspan=\"4\">&nbsp;</td></tr>\n";
!         $self->{scores} .= "<tr><th scope=\"col\">Word</th><th scope=\"col\">Prob</th><th>&nbsp;</th>";
!         $self->{scores} .= "<th scope=\"col\"><font color=\"$self->{colors}{$ranking[0]}\">$ranking[0]</font></th></tr>\n";
          my $wi = 0;
          foreach my $word (@wordrank) {
--- 670,676 ----
  
      if ($self->{wordscores}) {
!         $self->{scores} .= "<table class=\"top20Words\">\n<tr><td colspan=\"4\">&nbsp;</td></tr>\n";
!         $self->{scores} .= "<tr>\n<th scope=\"col\">Word</th><th scope=\"col\">Prob</th>\n<th>&nbsp;</th>\n";
!         $self->{scores} .= "<th scope=\"col\">\n<font color=\"$self->{colors}{$ranking[0]}\">$ranking[0]</font>\n</th>\n</tr>\n";
          my $wi = 0;
          foreach my $word (@wordrank) {