상단 메뉴바에 사용자 정의 링크 추가 (optional)
- 기존 소스에서 UserGotoBar 라는 변수를 사용해서 사용자 메뉴 항목을 상단 메뉴 오른쪽 끝에 표시한다.
- UserGotoBar2~UserGotoBar4 세 개의 변수를 추가하여 상단 메뉴에 포함
- 부작용 : 알려진 것 없음
- 단순한 출력 변경이라, 전혀 없을 것이라 짐작함
-
use vars qw(@RcDays @HtmlPairs @HtmlSingle
$TempDir $LockDir $DataDir $HtmlDir $UserDir $KeepDir $PageDir
...
$UserGotoBar $UserGotoBar2 $UserGotoBar3 $UserGotoBar4);
...
-
sub GetGotoBar {
...
$bartext .= ' </td><td> ' . &GetSearchForm();
if ($UserGotoBar ne '') {
$bartext .= " </td><td> " . $UserGotoBar;
}
if ($UserGotoBar2 ne '') {
$bartext .= " </td><td> " . $UserGotoBar2;
}
$bartext .= "</td></tr>";
$bartext .= $q->endform;
$bartext .= "</table><hr>\n";
return $bartext;
}
...
위키위키분류