管理 | 差分 || 新規作成 || カテゴリ一覧 | ページ一覧 | 更新履歴 | 差分履歴 || アンテナ || PUT || more≫ ≫omit
shortcut: FrontPage || WikiLab | StoreRoom/最新 | 日々の泡 | むず痒いパソコン日記/最新 || HelpPage ||[edit]
category: GuestPage/yakty

GuestPage/yakty/PrintOtherPart - 部分編集時に前後の内容を表示

LastModified : Fri Jan 23 16:15:34 2004
[管理]

部分編集時に前後の内容を表示

BeginnerGuidanceBeginnerGuidance 部分編集時に前後の内容を表示

[print other part]

[TOP↑] [管理]

do_edit()内の変更

[TOP↑] [管理]

前一つのみ表示する場合

[TOP↑] [管理]
        #my $mymsg = (&read_by_part($page))[$form{mypart} - 1];        # yakty del [print other part]
        # yakty add [print other part] start
        my @parts = &read_by_part($page);
        my $mymsg = $parts[$form{mypart} - 1];
        print &text_to_html($parts[$form{mypart} - 2]) if($form{mypart} - 1 > 0);
        # yakty add [print other part] end
        &print_message($resource{passwordneeded});
        &print_editform($mymsg, &get_info($page, $info_LastModified), admin=>0);

前後一つずつ表示する場合

[TOP↑] [管理]
        #my $mymsg = (&read_by_part($page))[$form{mypart} - 1];        # yakty del [print other part]
        # yakty add [print other part] start
        my @parts = &read_by_part($page);
        my $mymsg = $parts[$form{mypart} - 1];
        print &text_to_html($parts[$form{mypart} - 2]) if($form{mypart} - 1 > 0);
        # yakty add [print other part] end
        &print_message($resource{passwordneeded});
        &print_editform($mymsg, &get_info($page, $info_LastModified), admin=>0);
        print &text_to_html($parts[$form{mypart}]) if(@parts > $form{mypart});

前後全て表示する場合

[TOP↑] [管理]
        #my $mymsg = (&read_by_part($page))[$form{mypart} - 1];        # yakty del [print other part]
        # yakty add [print other part] start
        my @parts = &read_by_part($page);
        my $mymsg = $parts[$form{mypart} - 1];
        print &text_to_html(join("\n", splice(@parts, 0, $form{mypart} - 1))) if($form{mypart} - 1 > 0);
        # yakty add [print other part] end
        &print_message($resource{passwordneeded});
        &print_editform($mymsg, &get_info($page, $info_LastModified), admin=>0);
        print &text_to_html(join("\n", splice(@parts, 1))) if(@parts > 1);

do_adminedit()内の変更

[TOP↑] [管理]

前一つのみ表示する場合

[TOP↑] [管理]
        #my $mymsg = (&read_by_part($page))[$form{mypart} - 1];        # yakty del [print other part]
        # yakty add [print other part] start
        my @parts = &read_by_part($page);
        my $mymsg = $parts[$form{mypart} - 1];
        print &text_to_html($parts[$form{mypart} - 2]) if($form{mypart} - 1 > 0);
        # yakty add [print other part] end
        &print_message($resource{passwordneeded});
        &print_editform($mymsg, &get_info($page, $info_LastModified), admin=>1);

前後一つずつ表示する場合

[TOP↑] [管理]
        #my $mymsg = (&read_by_part($page))[$form{mypart} - 1];        # yakty del [print other part]
        # yakty add [print other part] start
        my @parts = &read_by_part($page);
        my $mymsg = $parts[$form{mypart} - 1];
        print &text_to_html($parts[$form{mypart} - 2]) if($form{mypart} - 1 > 0);
        # yakty add [print other part] end
        &print_message($resource{passwordneeded});
        &print_editform($mymsg, &get_info($page, $info_LastModified), admin=>1);
        print &text_to_html($parts[$form{mypart}]) if(@parts > $form{mypart});

前後全て表示する場合

[TOP↑] [管理]
        #my $mymsg = (&read_by_part($page))[$form{mypart} - 1];        # yakty del [print other part]
        # yakty add [print other part] start
        my @parts = &read_by_part($page);
        my $mymsg = $parts[$form{mypart} - 1];
        print &text_to_html(join("\n", splice(@parts, 0, $form{mypart} - 1))) if($form{mypart} - 1 > 0);
        # yakty add [print other part] end
        &print_message($resource{passwordneeded});
        &print_editform($mymsg, &get_info($page, $info_LastModified), admin=>1);
        print &text_to_html(join("\n", splice(@parts, 1))) if(@parts > 1);

[jump to editform]

[TOP↑] [管理]

[print other part]を導入すると編集エリアの位置が画面最上部ではなくなるので、編集エリアにジャンプするようにします。

print_header()内の変更

[TOP↑] [管理]
    # yakty del [jump to editform] start
    #if    ($editable)      { $resource{'parteditlinkformat'} = qq(<a class="partedit" title="$resource{editthispart}" href="$url_cgi?mycmd=edit&amp;mypage=$formatpage&amp;mypart=%d">$resource{editbutton}</a>); }
    #elsif ($admineditable) { $resource{'parteditlinkformat'} = qq(<a class="partedit" title="$resource{admineditthispart}" href="$url_cgi?mycmd=adminedit&amp;mypage=$formatpage&amp;mypart=%d">$resource{admineditbutton}</a>); }
    # yakty del [jump to editform] end
    # yakty add [jump to editform] start
    if    ($editable)      { $resource{'parteditlinkformat'} = qq(<a class="partedit" title="$resource{editthispart}" href="$url_cgi?mycmd=edit&amp;mypage=$formatpage&amp;mypart=%d#editform">$resource{editbutton}</a>); }
    elsif ($admineditable) { $resource{'parteditlinkformat'} = qq(<a class="partedit" title="$resource{admineditthispart}" href="$url_cgi?mycmd=adminedit&amp;mypage=$formatpage&amp;mypart=%d#editform">$resource{admineditbutton}</a>); }
    # yakty add [jump to editform] end
    # Walrus add [part edit] end
    print <<"EOD";

print_editform()内の変更

[TOP↑] [管理]
sub print_editform {
    my ($mymsg, $lastmodified, %mode) = @_;
    my $frozen = &is_frozen($form{mypage});

    print qq(<a name="editform"></a>\n);    # yakty add [jump to editform]

    if ($form{mypreview}) {
shortcut: FrontPage || WikiLab | StoreRoom/最新 | 日々の泡 | むず痒いパソコン日記/最新 || HelpPage || [edit]
select css: default | sakura | mono | greenheck | snow | NN4.x用(多分) || LinuZau!! | VikiWiki!? || others |

管理 | 差分 || 新規作成 || カテゴリ一覧 | ページ一覧 | 更新履歴 | 差分履歴 || PUT