ページ作成時にテンプレートを読み込みます。
[template page]
TemplatePage/以下に作成したページをページ作成時のテンプレートとして読み込みます。
読み込んだページ内の6クォートは削除されます。
resource.txtへの追加
selecttemplate | ページ作成時に読み込むテンプレートを選択して下さい。 |
グローバル変数定義
my $TemplatePage = 'TemplatePage'; # yakty add [template page]
do_create()内の変更
sub do_create { &print_header($CreatePage); # yakty add [template page] start my $templatelist = qq(<select name="mytemplate">\n<option value=""></option>\n); foreach my $page (sort keys %database){ my $escapedpage = &escape($page); next unless(&is_editable($page)); if($page =~ /^$TemplatePage\/(.+)$/){ $templatelist .= qq(<option value="$escapedpage">$1</option>\n); } } $templatelist .= qq(</select>\n); # yakty add [template page] end
print <<"EOD"; <form action="$url_cgi" method="post"> <!-- yakty add [template page] start --> <strong>$resource{selecttemplate}</strong><br /> $templatelist<br /> <!-- yakty add [template page] end -->
do_edit()内の変更
my ($page) = &unarmor_name(&armor_name($form{mypage})); my $template = &unarmor_name(&armor_name($form{mytemplate})); # yakty add [template page]
# Walrus add [part edit] end # yakty add [template page] start } elsif($database{$template}){ my $templatemsg = $database{$template}; $templatemsg =~ s/''''''//g; &print_editform($templatemsg, &get_info($page, $info_LastModified), admin=>0); # yakty add [template page] end