[popfile-commit] engine/UI HTML.pm,1.164,1.165

[<jgr...@us...>]

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";