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

GuestPage/ぜ/RecentChanges - :BeginnerGuidance:: RecentChanges に更新された行を表示します。

LastModified : Sun Oct 3 18:41:52 2004
[管理]

BeginnerGuidanceBeginnerGuidance RecentChanges に更新された行を表示します。 オリジナルの RecentChangesRecentDiffs の中間ですね。

RecentChanges

[TOP↑] [管理]

update_recent_changes () 内の変更

[TOP↑] [管理]
my $update = "- @{[&get_now]} @{[&armor_name($form{mypage})]} @{[&get_subjectline($form{mypage},diff=>1)]}"; # 2.1.2+

get_subjectline () 内の変更

[TOP↑] [管理]
   my ($page, %option) = @_;
   if (not &is_editable($page)) {
       return "";
   } else {
       # Delimiter check.
       my $delim = $subject_delimiter;
       if (defined($option{delimiter})) {
           $delim = $option{delimiter};
       }

       # 2.1.2+ begin
       if ($option{diff}) {
            &open_diff;
            my $diffpage = $diffbase{$page};
            &close_diff;
            foreach (split(/\r?\n/, $diffpage)) {
                s|(\d\d\d\d-\d\d-\d\d \(\w\w\w\) \d\d:\d\d:\d\d)||g;
                if (/^\+(\-{1,16}|\*{1,3}|\s*)(.+)/) {
                     return "$delim$2";
                }
            }
       }
       # 2.1.2+ end
shortcut: FrontPage || WikiLab | StoreRoom/最新 | 日々の泡 | むず痒いパソコン日記/最新 || HelpPage || [edit]
select css: default | sakura | mono | greenheck | snow | NN4.x用(多分) || LinuZau!! | VikiWiki!? || others |

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