#
#(rr)b|an`qcev[g(Ƃقىver1.02.5)
#
#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 $atc_sum= shift;
	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}
${$atc_sum}
</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

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<a name="$MSG{'no'}"></a>
<table border=0 cellspacing=0 cellpadding=0>
 <tr>
  <td>
   <table border=0 cellspacing=0 cellpadding=0>
    <tr><td><img src="$CNF::place{'image'}{'url'}/sbj_table_left.gif" width=9 height=30 alt=""></td>
	<td background="$CNF::place{'image'}{'url'}/sbj_table_back.gif" ${$r_width} nowrap>
<!--ƂقُC--><span class=AllSubject><a href="$CNF::place{'this'}{'path'}?cmd=one;no=$MSG{'no'};id=$::FORM{'id'}"><strong>${$r_no}$MSG{'subject'}</strong></a>
</span>
	</td>
	<td><img src="$CNF::place{'image'}{'url'}/sbj_table_right.gif" width=9 height=30 alt=""></td>
    </tr>
   </table>
  </td>
  <td valign="bottom">${$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;- $MSG{'date'} -</span>
  </td>
 </tr>
</table>
<table border=0 cellspacing=0 cellpadding=0>
 <tr>
  <td align="left" valign="top" width="$CNF::STY::all{'body'}{'table'}{'width'}">
   <hr width="100%" size=1 align="left">
  </td>
  <td rowspan=2 align="left" valign="top">
   <table border=0 cellpadding=0 cellspacing=0>
    <tr><td colspan=2><form action="$CNF::place{'this'}{'path'}" method="post"></td></tr>
    <tr><td>$CNF::STY::all{'reply'}{'button'}</td>
	<td>
	 <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">
	</td>
    </tr>
    ${$r_delete_input}
    <tr><td colspan=2></form></td></tr>
    <tr><td colspan=2 align="center">${$r_attach}</td>
    </tr>
   </table>
  </td>
 </tr>
 <tr>
  <td width=$CNF::STY::all{'body'}{'table'}{'width'}>
   <table border=0 cellspacing=0 cellpadding=0>
    <tr>
     <td>&nbsp;&nbsp;</td>
     <td><span class=${$r_body_color}>$MSG{'body'}</span></td>
    </tr>
   </table>
  </td>
 </tr>
 ${$r_tree_all}
 <tr>
  <td colspan=2 align="right">
   <span class=AllHit>$hit</span>
   <span class=AllHit>$sage_info</span>
   <span class=AllAgent>${$r_agent}</span>
  </td>
 </tr>
</table>
<hr size=1 width=$CNF::STY::bse{'width'} align="left">
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń
__SUB__


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

	return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
	<tr><td colspan=2>
	  </form><form action="$CNF::place{'this'}{'path'}" method="post"></td></tr>
	<tr>
	 <td>$CNF::STY::all{'delete'}{'button'}</td>
	 <td>
	  <span class=AllDelete>pX[h
	   <input name="key" size=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">
	 </td>
	</tr>
<<<<<<<<<<<<<<<<<<<<<< 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ł >>>>>>>>>>>>>>>>>>>>>>");
 <tr>
  <td colspan=2 align="right">
   <!--ƂقُC--><a href="$CNF::place{'this'}{'path'}?cmd=ntr;tree=$tree$link_id" title="Lc[̋LSĕ\\܂"><span class=AllTree>Ec[S̕\\</span></a>
  </td>
 </tr>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń
__SUB__


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

	return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
  <table border=0 cellspacing=0 cellpadding=0 width="100%">
   <tr>
    <td colspan=2 align="center">
     <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>
    </td>
   </tr>
  </table>
  <table border=0 cellspacing=0 cellpadding=0>
   <tr>
    <td>
     <a href="$CNF::place{'file'}{'url'}/$file{'path'}" target="$CNF::upload{'link'}{'target'}" title="$file{'name'} ($file{'size'})">
     <span class=AllFile>EO</span></a></td>
    <td>
     <a href="$CNF::place{'file'}{'url'}/$file{'path'}" target="$CNF::upload{'link'}{'target'}" title="$file{'name'} ($file{'size'})">
     <span class=AllFile>F $file{'name'}</span></a></td>
   </tr>
   <tr>
    <td>
     <a href="$CNF::place{'file'}{'url'}/$file{'path'}" target="$CNF::upload{'link'}{'target'}" title="$file{'name'} ($file{'size'})">
     <span class=AllFile>ETCY</span></a></td>
    <td>
     <a href="$CNF::place{'file'}{'url'}/$file{'path'}" target="$CNF::upload{'link'}{'target'}" title="$file{'name'} ($file{'size'})">
     <span class=AllFile>F $file{'size'}</span></a></td>
   </tr>
  </table>
<<<<<<<<<<<<<<<<<<<<<< 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.6 2004/07/30 09:00:00 N.Hirai Exp $;
