Changeset 5451

Show
Ignore:
Timestamp:
01/25/08 01:00:26 (10 months ago)
Author:
tokuhirom
Message:

refactoring

Files:
1 modified

Legend:

Unmodified
Added
Removed

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

    r5450 r5451  
    2323            _convert_unicode('softbank', $2) 
    2424        } elsif ($agent->is_ezweb) { 
    25             join '', map { 
    26                 sprintf '<img localsrc="%d" />', 
    27                   Encode::JP::Mobile::Character->from_unicode( unpack 'U*', $_ )->number 
    28               } 
    29               split //, decode "x-sjis-kddi-auto-raw", 
    30               encode( "x-sjis-kddi-auto", chr( hex $2 ) ); 
     25            join '', map { sprintf '<img localsrc="%d" />', $_ } 
     26              map { Encode::JP::Mobile::Character->from_unicode($_)->number } 
     27              map { unpack 'U*', $_ } 
     28              split //, decode "x-utf8-kddi", 
     29              encode( "x-utf8-kddi", chr( hex $2 ) ); 
    3130        } elsif ($agent->is_docomo && $agent->is_foma) { 
    3231            _convert_unicode('docomo', $2)