Changeset 24405 for lang

Timestamp:

11/20/08 11:35:47 (5 years ago)

Author:

tokuhirom

Message:

モバイル対応ふたたび

Location:

lang/perl/MENTA/trunk

Files:

• app/controller/mobile.mt (modified) (1 diff)
• lib/MENTA.pm (modified) (1 diff)

lang/perl/MENTA/trunk/app/controller/mobile.mt

@@ -1 +1 @@
 ?=r render_partial('header.mt', 'ケータイ対応')
-? use HTTP::MobileAgent
 <div class="blocked-content">
-<p>あなたのブラウザは <?= HTTP::MobileAgent->new->carrier_longname ?> です</p>
+<p>あなたのブラウザは <?= mobile_agent()->carrier_longname ?> です</p>
 </div>
 ?=r render_partial('footer.mt')

lang/perl/MENTA/trunk/lib/MENTA.pm

@@ -256 +256 @@
 }
 
+sub mobile_agent {
+    require_once('HTTP/MobileAgent.pm');
+    $STASH->{'HTTP::MobileAgent'} ||= HTTP::MobileAgent->new();
+}
+
 1;