변경사항 (가장 최근의 "소소한 수정"부터)
(다른 변경사항 없음)
-4,7 +4,7 |
* 부작용 : 알려진 것 없음 |
|
: |
{{{perl |
{{{#!vim perl |
sub GetEditGuide { |
my ($id, $rev) = @_; |
my $result = "<div align=right>"; |
페이지 하단에 수정금지 여부와 설정/해제 표시 (optional)
- 관리자 권한이 있는 경우는, 페이지 내용을 볼 때 그 페이지가 수정금지 설정이 되어 있는지 여부와, 설정/해제 기능을 하는 링크를 화면 하단에 표시하도록 하였다
- 매번 index 화면에 가서 하자니 귀찮아서... :-)
- 부작용 : 알려진 것 없음
-
sub GetEditGuide {
my ($id, $rev) = @_;
my $result = "<div align=right>";
if (&UserIsAdmin()) {
if (-f &GetLockedPageFile($id)) {
$result .= T('(locked)') . " | ";
}
$result .= &ScriptLink("action=pagelock&set=1&id=" . $id, T('lock'));
$result .= " | " . &ScriptLink("action=pagelock&set=0&id=" . $id, T('unlock'));
$result .= "<br>";
}
if (&UserCanEdit($id, 0)) {
if ($rev ne '') {
...
}
위키위키분류