# 2022/04/25 17:53:10 : Generate from 'skel/blogs.html'; #------------------------------------------------------------------------------ # [WARNING] Don't edit this file. If you edit this, will be occoued error. #------------------------------------------------------------------------------ Version=1.01 165087655016508763541sub { my $R = shift; my $O = shift; my $L = shift; my $v = $R->{v}; $_[0] = \$v; my ($isadmin,$url,$s,$t); $$L=5; (!$v->allow_blogs()) && $R->superbreak(); $R->{Break} && return; $$L=8; $v->system_mode("ブログの一覧"); $isadmin=$R->{Auth}->{isadmin}; $url=(($v->{myself}.'?').$v->{query0}); $s=$R->{Query}->{sort}; $$L=13; $R->{list}=$v->load_blog_list($R->{Query}->{sort},int($R->{Query}->{rev})); $$O .= '

'; $$O .= $v->{title}; $$O .= '

    '; my $X=$R->{list}; if (ref($X) ne 'ARRAY') { $X=[]; $R->error_from("line 25 at $R->{__src_file}", '[executor] forexec: data is not array'); }; foreach my $t (@{ $X }) { $$O .= '
  • '; $R->{admin} && ($$O .= ("【{url}?menu\">管理】")); $$O .= ' '; $t->{art_tm} && ($$O .= ($R->tm_printf('%Y/%m/%d %H:%M ',$t->{art_tm}))); $$O .= ' '; $t->{private} && ($$O .= ("【非公開】")); $$O .= ''; $$O .= ($t->{newest_title} ne '') ? $t->{newest_title} : '-no diary-'; $$O .= ' ('; $$O .= $t->{id}; $$O .= ' / '; $$O .= $t->{blog_name}; $$O .= ')
    • '; } $$O .= '
'; $isadmin && ($$O .= ("")); $$O .= ' '; my $X=$R->{list}; if (ref($X) ne 'ARRAY') { $X=[]; $R->error_from("line 43 at $R->{__src_file}", '[executor] forexec: data is not array'); }; foreach my $t (@{ $X }) { $$O .= ' '; $isadmin && ($$O .= ("")); $$O .= ' '; } $$O .= '
ID 記事数 最新記事 コメント数 最新コメント設定
'; $$O .= $t->{id}; $$O .= ''; $t->{private} && ($$O .= ("【非公開】")); $$O .= ' '; $$O .= $t->{arts}; $$O .= ' '; $$L=47; $$O .= $t->{arts} ? $R->tm_printf('%Y/%m/%d %H:%M',$t->{art_tm},0) : '-'; $$O .= ' '; $$O .= $t->{coms}; $$O .= ' '; $$L=49; $$O .= $t->{coms} ? $R->tm_printf('%Y/%m/%d %H:%M',$t->{com_tm},0) : '-'; $$O .= '{url}?menu\">管理・{url}?mainte/blog_drop\">削除
Total '; $$O .= $#{$R->{list}}+1; $$O .= ' blogs.
'; } 000