$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"); ... }