popfile-commit

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

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

Modified Files:
	HTML.pm 
Log Message:
added title attrib. to buckets color picker -- tooltip now pops up in Mozilla - Opera still problematic

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.156
retrieving revision 1.157
diff -C2 -d -r1.156 -r1.157
*** HTML.pm	20 May 2003 20:20:33 -0000	1.156
--- HTML.pm	22 May 2003 05:17:06 -0000	1.157
***************
*** 1807,1811 ****
          $body .= "<td>&nbsp;</td>\n<td align=\"left\">\n<table class=\"colorChooserTable\" cellpadding=\"0\" cellspacing=\"1\" summary=\"\">\n<tr>\n";
          my $color = $self->{classifier__}->get_bucket_color($bucket);
!         $body .= "<td bgcolor=\"$color\">\n<img class=\"colorChooserImg\" border=\"0\" alt='" . sprintf( $self->{language__}{Bucket_CurrentColor}, $bucket, $color ) . "' src=\"pix.gif\" width=\"10\" height=\"20\" /></td>\n<td>&nbsp;</td>\n";
          for my $i ( 0 .. $#{$self->{classifier__}->{possible_colors__}} ) {
              my $color = $self->{classifier__}->{possible_colors__}[$i];
--- 1807,1811 ----
          $body .= "<td>&nbsp;</td>\n<td align=\"left\">\n<table class=\"colorChooserTable\" cellpadding=\"0\" cellspacing=\"1\" summary=\"\">\n<tr>\n";
          my $color = $self->{classifier__}->get_bucket_color($bucket);
!         $body .= "<td bgcolor=\"$color\" title='" . sprintf( $self->{language__}{Bucket_CurrentColor}, $bucket, $color ) . "'>\n<img class=\"colorChooserImg\" border=\"0\" alt='" . sprintf( $self->{language__}{Bucket_CurrentColor}, $bucket, $color ) . "' src=\"pix.gif\" width=\"10\" height=\"20\" /></td>\n<td>&nbsp;</td>\n";
          for my $i ( 0 .. $#{$self->{classifier__}->{possible_colors__}} ) {
              my $color = $self->{classifier__}->{possible_colors__}[$i];