#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃■(ＳＳ)Ｃ−ＢＯＡＲＤテンプレート(とほほ改1.02.1t)
#┠──────────────────────────────────────
#┃記事画面の設定ファイルです。
#┃通常のＨＴＭＬと同じ感覚で編集することが出来ます。
#┃なお、途中にある「$〜」はそれぞれプログラムによって任意の文字列に
#┃置き換えられます。
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 
package DESIGN;

require './cmd/etc.pl';

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   トピック表示ヘッダー
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub topic_head {
	print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
<table border=0 cellpadding=2 cellspacing=0 width=$CNF::STY::bse{'width'}>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   トピック表示フッター
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub topic_foot {
	print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
</table>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   トピック表示
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub topic {
	local *MSG		= shift; #── 親記事
	local *MSG_l		= shift; #── 最終投稿記事
	my $type		= shift; #── タイプ
	my $r_no		= shift; #── 記事番号
	my $r_genre_icon	= shift; #── ジャンルアイコン
	my $r_clip		= shift; #── クリップアイコン
	my $r_new		= shift; #── ＮＥＷアイコン
	my $r_read		= shift; #── 未読アイコン
#とほほ修正開始
if($::FORM{'id'} eq ""){$link_id = "#atop";}
else{$link_id = ";id=$::FORM{'id'}#atop";}
#とほほ修正終了

	print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
 <tr bgcolor="$CNF::STY::tpc{'table'}{'back'}{$type}">
  <td width="50%" rowspan=2 colspan=1 nowrap>
   <a class=TopicSubject href="$CNF::place{'this'}{'path'}?cmd=ntr;tree=$MSG{'no'}$link_id"><b>${$r_no}$MSG{'subject'}</b></a></td>
  <td nowrap>${$r_genre_icon}</td>
  <td nowrap>${$r_clip}</td>
  <td nowrap><span class=Topic@{[(&ETC::name_matching($MSG{'name'},$CNF::master{'name'},$CNF::master{'mode'})) ? 'Master' : '']}Name>$MSG{'name'}@{[(&ETC::name_matching($MSG{'name'},$CNF::master{'name'},$CNF::master{'mode'})) && ($CNF::STY::bse{'master_icon'}) ? "<img border =\"0\" src=\"$CNF::place{'image'}{'url'}/master_icon.gif\" alt=\"この掲示板の管理人です\">" : '']}</span></td>
  <td nowrap><span class=TopicDate>$MSG{'date'}</span></td>
  <td nowrap>${$r_new}</td>
  <td align="right" nowrap><span class=TopicReply title="レスの数">$MSG{'reply'}</span></td>
  <td nowrap>${$r_read}</td>
 </tr>
 <tr bgcolor="$CNF::STY::tpc{'table'}{'back'}{$type}">
  <td colspan=2 nowrap></td>
  <td nowrap>
   <span class=Topic@{[(&ETC::name_matching($MSG_l{'name'},$CNF::master{'name'},$CNF::master{'mode'})) ? 'Master' : '']}Latest>$MSG_l{'name'}</span></td>
  <td colspan=4 nowrap>
   <span class=TopicLatest>$MSG_l{'date'}</span></td>
 </tr>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────

1;

# $Id: tpc.txt,v 2.1 2003/12/12 09:00:00 N.Hirai Exp $;