[popfile-commit] engine/UI HTML.pm,1.124,1.125

[<ssc...@us...>]

Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv15212

Modified Files:
	HTML.pm 
Log Message:
fix bucket color change

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.124
retrieving revision 1.125
diff -C2 -d -r1.124 -r1.125
*** HTML.pm	10 Apr 2003 23:19:53 -0000	1.124
--- HTML.pm	12 Apr 2003 02:20:17 -0000	1.125
***************
*** 1509,1513 ****
  
      if ( ( defined($self->{form_}{color}) ) && ( defined($self->{form_}{bucket}) ) ) {
!         open COLOR, '>' . $self->config_( 'corpus' ) . "/$self->{form_}{bucket}/color";
          print COLOR "$self->{form_}{color}\n";
          close COLOR;
--- 1509,1513 ----
  
      if ( ( defined($self->{form_}{color}) ) && ( defined($self->{form_}{bucket}) ) ) {
!         open COLOR, '>' . $self->{classifier__}->config_( 'corpus' ) . "/$self->{form_}{bucket}/color";
          print COLOR "$self->{form_}{color}\n";
          close COLOR;