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...";
}
|
