[popfile-commit] engine/UI HTML.pm,1.207,1.208

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

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

Modified Files:
	HTML.pm 
Log Message:
Merge updated Japanese support that fixes small bugs and removes the need for Encode for non-Japanese users

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.207
retrieving revision 1.208
diff -C2 -d -r1.207 -r1.208
*** HTML.pm	30 Sep 2003 20:09:29 -0000	1.207
--- HTML.pm	1 Oct 2003 14:34:28 -0000	1.208
***************
*** 221,225 ****
      # 'prob' for probabilities, 'score' for logarithmic scores.
      $self->config_( 'wordtable_format', 'prob' );
!   
      # Load skins
  
--- 221,225 ----
      # 'prob' for probabilities, 'score' for logarithmic scores.
      $self->config_( 'wordtable_format', 'prob' );
! 
      # Load skins
  
***************
*** 2634,2638 ****
              last          if ( /^(\r\n|\r|\n)/ );
  
!             # Support long header that has more than 2 lines by JI
  
              if(/^[\t ]+(=\?[\w-]+\?[BQ]\?.*\?=.*)/){
--- 2634,2638 ----
              last          if ( /^(\r\n|\r|\n)/ );
  
!             # Support long header that has more than 2 lines
  
              if(/^[\t ]+(=\?[\w-]+\?[BQ]\?.*\?=.*)/){
***************
*** 2670,2676 ****
  
      # TODO Interface violation here, need to clean up
  
!     $from    = $self->{classifier__}->{parser__}->decode_string( $from );
!     $subject = $self->{classifier__}->{parser__}->decode_string( $subject );
  
      my ( $short_from, $short_subject ) = ( $from, $subject );
--- 2670,2677 ----
  
      # TODO Interface violation here, need to clean up
+     # Pass language parameter to decode_string()
  
!     $from    = $self->{classifier__}->{parser__}->decode_string( $from, $self->config_( 'language' ) );
!     $subject = $self->{classifier__}->{parser__}->decode_string( $from, $self->config_( 'language' ) );
  
      my ( $short_from, $short_subject ) = ( $from, $subject );