Changeset 3531 for trunk/lib/MT/I18N
- Timestamp:
- 03/12/09 09:11:52 (9 months ago)
- Location:
- trunk/lib/MT/I18N
- Files:
-
- 3 modified
Legend:
- Unmodified
- Added
- Removed
-
trunk/lib/MT/I18N/default.pm
r2967 r3531 1 # Movable Type (r) Open Source (C) 2001-200 8Six Apart, Ltd.1 # Movable Type (r) Open Source (C) 2001-2009 Six Apart, Ltd. 2 2 # This program is distributed under the terms of the 3 3 # GNU General Public License, version 2. … … 60 60 $class->$meth(@_); 61 61 } 62 63 sub encode { 64 my $class = shift; 65 my $meth = 'encode_' . ($PKG || $class->_load_module); 66 $class->$meth(@_); 67 } 68 62 69 sub guess_encoding { 63 70 my $class = shift; … … 105 112 $class->$meth(@_); 106 113 } 114 107 115 sub decode_utf8 { 108 116 my $class = shift; … … 132 140 133 141 sub decode_perl { 142 my $class = shift; 143 my ($enc, $text) = @_; 144 $text; 145 } 146 147 sub encode_perl { 134 148 my $class = shift; 135 149 my ($enc, $text) = @_; -
trunk/lib/MT/I18N/en_us.pm
r1174 r3531 1 # Movable Type (r) Open Source (C) 2001-200 8Six Apart, Ltd.1 # Movable Type (r) Open Source (C) 2001-2009 Six Apart, Ltd. 2 2 # This program is distributed under the terms of the 3 3 # GNU General Public License, version 2. -
trunk/lib/MT/I18N/ja.pm
r2929 r3531 1 # Movable Type (r) Open Source (C) 2001-200 8Six Apart, Ltd.1 # Movable Type (r) Open Source (C) 2001-2009 Six Apart, Ltd. 2 2 # This program is distributed under the terms of the 3 3 # GNU General Public License, version 2. … … 84 84 $enc = $class->_conv_enc_label($enc); 85 85 return $enc; 86 } 87 88 sub encode_jcode { 89 my $class = shift; 90 my ($enc, $text) = @_; 91 return $class->encode_text_jcode($text, 'utf-8', $enc); 86 92 } 87 93
