Changeset 8902


Ignore:
Timestamp:
2005-01-17T16:44:54+13:00 (19 years ago)
Author:
jrm21
Message:

slightly better way of recognising gb charset names (mapped to 'gb')

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/perllib/plugins/EMAILPlug.pm

    r8121 r8902  
    980980  $charset =~ tr/A-Z/a-z/; # lowercase
    981981  $charset =~ s/\-/_/g;
    982   $charset =~ s/gb2312/gb/;
     982  if ($charset =~ /gb_?2312/) { $charset="gb" }
    983983  # assumes EUC-KR, not ISO-2022 !?
    984984  $charset =~ s/^ks_c_5601_1987/korean/;
Note: See TracChangeset for help on using the changeset viewer.