[popfile-commit] engine/UI HTML.pm,1.175,1.176

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

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

Modified Files:
	HTML.pm 
Log Message:
Preserve case for header: pseudowords in lookup function

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.175
retrieving revision 1.176
diff -C2 -d -r1.175 -r1.176
*** HTML.pm	6 Jul 2003 01:02:09 -0000	1.175
--- HTML.pm	6 Jul 2003 01:08:33 -0000	1.176
***************
*** 2146,2150 ****
  
      if ( ( defined($self->{form_}{lookup}) ) || ( defined($self->{form_}{word}) ) ) {
!        my $word = $self->{classifier__}->{mangler__}->mangle($self->{form_}{word}, 1);
  
          $body .= "<blockquote>\n";
--- 2146,2154 ----
  
      if ( ( defined($self->{form_}{lookup}) ) || ( defined($self->{form_}{word}) ) ) {
!         my $word = $self->{form_}{word};
! 
!         if ( !( $word =~ /^header:/ ) ) {
!            $word = $self->{classifier__}->{mangler__}->mangle($word, 1);
!         }
  
          $body .= "<blockquote>\n";
***************
*** 2155,2159 ****
          $heading .= "<tr>\n<td>\n";
          $heading .= "<table summary=\"\">\n";
!         $heading .= "<caption><strong>$self->{language__}{Bucket_LookupMessage2} $self->{form_}{word}</strong><br /><br /></caption>";
          $heading .= "<tr>\n<th scope=\"col\">$self->{language__}{Bucket}</th>\n<th>&nbsp;</th>\n";
          $heading .= "<th scope=\"col\">$self->{language__}{Frequency}</th>\n<th>&nbsp;</th>\n";
--- 2159,2163 ----
          $heading .= "<tr>\n<td>\n";
          $heading .= "<table summary=\"\">\n";
!         $heading .= "<caption><strong>$self->{language__}{Bucket_LookupMessage2} $word</strong><br /><br /></caption>";
          $heading .= "<tr>\n<th scope=\"col\">$self->{language__}{Bucket}</th>\n<th>&nbsp;</th>\n";
          $heading .= "<th scope=\"col\">$self->{language__}{Frequency}</th>\n<th>&nbsp;</th>\n";
***************
*** 2209,2216 ****
              if ( $max_bucket ne '' ) {
                  $body .= "</table>\n<br /><br />";
!                 $body .= sprintf( $self->{language__}{Bucket_LookupMostLikely}, $self->{form_}{word}, $self->{classifier__}->get_bucket_color($max_bucket), $max_bucket);
                  $body .= "</td>\n</tr>\n</table>";
              } else {
!                 $body .= sprintf( $self->{language__}{Bucket_DoesNotAppear}, $self->{form_}{word} );
              }
          } else {
--- 2213,2220 ----
              if ( $max_bucket ne '' ) {
                  $body .= "</table>\n<br /><br />";
!                 $body .= sprintf( $self->{language__}{Bucket_LookupMostLikely}, $word, $self->{classifier__}->get_bucket_color($max_bucket), $max_bucket);
                  $body .= "</td>\n</tr>\n</table>";
              } else {
!                 $body .= sprintf( $self->{language__}{Bucket_DoesNotAppear}, $word );
              }
          } else {