UseModWiki소스수정/Index화면색인

Index 의 페이지 목록을 제목의 첫글자별로 구분

• 상단 메뉴의 index 를 클릭했을때 기존에 페이지들이 알파벳 순으로 출력되는 것을 개선하여, 첫글자에 따라 A,B,...,가,나,... 등으로 색인을 나눔.
• UseModWiki소스수정/위키목차 를 적용함

• 여기에 다시 추가로, 목록 상단에 각 머리글자로 한 번에 이동할 수 있도록 링크를 추가함
• 주인장이 직접 고침. perl 에 대해 전혀 모른 상태에서 기존 소스만 보고 고친 탓에 지저분하다.

• 부작용 : 알려진 것 없음

• 이 두 패치를 동시에 적용하면 다음과 같다.

# 다음의 함수를 통채로 바꿈
sub PrintPageList {
    my ($pagename);
    my $count = 0;
    my $titleIsPrinted = 0;
    my @han = qw(가 나 다 라 마 바 사 아 자 차 카 타 파 하);
    my @indexTitle = (0, "A".."Z");
    push (@indexTitle, @han, "기타");
    my @indexSearch=("A".."Z");
    push (@indexSearch, @han, "豈");

    print "<a name='TOC'></a><h2>", Ts('%s pages found:', ($#_ + 1)), "</h2>\n";

    # 상단에 앵커를 가리키는 인덱스 나열
    my $count2 = 0;
    print("\n|");
    while ( $count2 <= $#indexTitle ) {
        if ($count2 == 27) {
            print("<br>\n|");
        }
        print("<a href=\"#H_$indexTitle[$count2]\"><b>");
        print("&nbsp;$indexTitle[$count2]&nbsp;");
        print("</b></a>|");
        $count2++;
    }
    print "<br><br>";
    $count2 = 0;

    foreach $pagename(@_) {
        next if (&PageIsHidden($pagename));
        until (
            $pagename lt @indexSearch[$count]
            && ($count == 0 || $pagename ge @indexSearch[$count-1])
        ) {
            $count++;
            $titleIsPrinted = 0;
            last if $count > 40;
        }
        if (!$titleIsPrinted) {
            # 페이지가 없는 색인의 앵커 처리
            while ( $count2 <= ($count - 1) ) {
                print "\n<a name=\"H_$indexTitle[$count2]\">";
                print "</a>";
                $count2++;
            }
            print $q->h3("<a name=\"H_$indexTitle[$count]\" title=\"". T('Top') ."\" href=\"#TOC\">$indexTitle[$count]</A>");
            $count2 = $count + 1;
            $titleIsPrinted=1;
        }

        print ".... " if ($pagename =~ m|/|);
        print &GetPageLink($pagename);

        if (&UserIsAdmin()) {
            if (-f &GetLockedPageFile($pagename)) {
                print " " . T('(locked)');
            }
            print " | " . &ScriptLink("action=pagelock&set=1&id=" . $pagename, T('lock'));
            print " | " . &ScriptLink("action=pagelock&set=0&id=" . $pagename, T('unlock'));
            if (defined($HiddenPage{$pagename})) {
                print " | " . T('(hidden)');
            }
            print " | " . &ScriptLink("action=pagehide&set=1&id=" . $pagename, T('hide'));
            print " | " . &ScriptLink("action=pagehide&set=0&id=" . $pagename, T('unhide'));
        }
        print $q->br;
        print "\n";
    }
}

추가 업데이트 내역

diff -u -r1.271 -r1.273
--- wiki.pl 14 Feb 2005 03:55:06 -0000  1.271
+++ wiki.pl 19 Feb 2005 06:28:42 -0000  1.273
@@ -6488,7 +6488,7 @@
    my @indexSearch=("A".."Z");
    push (@indexSearch, @han, "豈");

-   print "<h2>", Ts('%s pages found:', ($#_ + 1)), "</h2>\n";
+   print "<a name='TOC'></a><h2>", Ts('%s pages found:', ($#_ + 1)), "</h2>\n";

 ###############
 ### replaced by gypark
@@ -6548,10 +6548,7 @@
                $count2++;
            }
 # 앵커를 삽입
-           print "\n<a name=\"H_$indexTitle[$count]\"></a>";
-           print $q->h3($indexTitle[$count]
-                   . "&nbsp;<a href=\"#PAGE_TOP\"><img src=\"$IconDir/gotop.gif\" align=\"texttop\" alt=\"" . T('Top')
-                   . "\"></a>");
+           print $q->h3("<a name=\"H_$indexTitle[$count]\" title=\"". T('Top') ."\" href=\"#TOC\">$indexTitle[$count]</A>");
            $count2 = $count + 1;
 ### gypark 의 색인 패치
 ###############

ext1.90b - "A", "B", ... ,"가", "나", ... ,"하"라는 이름의 페이지가 있을 경우 index 출력이 엉망이 되는 문제 수정

사용자 의견