[첫화면으로]UseModWiki소스수정/빈페이지

마지막으로 [b]

존재하지 않는 페이지의 링크를 WikiX 스타일로 출력

$LinkFirstChar = 1;
등으로 정의해 준다.
# $LinkFirstChar 추가
use vars qw(@RcDays @HtmlPairs @HtmlSingle
    ...
    $ConfigFile $SOURCEHIGHLIGHT %SRCHIGHLANG $LinkFirstChar);
sub GetPageOrEditAnchoredLink {
    ...
### 다음 라인을 아래와 같이 수정
#   return $name . &GetEditLink($id,"?");
    if (($LinkFirstChar) && ($name =~ /(\[)?([^\/]*\/)?([a-zA-Z0-9\/]|[\x80-\xff][\x80-\xff])([^\]]*)(\])?/)) {
        return $2 . &GetEditLink($id,"<b>$3</b>") . $4;
    } else {
        return $name . &GetEditLink($id,"?");
    }
###
}

존재하지 않는 페이지의 링크 스타일을 사용자가 결정할 수 있게 함

sub GetPageOrEditAnchoredLink {
    ...
#   다음 줄 이하를 재수정
#   if (($LinkFirstChar) && ($name =~ ... /)) {;

    if ((&GetParam('linkstyle', $LinkFirstChar))
            && ($name =~ /(\[)?([^\/]*\/)?([a-zA-Z0-9\/]|[\x80-\xff][\x80-\xff])([^\]]*)(\])?/)) {
        return $2 . &GetEditLink($id,"<b>$3</b>") . $4;
    } else {
        return $name . &GetEditLink($id,"?");
    }
### 여기까지
}
sub DoEditPrefs {
    ...
    print '<br>', &GetFormCheck('toplinkbar', 1,
                            T('Show link bar on top'));
### 다음 단락 추가
    print '<br>', &GetFormCheck('linkstyle', $LinkFirstChar,
            T('Use wikiX style for the links to empty pages'));
###
    print '<br>', &GetFormCheck('linkrandom', 0,
                                                T('Add "Random Page" link to link bar'));
    ...
}
sub DoUpdatePrefs {
    ...
    &UpdatePrefCheckbox("toplinkbar");
### 다음 라인 추가
    &UpdatePrefCheckbox("linkstyle");
###
    &UpdatePrefCheckbox("linkrandom");
    ...
}


위키위키분류

마지막 편집일: 2007-1-8 12:19 pm (변경사항 [d])
1098 hits | Permalink | 변경내역 보기 [h] | 페이지 소스 보기