CPA-LAB管理人用

携帯画面でもカテゴリリストが欲しい。。。。ということで見よう見まねでやってみた。
adiaryはカテゴリリストについては記事更新時に再作成する模様。
デフォルトではPC用しか作成されないので、携帯用も合わせて作るようにした。
（これがないとカテゴリ一覧がたぶん携帯では作れない）
記事かいてから、なんかもっと簡単にできるような気がしたけど、、、まいっか。

diary_auto.pm

#スケルトンの実行あたり

##spok_added 携帯電話用カテゴリリスト
	my $skelton_phone = $self->{format_skelton_dir} . 'category_list_phone';
	my $data_phone    = $ROBJ->call($skelton_phone, \@new_maindata);
	my $string_phone  = $ROBJ->chain_array($data_phone);
	$set->{category_list_phone}      = $string_phone;
##spok_end

category_list_phone.html

以下を、/diary.skel/format/category_list_phone.htmlとして保存。

<@2>	コマンド前空白除去
<@>
<@> 書式設定用ファイル spok_added 携帯電話用カテゴリリスト
<@>
<@>---------------------------------------------------------------------
<@>分類別記事数
<@>---------------------------------------------------------------------
<!--カテゴリーリスト=====================================-->
カテゴリ一覧
<@forexec(t, argv#0, begin.category)>
<@ifexec(t.have_sub_category, begin, begin)>
	<a href="<@t.category_uri>"><@t.category></a> (<@t.ecount>)
	（
		<@forexec(t2, t.have_sub_category, begin)>
			<a href="<@t2.category_uri>"><@t2.category_sub></a> (<@t2.ecount>)
		<$end>
	）
<$else>
　<a href="<@t.category_uri>"><@t.category></a> (<@t.ecount>)
<$end>
<$end.category>