[ 新規 | 編集 | 差分 ] [ 検索 | 一覧 | FrontPage ] [ 履歴 (RSS) | 差分履歴 (RSS) ] [ ログイン ]
【PR】Amazon | SL-C3000 | SL-C1000(3/18発売!) | SL-C860 | SL-6000W | SL-6000L | SL-6000N

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

編集

ページ作成時にテンプレートを読み込みます。

[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

01867