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

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

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

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

違う点としては、以下の2点です。

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

''TrackBack'' - http://you-like.to/cgi-bin/ponytail/yukiwiki/wiki.cgi/do_adminedit%b4%d8%bf%f4

先頭へ