popfile-commit

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

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

Modified Files:
	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.373
retrieving revision 1.374
diff -C2 -d -r1.373 -r1.374
*** HTML.pm	17 Jan 2007 03:16:11 -0000	1.373
--- HTML.pm	6 Sep 2007 17:05:42 -0000	1.374
***************
*** 3011,3015 ****
                       if ( $self->user_config_( $self->{sessions__}{$session}{user}, 'language' ) eq 'Nihongo' ) {
                           # Remove wrong characters as euc-jp.
!                          $$row[4] =~ s/\G((?:$euc_jp)*)([\x80-\xFF](?=(?:$euc_jp)*))?/$1/og;
                       }
  
--- 3011,3017 ----
                       if ( $self->user_config_( $self->{sessions__}{$session}{user}, '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;
!                          }
                       }
  
***************
*** 3110,3115 ****
  
      if ( length($string)>$length) {
!        $string =~ /(.{$length})/;
!        $string = "$1...";
      }
  
--- 3112,3118 ----
  
      if ( length($string)>$length) {
!         $string =~ /(.{$length})/;
!         $1 =~ /((?:$euc_jp)*)/o if ( $self->user_config_( $self->{sessions__}{$session}{user}, 'language' ) eq 'Nihongo' );
!         $string = "$1...";
      }