表紙 | 新規 | 一覧 | RSS | 検索 | 閲覧履歴 | 作成履歴 | 更新履歴

do_adminedit関数 - YukiWikiベースのPonyWikiのソースを読んでみる その05

差分表示


[[YukiWikiベースのPonyWikiのソースを読んでみる]] その5
[[YukiWikiベースのPonyWikiのソースを読んでみる]] その05

処理としては[[do_edit関数]]とほとんど同じです。

違う点としては、以下の2点です。
- 凍結したページでも編集できる事
- 書き込みにパスワードが必要なメッセージが表示される
-- &print_message($resource{passwordneeded})

---(
sub do_adminedit {
    my ($page) = &unarmor_name(&armor_name($form{mypage}));
    &print_header($page);
    if (not &is_editable($page)) {
        &print_message($resource{cantchange});
	# Walrus add [part edit] start
	} elsif ($form{mypart} =~ /^\d+$/ and $form{mypart}) {
		my $mymsg = (&read_by_part($page))[$form{mypart} - 1];
		&print_message($resource{passwordneeded});
		&print_editform($mymsg, &get_info($page, $info_ConflictChecker), admin=>1);
	# Walrus add [part edit] end
    } else {
        &print_message($resource{passwordneeded});
        &print_editform($database{$page}, &get_info($page, $info_ConflictChecker), admin=>1);
    }
    &print_footer($page);
}
---)

- unarmor_name関数
- armor_name関数
- [[print_header関数]]
- is_editable関数
- [[print_message関数]]
- read_by_part関数
- print_editform関数
- get_info関数
- [[print_footer関数]]

-----
[[#rtrackback]]

先頭へ