1 번째 수정본 소스 보기 : UseModWiki소스수정/아마존링크

내용출력

로그인[l]

수정할 수 없습니다: UseModWiki소스수정/아마존링크 는 읽기 전용 페이지입니다.

== 외국 서적 ISBN 링크는 아마존으로 ==

[[거북이]]님의 요청으로... ISBN 번호가 한국(89~)이나 일본(4~)가 아닌 다른 것들은 amazon.com 으로 링크하도록 함.

* 부작용: 모름

=== wiki.pl 수정 ===
{{{perl
sub ISBNLink {
    my ($rawnum) = @_;
    my ($rawprint, $html, $num, $first, $second, $third, $hyphened);
    ...

### 일본 서적은 별도로 링크
    if ($num =~ /^4/) {
        return "<a href='http://bookweb.kinokuniya.co.jp/guest/cgi-bin/wshosea.cgi?W-ISBN=$num'>" .
            "<IMG class='isbn' ".
            "$ImageTag src='http://bookweb.kinokuniya.co.jp/imgdata/$num.jpg' ".
            "OnError='src=\"$noCoverIcon\"' ".
            "alt='".T('Go to the on-line bookstore')." ISBN:$rawprint'>".
            "</a>";
    }

### 이 아래부터 추가
### 외국 서적은 아마존으로
    return "<a href='http://www.amazon.com/exec/obidos/ISBN=$num'>" .
        "<IMG class='isbn' ".
        "$ImageTag src='http://images.amazon.com/images/P/$num.01.MZZZZZZZ.gif' ".
        "OnError='src=\"$noCoverIcon\"' ".
        "alt='".T('Go to the on-line bookstore')." ISBN:$rawprint'>".
        "</a>";

### 아래는 주석 처리
#   $first  = "<a href=\"http://shop.barnesandnoble.com/bookSearch/"
#                       . "isbnInquiry.asp?isbn=$num\">";
#   $second = "<a href=\"http://www.amazon.com/exec/obidos/"
#                       . "ISBN=$num\">" . T('alternate') . "</a>";
#   $third  = "<a href=\"http://www.pricescan.com/books/"
#                       . "BookDetail.asp?isbn=$num\">" . T('search') . "</a>";
#   $html  = $first . "ISBN " . $rawprint . "</a> ";
#   $html .= "($second, $third)";
#   $html .= " "  if ($rawnum =~ / $/);  # Add space if old ISBN had space.
#   return $html;
###
###############

}
}}}

=== 추가 업데이트 내역 ===

=== 사용자 의견 ===
<longcomments(UseModWiki소스수정/아마존링크,100)>
----
[[위키위키분류]]

UseModWiki소스수정/아마존링크 페이지로 돌아가기 | 다른 수정본 보기