[첫화면으로]"UseModWiki소스수정/인터위키아이콘표시" 페이지의 변경 내역

마지막으로 [b]


현재 버전 . . . . (수정) 2007-1-8 12:19 pm 수정한 사람: Raymundo
3 번째 수정본 . . . . (수정) 2003-10-5 9:07 am 수정한 사람: Raymundo
 

변경사항 (가장 최근의 "일반적인 수정"부터) (소소한 수정)

-24,14 +24,14
** 막상 적용해 보니까 화면이 별로 안 예쁜 듯 해서 낭패. -_-;
=== config.pl 수정 ===
{{{perl
{{{#!vim perl
### interwiki 아이콘 사용
$InterIconDir = "./icons-inter/"; # directory containing interwiki icons
}}}
=== wiki.pl 수정 ===
환경 변수 $InterIconDir 추가
{{{perl
{{{#!vim perl
   ...
### 패치를 위해 추가된 환경설정 변수
use vars qw(

-43,7 +43,7
   ...
}}}
{{{perl
{{{#!vim perl
sub InterPageLink {
    ...
    $url = &GetSiteUrl($site);

-88,7 +88,7
}}}
Upload: 와 Local: , <nowiki>LocalWiki:</nowiki> 의 경우는 기본 default 이미지를 출력하도록 수정
{{{perl
{{{#!vim perl
sub GetSiteUrl {
    my ($site) = @_;
    my ($data, $url, $status);

-130,6 +130,41
}
}}}
대괄호로 둘러싼 경우는 아이콘 표시는 하지 않지만, intermap 화일 형식이 바뀌었기 때문에 처리는 해 주어야 한다.
{{{#!vim perl
sub StoreBracketInterPage {
    ...
    $url = &GetSiteUrl($site);
###############
### added by gypark
### interwiki 아이콘
    my ($image, $url_main);
    if ($url =~ /\|/) {
        ($url, $image) = split(/\|/, $url, 2);
    }
    $url_main = $url;
###
###############
    if ($text ne "") {
        return "[$id $text]"  if ($url eq "");
    ...
    $url .= $remotePage;
###############
### replaced by gypark
### interwiki 아이콘
#   return &StoreRaw("<a href=\"$url\">[$text]</a>");
    my $link_html = '';
    $link_html = "<A class='inter' href='$url' title='$id'>[$text]</A>" .
### 외부 URL 을 새창으로 띄울 수 있는 링크를 붙임
                "<a href=\"$url\" target=\"_blank\">" .
                "<img src=\"$IconDir/newwindow.gif\" border=\"0\" alt=\"" . T('Open in a New Window') . "\" align=\"absbottom\">" .
                "</a>";
    return &StoreRaw($link_html);
###
###############
}
}}}
=== wiki.css ===
아이콘의 [[UseModWiki스타일쉬트]]
{{{html

-140,6 +175,7
    border: none;
}
}}}
=== Notes ===
----