- my $link = 'http://www.amazon.co.jp/exec/obidos/ASIN/' . $item;
- $link .= '/' . $aid if $aid;
- my $image;
- if($item =~ /^4/){
- $image = "http://images-jp.amazon.com/images/P/$item.09.MZZZZZZZ.jpg";
- } else {
- $image = "http://images-jp.amazon.com/images/P/$item.01.MZZZZZZZ.jpg";
+\r
+ if(Util::handyphone()){\r
+ if ($aid != '' ){\r
+ $link = 'http://www.amazon.co.jp/gp/aw/rd.html?uid=NULLGWDOCOMO&at='. $aid .'&a='. $item .'&dl=1&url=%2Fgp%2Faw%2Fd.html';\r
+ } else {\r
+ $link = 'http://www.amazon.co.jp/gp/aw/rd.html?uid=NULLGWDOCOMO&a='. $item .'&dl=1&url=%2Fgp%2Faw%2Fd.html';\r
+ }\r
+ } else {\r
+ $link = 'http://www.amazon.co.jp/exec/obidos/ASIN/' . $item;\r
+ $link .= '/' . $aid . '/ref=nosim' if $aid;\r
+ }\r
+\r
+ if($comment eq ""){\r
+ my $noimg = 'http://images-jp.amazon.com/images/G/09/icons/books/comingsoon_books.gif';\r
+ my $image;\r
+ my $response;\r
+ for my $num ( '09','01' ) {\r
+ $image = "http://images-jp.amazon.com/images/P/$item.$num.MZZZZZZZ.jpg";\r
+ $response = &Util::get_response($wiki,$image);\r
+ last unless (length($response) < 1024);\r
+ }\r
+ $image = $noimg if (length($response) < 1024);\r
+ $buf = '<img src="'.$image.'">';\r
+ } else{\r
+ $buf = Util::escapeHTML($comment);\r