#
#(rr)b|an`qcev[g(Ƃقىver1.02.4t)
#
#Lʂ̐ݒt@CłB
#ʏ̂gslkƓoŕҏW邱Ƃo܂B
#ȂArɂu$`v͂ꂼvOɂĔCӂ̕
#u܂B
#
 
package DESIGN;

require './lib/etc.pl';

%SUB = (
	%SUB,
	tree => <<'__SUB__',
#
#   c[\
#
sub tree {
	local *MSG		 = shift; # L
	my $type		 = shift; # ^Cv
	my $r_branch		 = shift; # Cfg
	my $r_link		 = shift; # N
	my $r_no		 = shift; # Lԍ
	my $r_genre_icon	 = shift; # WACR
	my $r_clip		 = shift; # NbvACR
	my $r_read		 = shift; # ǃACR
	my $r_new		 = shift; # mdvACR
	my $r_select		 = shift; # ZNgACR
	my %type = qw(prt Parent chl Child);
#ƂقُCJn
$MSG{'body'}=~ s/&lt;.+?&gt;//g;
$MSG{'body'}=~ s/&lt;.+?//g;
$MSG{'body'}=~ s/&gt;.+?\n//g;
$MSG{'body'}=~ s/&gt;.+?//g;
$MSG{'body'}=~ s/\n//g;
#ƂقُCI

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<table border=0 cellspacing=0 cellpadding=0>
 <tr>
  <td><img src="$CNF::place{'image'}{'url'}/_.gif" width=10 height=1 alt=""></td>
  <td>${$r_branch}</td>
  <td bgcolor="$CNF::STY::tre{$type}{'table'}{'back'}" nowrap>
   <a class=Tree$type{$type}Subject href="${$r_link}" title="$MSG{'body'}"><strong>${$r_no}$MSG{'subject'}</strong>
    <span class=Tree$type{$type}@{[(&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=\"̌f̊Ǘlł\">" : '']}</span>
    <span class=Tree$type{$type}Date>$MSG{'date'}</span></a></td>
  <td>${$r_genre_icon}${$r_clip}${$r_read}${$r_new}${$r_select}</td>
 </tr>
</table>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń
__SUB__


	tree_split => <<'__SUB__',
#
#c[Ԃ̃Xy[X
#
sub tree_split {
	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<img src="$CNF::place{'image'}{'url'}/_.gif" width=1 height=$CNF::STY::tre{'space'} alt=""><br>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń
__SUB__


	all => <<'__SUB__',
#
#L\
#
sub all {
	local *MSG		= shift; # L
	my $r_width	 	= shift; # 薼̕
	my $r_no		= shift; # Lԍ
	my $r_new		= shift; # mdvACR
	my $r_mail		= shift; # [ACR
	my $r_web		= shift; # vdaACR
   	my $r_genre_icon	= shift; # WACR
	my $r_delete_input	= shift; # 폜{^
	my $r_attach		= shift; # Ytt@C
	my $r_tree_all		= shift; # c[S̕\N
	my $hit 		= shift; # {
	my $sage_info		= shift; # r`FbN
	my $r_agent	 	= shift; # [U[
	my $r_body_color	= shift; # {F
#ƂقُCJn
if($::FORM{'id'} eq ""){$link_id = "#$MSG{'no'}";}
else{$link_id = ";id=$::FORM{'id'}#$MSG{'no'}";}
#ƂقُCI

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

<div style="width:$CNF::STY::bse{'width'};">

<div border:0px solid red;">
 <div style="float:left;">
  <div style="border:0px solid;">
   <span style="display:inline-block; display: -moz-inline-box; width:$CNF::STY::all{'subject'}{'table'}{'width'}; border-bottom:2px solid $CNF::STY::all{'subject'}{'table'}{'border'}; vertical-align:text-bottom;">
  	  <a href="$CNF::place{'this'}{'path'}?cmd=one;no=$MSG{'no'}$link_id">
	   <span class=AllSubject><strong>${$r_no}$MSG{'subject'}</strong></span></a>
   </span>
   <span style="vertical-align:baseline;">
   		${$r_genre_icon}${$r_new}
		<span class=All@{[(&ETC::name_matching($MSG{'name'},$CNF::master{'name'},$CNF::master{'mode'})) ? 'Master' : '']}Name>&nbsp;<strong title="mʔԍF$MSG{'ident'}n">$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=\"̌f̊Ǘlł\">" : '']}</strong></span>
		${$r_mail}${$r_web}
		<span class=AllDate>&nbsp;-&nbsp;$MSG{'date'}&nbsp;-</span>
   </span>
  </div>
 </div>

 <br clear="all" />
</div>

<div style="border:0px solid red;">

  <div style="float:left; width:$CNF::STY::all{'body'}{'table'}{'width'}; border:0px solid;">
    <div style="padding: 10px 6px 10px 10px; line-height:105%; word-wrap:break-word; overflow:auto;">
    <span class=${$r_body_color}>$MSG{'body'}</span>
    <br clear="all" />
    </div>
  </div>

  <div style="float:left; border:0px solid;">
    <div style="border:0px solid;">
    <form action="$CNF::place{'this'}{'path'}" method="post" style="margin:0px;">
	<div style="float:left;">
	$CNF::STY::all{'reply'}{'button'}
    </div>
    <div style="float:left;">
   	  <span class=AllReply>
	   <input name="no_quot" type=checkbox value="1" class=AllReplyInput title="`FbNƕԐMɌLpȂȂ܂">pȂ
	  </span>
	  <input type="hidden" name="follow" value="$MSG{'no'}">
	  <input type="hidden" name="id" value="$::FORM{'id'}">
	  <input type="hidden" name="cmd" value="psn">
	</div>
	</form>
   <br clear="all" style="height:0px;" />
   </div>

   <div style="border:0px solid;">
   ${$r_delete_input}
   <br clear="all" style="height:0px;" />
   </div>

   <div style="border:0px;">
   ${$r_attach}
   <br clear="all" style="height:0px;" />
   </div>
   

  </div>
<br clear="all" style="height:0px;" />
</div>

<div style="text-align:right;">
<div>${$r_tree_all}</div>
<div>
   <span class=AllHit>$hit</span>
   <span class=AllHit>$sage_info</span>
   <span class=AllAgent>${$r_agent}</span>
</div>
</div>
<hr size=1 width=$CNF::STY::bse{'width'} align="left">

</div>

<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń
__SUB__


	delete_input => <<'__SUB__',
#
#   폜{^
#
sub delete_input {
	my $no	 = shift; # Lԍ
	my $tree = shift; # c[ԍ

	return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
	<form action="$CNF::place{'this'}{'path'}" method="post" style="margin:0px 0px;">
	<div style="float:left;">
	
	$CNF::STY::all{'delete'}{'button'}
	</div>
	<div style="float:left; padding-top:4px;">
	<span class="AllDelete">pX[h<br />
	<input name="key" size="8" maxlength="10" type=password value="$::COOKIE{'key'}" class="AllDeleteInput" title="eƂɓ͂pX[h͂Ă">
	</span>
	  <input type=hidden name="no" value="$no">
	  <input type=hidden name="tree" value="$tree">
	  <input type=hidden name="id" value="$::FORM{'id'}">
	  <input type=hidden name="cmd" value="dlm">
	</div>
	</form>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń
__SUB__


	tree_all => <<'__SUB__',
#
#   c[S̕\N
#
sub tree_all {
	my $tree = shift; # c[
#ƂقُCJn
if($::FORM{'id'} eq ""){$link_id = "#$tree";}
else{$link_id = ";id=$::FORM{'id'}#$tree";}
#ƂقُCI

	return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
   <a href="$CNF::place{'this'}{'path'}?cmd=ntr;tree=$tree$link_id" title="Lc[̋LSĕ\\܂"><span class=AllTree>Ec[S̕\\</span></a>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń
__SUB__


	attach_info => <<'__SUB__',
#
#   Ytt@C
#
sub attach_info {
	local *file = shift;

	return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
  <div>
  <hr size=1 width="140">
  <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>`Ytt@C`</span></a>
  </div>
  <div style="margin-left:3px; word-wrap:break-word;">
  <a href="$CNF::place{'file'}{'url'}/$file{'path'}" target="$CNF::upload{'link'}{'target'}" title="$file{'name'} ($file{'size'})">
  <span class=AllFile>E$file{'name'}</span><br />
  <span class=AllFile>E$file{'size'}</span>
  </a>
  </div>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń
__SUB__


	attach_delete_info => <<'__SUB__',
#
#   Ytt@C폜ςݏ
#
sub attach_delete_info {
	return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
  <hr size=1 width=140>
  <img src="$CNF::place{'image'}{'url'}/clip_icon.gif" width=8 height=14 border=0 alt="yYtt@Cz">
  <span class=AllFile>`Ytt@C`<br>m폜܂n</span>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń
__SUB__
);

1;

# $Id: msg.txt,v 1.1.1.5 2004/07/30 09:00:00 N.Hirai Exp $;
