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> </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> </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\"> </td></tr>\n";
! $self->{scores} .= "<tr><th scope=\"col\">Word</th><th scope=\"col\">Prob</th><th> </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\"> </td></tr>\n";
! $self->{scores} .= "<tr>\n<th scope=\"col\">Word</th><th scope=\"col\">Prob</th>\n<th> </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) {
|
