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

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   スレッド表示ヘッドライン
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub headline {
	my $r_headline = shift; #── 前のスレッドへのリンク

	print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
<a name="headline"></a>
<table border=0 width=$CNF::STY::pda{'width'}>
 <tr><td>${$r_headline}</td></tr>
</table>
${&line}
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   スレッド表示ナビ
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub navi {
	my $index  = shift; #── インデックス
	my $r_head = shift; #── ヘッドラインへのリンク
	my $r_prev = shift; #── 前のスレッドへのリンク
	my $r_next = shift; #── 次のスレッドへのリンク

	print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
<a name="navi_$index"></a>
<table border=0 cellspacing=0 cellpadding=0 width="100%">
 <tr>
  <td align="right">${$r_head}${$r_prev}${$r_next}</td>
 </tr>
</table>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   スレッド表示ヘッダー
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub thread_head {
    print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
<table border=0 cellspacing=0 cellpadding=0 bgcolor="$CNF::STY::thr{'table'}{'border'}">
 <tr>
  <td bgcolor="$CNF::STY::thr{'table'}{'back'}">
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   スレッド表示フッター
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub thread_foot {
	my $tree = shift; #── 記事

	print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
   <table border=0 cellspacing=0 cellpadding=0 width="100%">
    ${&tree_all($tree)}
   </table>
  </td>
  <td bgcolor="$CNF::STY::thr{'table'}{'back'}">
   <img src="$CNF::place{'image'}{'url'}/_.gif" width=4 height=2 alt=""></td>
  <td>
   <img src="$CNF::place{'image'}{'url'}/_.gif" width=2 height=2 alt=""></td>
 </tr>
 <tr>
  <td bgcolor="$CNF::STY::thr{'table'}{'back'}" colspan=3>
   <img src="$CNF::place{'image'}{'url'}/_.gif" width=2 height=4 alt=""></td>
 </tr>
 <tr>
  <td colspan=3>
   <img src="$CNF::place{'image'}{'url'}/_.gif" width=2 height=2 alt=""></td>
 </tr>
</table>
<br>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────

1;

# $Id: thr.txt,v1.0 2003/09/11 12:00:00 N.Hirai Exp $;