[popfile-commit] engine/UI HTML.pm,1.311.4.10,1.311.4.11

[naoki i. <am...@us...>]

Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13541/UI

Modified Files:
      Tag: b0_22_2
	HTML.pm 
Log Message:
Japanese users now choose the Japanese parser by changing 'bayes_nihongo_parser' option.
Performance improvement for Japanese users.
Decode the encoded attatchment file names.

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.311.4.10
retrieving revision 1.311.4.11
diff -C2 -d -r1.311.4.10 -r1.311.4.11
*** HTML.pm	10 Feb 2007 22:56:18 -0000	1.311.4.10
--- HTML.pm	6 Sep 2007 16:26:08 -0000	1.311.4.11
***************
*** 1148,1152 ****
                  if ( $self->config_( 'language' ) =~ /^Nihongo$/ ) {
                 no locale;
!                $word =~ /^($euc_jp)/;
                 $c = $1;
              } else {
--- 1148,1152 ----
                  if ( $self->config_( 'language' ) =~ /^Nihongo$/ ) {
                 no locale;
!                $word =~ /^($euc_jp)/o;
                 $c = $1;
              } else {
***************
*** 2465,2469 ****
              if ( $self->config_( 'language' ) eq 'Nihongo' ) {
                  # Remove wrong characters as euc-jp.
!                 $$row[4] =~ s/\G((?:$euc_jp)*)([\x80-\xFF](?=(?:$euc_jp)*))?/$1/og;
              }
  
--- 2465,2471 ----
              if ( $self->config_( 'language' ) eq 'Nihongo' ) {
                  # Remove wrong characters as euc-jp.
!                 for my $i (1..4) {
!                     $$row[$i] =~ s/\G((?:$euc_jp)*)([\x80-\xFF](?=(?:$euc_jp)*))?/$1/og;
!                 }
              }
  
***************
*** 2537,2542 ****
  
      if ( length($string)>$length) {
!        $string =~ /(.{$length})/;
!        $string = "$1...";
      }
  
--- 2539,2545 ----
  
      if ( length($string)>$length) {
!         $string =~ /(.{$length})/;
!         $1 =~ /((?:$euc_jp)*)/o if ( $self->config_( 'language' ) eq 'Nihongo' );
!         $string = "$1...";
      }