[popfile-commit] engine/UI HTML.pm,1.215,1.216

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

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

Modified Files:
	HTML.pm 
Log Message:
Merge Junya patch that fixes problems I introduced when I 'cleaned up' the Japanese/Korean code

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.215
retrieving revision 1.216
diff -C2 -d -r1.215 -r1.216
*** HTML.pm	13 Oct 2003 20:23:40 -0000	1.215
--- HTML.pm	14 Oct 2003 16:17:18 -0000	1.216
***************
*** 2672,2684 ****
          $short_subject =~ s/=20/ /g;
          $short_subject =~ /(.{40})/;
  
          # Do not truncate at 39 if the last char is the first byte of DBCS char(pair of two bytes).
          # Truncate it 1 byte shorter.
          if ( $self->config_( 'language' ) =~ /^Korean|Nihongo$/ ) {
-             $short_subject = $1;
              $short_subject =~ s/(([\x80-\xff].)*)[\x80-\xff]?$/$1/;
              $short_subject .= "...";
          } else {
!             $short_subject = "$1...";
          }
      }
--- 2672,2684 ----
          $short_subject =~ s/=20/ /g;
          $short_subject =~ /(.{40})/;
+         $short_subject = $1;
  
          # Do not truncate at 39 if the last char is the first byte of DBCS char(pair of two bytes).
          # Truncate it 1 byte shorter.
          if ( $self->config_( 'language' ) =~ /^Korean|Nihongo$/ ) {
              $short_subject =~ s/(([\x80-\xff].)*)[\x80-\xff]?$/$1/;
              $short_subject .= "...";
          } else {
!             $short_subject .= "...";
          }
      }