Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv23571/UI
Modified Files:
HTML.pm
Log Message:
Fix problem where an empty stopword list would crash the Advanced tab
Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.164
retrieving revision 1.165
diff -C2 -d -r1.164 -r1.165
*** HTML.pm 30 May 2003 20:57:40 -0000 1.164
--- HTML.pm 2 Jun 2003 19:51:00 -0000 1.165
***************
*** 1177,1181 ****
my $groupSize = 5;
my $firstRow = 1;
! for my $word (sort keys %{$self->{classifier__}->get_stopword_list()}) {
$word =~ /^(.)/;
if ( $1 ne $last ) {
--- 1177,1183 ----
my $groupSize = 5;
my $firstRow = 1;
! my @words = $self->{classifier__}->get_stopword_list();
!
! for my $word (sort @words) {
$word =~ /^(.)/;
if ( $1 ne $last ) {
***************
*** 1209,1212 ****
--- 1211,1215 ----
}
}
+
$body .= "</td></tr>\n</table>\n";
|
