UseModWiki소스수정/편집가이드

일부 매크로 사용시 페이지의 편집 시각이 제대로 나오지 않는 문제 해결

• 페이지 본문 내에 allpagesfrom 등과 같이 다른 페이지들을 읽어야 하는 매크로가 있을 경우 페이지 수정 시각이 엉뚱하게 출력되는 문제가 있었다.
• 제일 처음 페이지를 열 때 리비전 번호와 편집 시각을 별도의 전역 변수에 저장하게 하여 해결

• 필수 요구 사항: 없음
• 선택 요구 사항: 없음

• 부작용: 궁여지책이긴 하지만, 뭐...

...
# Note: $NotifyDefault is kept because it was a config variable in 0.90
# Other global variables:
use vars qw(%Page %Section %Text %InterSite %SaveUrl %SaveNumUrl
    %KeptRevisions %UserCookie %SetCookie %UserData %IndexHash %Translate
    %LinkIndex $InterSiteInit $SaveUrlIndex $SaveNumUrlIndex $MainPage
    $OpenPageName @KeptList @IndexList $IndexInit
    $q $Now $UserID $TimeZoneOffset $ScriptName $BrowseCode $OtherCode);

###############
### added by gypark
### $Sec_Revision 과 $Sec_Ts 변수를 추가
use vars qw(%RevisionTs $FS_lt $FS_gt $StartTime $Sec_Revision $Sec_Ts);
###
###############
...

sub BrowsePage {
    ...
    if ($revision ne '') {
        &OpenKeptRevisions('text_default');
        $openKept = 1;
        if (!defined($KeptRevisions{$revision})) {
            $goodRevision = '';
        } else {
            &OpenKeptRevision($revision);
        }
    }
###############
### added by gypark
### 매크로가 들어간 페이지의 편집가이드 문제 해결
    $Sec_Revision = $Section{'revision'};
    $Sec_Ts = $Section{'ts'};
###
###############
    $newText = $Text{'text'};     # For differences
    # Handle a single-level redirect
    ...
}

sub GetEditGuide {
    ...
### 다음 라인을 수정
#   if ($Section{'revision'} > 0) {
    if ($Sec_Revision > 0) {
###
        $result .= '<br>';
        if ($rev eq '') {  # Only for most current rev
            $result .= T('Last edited');
        } else {
            $result .= T('Edited');
        }
### 다음 라인을 수정
#       $result .= ' ' . &TimeToText($Section{ts});
        $result .= ' ' . &TimeToText($Sec_Ts);
###
    ...
}