#
#(rr)b|an`qcev[g
#
#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);

	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̊Ǘ҂ł\">" : '']}</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

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<a name="$MSG{'no'}"></a>
<table border=0 cellspacing=0 cellpadding=0>
 <tr>
  <td>
   <table border=0 cellpadding=0>
	<tr>
	 <td ${$r_width} nowrap><span class=AllSubject><strong>${$r_no}<span class=AllDate>$MSG{'date'}</span></strong></span></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>
   </table>
  </td>
  <td valign="bottom"></td>
 </tr>
</table>
<table border=0 cellspacing=0 cellpadding=0>
 <tr>
  <td width="$CNF::STY::all{'body'}{'table'}{'width'}">
   <table border=0 cellspacing=0 cellpadding=0>
    <tr><td>&nbsp;&nbsp;</td>
	<td><br><span class=${$r_body_color}>$MSG{'body'}</span></td></tr>
   </table>${$r_attach}</td>
  <td 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 colspan="2"><span class=AllReply> </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"></td></tr>
   </table>
  </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>
	</tr>
	<tr>
	 <td>
	  <span class=AllDelete>pX[h<BR>
	   <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[

	return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
 <tr>
  <td colspan=2 align="right">
   <a href="$CNF::place{'this'}{'path'}?cmd=ntr;tree=$tree;id=$::FORM{'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.5 2004/07/30 09:00:00 N.Hirai Exp $;
