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

GuestPage/yakty/FixPartEdit - :BeginnerGuidance:: 部分編集でページの削除が出来ない問題の修正。

LastModified : Sun Oct 3 18:43:09 2004
[管理]

BeginnerGuidanceBeginnerGuidance 部分編集でページの削除が出来ない問題の修正。 ちょっと修正してみました。

久々にこっちに書いてみたり…。 自分とこにも適用したんだけど、カスタマイズではないので避難させてみたり(笑)

[fix part edit]

[TOP↑] [管理]

部分編集でページの削除が出来ない問題を修正します。

do_write()内の変更

[TOP↑] [管理]
    # Walrus add [part edit] start
    if ($form{mypart} =~ /^\d+$/ and $form{mypart}) {
        if($form{mymsg}){                                                  # yakty add [fix part edit]
            $form{mymsg} =~ s/\x0D\x0A|\x0D|\x0A/\n/g;
            $form{mymsg} .= "\n" unless ($form{mymsg} =~ /\n$/);
        }                                                                  # yakty add [fix part edit]
        my @parts = &read_by_part($form{mypage});
        $parts[$form{mypart} - 1] = $form{mymsg};
        $form{mymsg} = join('', @parts);
    }
    # Walrus add [part edit] end
shortcut: FrontPage || WikiLab | StoreRoom/最新 | 日々の泡 | むず痒いパソコン日記/最新 || HelpPage || [edit]
select css: default | sakura | mono | greenheck | snow | NN4.x用(多分) || LinuZau!! | VikiWiki!? || others |

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