@2> ログイン確認
<$ifjumpclear(! Auth.ok, 'sub/error_message', 0, 'ログインしていません')>
<@> システムモード
<$v.system_mode()>
<$ifset(v.diary_id eq '', v.title, '管理メニュー')>
<$menu_mode=1>
<@>
<@>存在しない日記帳管理画面なら自分の管理画面へ
<$ifexec(! v.exsits_daybook && v.others_daybook, begin)>
<$redirect( v.myself3p . '?menu' )>
<$end>
<@>
<$set = v.daybook_setting>
<@call('sub/error_message', 0)>
<@>
■管理メニュー
<@ifexec(v.exsits_my_daybook && v.diary_id ne Auth.id, begin)>
- 自分の日記へ
<$end>
- [5]記事一覧
<@>
<$ifbreak( ! v.allow_edit )>
<@>------------------------------------------------------------------------------
<@> 新着リストの表示
<@>------------------------------------------------------------------------------
<$last_tm = set.newcome_tm, flag_c=flag_tb=0>
<$h = new, h.cache_on = 1>
<$newcome = exec(begin.newcome)>
<$h.type="comment"><$ifset(set.recent_comment_int<5, h.limit, 5, set.recent_comment_int)>
<$logs = v.load_list( h )>
<@ifexec(h.hits, begin)>
○最近のコメント
日時 書いた人 元記事
<@forexec(t, logs, begin)>
<@tm_printf('%m/%d', t.tm)>
<@if(last_tm < t.tm && Auth.id ne t.id, '★')><$ifset(last_tm < t.tm && Auth.id ne t.id, flag_c, 1)>
<@if(!t.enable, '[非]')><@t.name>
<@t.diary_title>
<$end>
<$end>
<$h.type="trackback"><$ifset(set.recent_trackback_int<5, h.limit, 5, set.recent_trackback_int)>
<$logs = v.load_list( h )>
<@ifexec(h.hits, begin)>
○最近のトラックバック
日時 書いた人 受付記事
<@forexec(t, logs, begin)>
<@tm_printf('%m/%d', t.tm)>
<@ifexec(last_tm < t.tm && index(t.url, "<@v.server_url><@v.myself>") != 0, begin)>★<$flag_tb=1><$end>
<@if(!t.enable, '[非]')><@t.author>
<@t.diary_title>
<$end>
<$end>
<$end.newcome>
<@>
<@>
■新着リスト
<@ifexec(flag_c || flag_tb || set.newcome_flag, begin)>
<$end>
<@newcome>