#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃C-BOARD Moyuku  msg.skin.pl
#┠──────────────────────────────────────
#┃for PDA
#┃ツリー、一覧画面のスキンファイルです。
#┃途中にある「$〜」はそれぞれプログラムによって任意の文字列に
#┃置き換えられます。
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 
package DESIGN;

require './app/helper/etc.pl';



#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   ツリー全体
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub make_tree_all {
	my ( $tree ) = @_;
	if ( $::FORM{'cmd'} ne 'thr' ) {
		return <<"__MyHTML__";
	<div style="text-align:right;">
	<a href="$CNF::place{'this'}{'path'}?cmd=ntr;tree=$$tree;id=$::FORM{'id'}" title="記事が属するツリーの記事を全て表\示します"><span class="AllTree">・ツリー全体表\示</span></a>
	</div>
__MyHTML__
	}
	return '';
}


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   ツリー表示
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub tree {
	local *MSG		 	= shift; #── 記事
	my $type		 	= shift; #── タイプ
	my $r_branch		= shift; #── インデント

	my %type = qw(prt Parent chl Child);

	if ( ! $MSG{'subject'} ) {	#空コール回避 map使用の弊害か？
		return;
	}

	# PDA用
	$CNF::STY::tre{'indent'}{'width'} = 2;
	$CNF::STY::tre{'branch'}{'icon'}{'width'} = 4;
	
	print <<"__MyHTML__";
<table border=0 cellspacing=0 cellpadding=0>
 <tr>
  <td>${$r_branch}</td>
  <td bgcolor="$CNF::STY::tre{$type}{'table'}{'back'}" style="line-height:80%;">
   <a class=Tree$type{$type}Subject href="@{[&make_link(\$MSG{'no'})]}" title="$MSG{'body'}"><strong>@{[&make_no(\$MSG{'no'})]}$MSG{'subject'}</strong><br />
    &nbsp; &nbsp; &nbsp;<span class=Tree$type{$type}@{[(&ETC::name_matching($MSG{'name'},$CNF::master{'name'},$CNF::master{'mode'})) ? 'Master' : '']}Name style="font-size:x-small;">$MSG{'name'}</span>
    <span class="Tree$type{$type}Date" style="font-size:x-small; margin-top:0px; padding-top:0px;line-height:0px;">$MSG{'date'}</span></a>
  </td>
  <td>
  <span style="margin-left:1px;">@{[&make_clips(\$MSG{'file'})]}@{[&make_new(\$MSG{'time'})]}<span>
  <span style="margin-left:1px;">@{[&make_notread(\$MSG{'no'})]}@{[&make_select(\$MSG{'no'})]}</span>
  </td>
  </tr>
</table>
__MyHTML__

}



%SUB = (
	%SUB,

	tree_split => <<'__SUB__',
#┌──────────────────────────────────────
#│ツリー間のスペース
#└──────────────────────────────────────
sub tree_split {
	print <<"__MyHTML__";
<img src="$CNF::place{'image'}{'url'}/_.gif" width=1 height=3 alt=""><br />
__MyHTML__
}
#────ここまで───────────────────────────────
__SUB__


	all => <<'__SUB__',
#┌──────────────────────────────────────
#│記事表示
#└──────────────────────────────────────
sub all {
	local *MSG			= shift; #── 記事
	my $r_width	 		= shift; #── 題名の幅
	my $r_attach		= shift; #── 添付ファイル情報
	my $r_body_color	= shift; #── 本文色


	#一覧の時はホストを表示しない
	if ( $::FORM{'cmd'} ne 'one' ) {
		$r_agent = "";
	}


	print <<"__MyHTML__";
<a name="$MSG{'no'}"></a>

<div style="width:$CNF::STY::pda{'width'};">
<table border=0 cellspacing=0 cellpadding=0 width="$CNF::STY::pda{'width'}">
 <tr>
  <td style="background-color:$CNF::STY::all{'subject'}{'table'}{'back'};">
  <div style="word-wrap:break-word; overflow:auto;">
  <a href="$CNF::place{'this'}{'path'}?cmd=one;no=$MSG{'no'};id=$::FORM{'id'}">
  <span class=AllSubject style="word-wrap:break-word;"><strong>@{[&make_no(\$MSG{'no'})]}$MSG{'subject'}</strong></span></a>
  </div>
  </td>
 </tr>
 <tr>
 <td>
   by&nbsp;<span class=All@{[(&ETC::name_matching($MSG{'name'},$CNF::master{'name'},$CNF::master{'mode'})) ? 'Master' : '']}Name>&nbsp;<strong title="［識別番号：$MSG{'ident'}］">$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=\"この掲示板の管理人です\">" : '']}</strong></span>
   @{[&make_new(\$MSG{'time'})]}&nbsp;@{[&make_mail(\$MSG{'email'},\$MSG{'mail_mode'},\$MSG{'no'})]}@{[&make_web(\$MSG{'web'})]}
   @{[&make_genre(\$MSG{'genre'})]}
  <small><span class=AllDate>&nbsp;$MSG{'date'} </span></small>
 </td>
 </tr>
 <tr bgcolor="$CNF::STY::all{'subject'}{'table'}{'border'}">
  <td><img src="$CNF::place{'image'}{'url'}/_.gif" width=2 height=2 alt=""></td>
 </tr>
 <tr>
  <td align="right">

  </td>
 </tr>
 <tr>
  <td width="$CNF::STY::pda{'width'}">
  <div style="width:$CNF::STY::pda{'width'};word-wrap:break-word; overflow:auto;">
   <div style="word-wrap:break-word;">
   <br />
   <span class=AllBody>$MSG{'body'}
   </span>
   </div>
  </div>
  <br />
  </td>
 </tr>
 <tr><td colspan=2 align="right">${$r_attach}
 
   <span class=AllHit>@{[&make_hit(\$MSG{'hit'})]}</span>
   <span class=AllHit>@{[&make_sage(\$MSG{'sage'})]}</span>
   <span class=AllAgent>@{[&make_agent(\$MSG{'agent'},\$MSG{'host'})]}</span>
 </td></tr>
 <tr valign="top">
  <td align="right">

  <hr />
   <table border=0 cellpadding=0 cellspacing=0>
    <tr valign="top">
    <form action="$CNF::place{'this'}{'path'}" method="post">
    <td colspan=2>
    <input type="submit" name="返信" value="返信" id="button">
	  <small><span class=AllReply>
	   <input name="no_quot" type=checkbox value="1" class=AllReplyInput title="チェックすると返信時に元記事を引用しなくなります">
	   引用なし
	  </span></small>
	  <input type="hidden" name="follow" value="$MSG{'no'}">
	  <input type="hidden" name="id" value="$::FORM{'id'}">
	  <input type="hidden" name="cmd" value="psn">
	
	</td>
	</form>
	</tr>
	<tr valign="middle">
	<form action="$CNF::place{'this'}{'path'}" method="post">
	<td>
	 <input type="submit" name="削除" value="削除" id="button">
	  <small><span class=AllDelete>パスワード
	   <input name="key" size=10 type=password value="$::COOKIE{'key'}" class=AllDeleteInput title="投稿したときに入力したパスワードを入力してください">
	  </span></small>
	  <input type=hidden name="no" value="$MSG{'no'}">
	  <input type=hidden name="tree" value="$MSG{'tree'}">
	  <input type=hidden name="id" value="$::FORM{'id'}">
	  <input type=hidden name="cmd" value="dlm">
	</td>
	</form>
	</tr>
   </table>
 </tr>
 <tr>
  <td align="right">
  @{[&make_tree_all(\$MSG{'tree'})]}
  </td>
 </tr>
</table>
<hr size=1 width=$CNF::STY::pda{'width'} align="left">
</div>
__MyHTML__
}
__SUB__


	attach_info => <<'__SUB__',
#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   添付ファイル情報
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub attach_info {
	local *file = shift;

	return(\<<"__MyHTML__");
  <div style="width:100%; word-wrap:break-word; overflow:auto;">
  <a href="$CNF::place{'file'}{'url'}/$file{'path'}" target="$CNF::upload{'link'}{'target'}"
   title="$file{'name'}($file{'size'})">$CNF::STY::clip{'icon'}<span class=AllFile>：$file{'name'}</span></a><nbr /><span class="AllFile">（$file{'size'}）</span>
  <br clear="all" style="height:0px;" />
  </div>
__MyHTML__
}
__SUB__


	attach_delete_info => <<'__SUB__',
#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   添付ファイル削除済み情報
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub attach_delete_info {
	return(\<<"__MyHTML__");
  <img src="$CNF::place{'image'}{'url'}/clip_icon.gif" width=8 height=14 border=0 alt="【添付ファイル】">
  <span class="AllFile">：添付ファイル［削除されました］</span><br />
__MyHTML__
}
__SUB__
);

1;