변경사항 (가장 최근의 "소소한 수정"부터)
(다른 변경사항 없음)
-4,7 +4,7 |
* 부작용 : 알려진 것 없음 |
** 단순한 출력 변경이라, 전혀 없을 것이라 짐작함 |
: |
{{{perl |
{{{#!vim perl |
### 제일 끝에 UserGotoBar2~4 추가 |
use vars qw(@RcDays @HtmlPairs @HtmlSingle |
$TempDir $LockDir $DataDir $HtmlDir $UserDir $KeepDir $PageDir |
-13,7 +13,7 |
... |
}}} |
: |
{{{perl |
{{{#!vim perl |
sub GetGotoBar { |
... |
$bartext .= ' </td><td> ' . &GetSearchForm(); |
상단 메뉴바에 사용자 정의 링크 추가 (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;
}
...
위키위키분류