WalWiki/カスタマイズ/ページ作成時テンプレート

差分表示

• 最後の更新で追加された行はこのように表示します。
• 最後の更新で削除された行はこのように表示します。

ページ作成時にテンプレートを読み込みます。
* [template page]

TemplatePage/以下に作成したページをページ作成時のテンプレートとして読み込みます。
読み込んだページ内の6クォートは削除されます。
** resource.txtへの追加

,selecttemplate,ページを作成時に読み込むテンプレートを選択して下さい。
,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