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