Changeset 5450

Timestamp:

01/25/08 00:58:48 (5 years ago)

Author:

tokuhirom

Message:

W32H cannot display &#xXXXX; f*cking..

Location:

lang/perl/HTML-Entities-ConvertPictogramMobileJp/trunk

Files:

• lib/HTML/Entities/ConvertPictogramMobileJp.pm (modified) (2 diffs)
• t/01_simple.t (modified) (2 diffs)

lang/perl/HTML-Entities-ConvertPictogramMobileJp/trunk/lib/HTML/Entities/ConvertPictogramMobileJp.pm

@@ -5 +5 @@
 use Encode;
 use Encode::JP::Mobile;
+use Encode::JP::Mobile::Character;
 use Params::Validate;
 use base 'Exporter';
@@ -22 +23 @@
             _convert_unicode('softbank', $2)
         } elsif ($agent->is_ezweb) {
-            join '', map { sprintf( '&#x%X;', unpack( 'U*', $_ ) ) } split //,
-              decode "x-sjis-kddi-cp932-raw", encode( "x-sjis-kddi-auto", chr( hex $2 ) );
+            join '', map {
+                sprintf '<img localsrc="%d" />',
+                  Encode::JP::Mobile::Character->from_unicode( unpack 'U*', $_ )->number
+              }
+              split //, decode "x-sjis-kddi-auto-raw",
+              encode( "x-sjis-kddi-auto", chr( hex $2 ) );
         } elsif ($agent->is_docomo && $agent->is_foma) {
             _convert_unicode('docomo', $2)

lang/perl/HTML-Entities-ConvertPictogramMobileJp/trunk/t/01_simple.t

@@ -30 +30 @@
 user_agent: KDDI-SA31 UP.Browser/6.2.0.7.3.129 (GUI) MMP/2.0
 html: ""
---- expected: 
+--- expected: <img localsrc="44" /><img localsrc="341" />
 
 === i2i(foma)
@@ -54 +54 @@
 user_agent: KDDI-SA31 UP.Browser/6.2.0.7.3.129 (GUI) MMP/2.0
 html: "&#xE722;"
---- expected: &#xE471;&#xE5B1;
+--- expected: <img localsrc="257" /><img localsrc="330" />
 
 === i2v, pair