#
#(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=1 height=1 alt=""></td>
  <td valign="top">${$r_branch}</td>
  <td valign="top" bgcolor="$CNF::STY::tre{$type}{'table'}{'back'}">
   <a class=Tree$type{$type}Subject href="${$r_link}"><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=3 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[

	
	#PDApgݗ
	# [
	my $pda_mail;
	if ($MSG{'email'}) {
		if ($MSG{'mail_mode'} == 1) {
			$pda_mail =  qq|<a href="$CNF::place{'this'}{'url'}?cmd=hmn;|
				   . qq|no=$MSG{'no'};id=$::FORM{'id'}" |
				   . qq|title="[">|
				   . qq|Mail</a>|;
		}
		elsif ($MSG{'mail_mode'} != 2) {
			$pda_mail = qq|<a href="mailto:$MSG{'email'}" title="[">|
				  . qq|email|
				  . qq|</a>|;
		}
	}

	# vda
	$MSG{'web'}
		&& (my $pda_web = qq|<a href="$MSG{'web'}" target="|
					. qq|$CNF::post{'url'}{'target'}">|
					. qq|Home|
					. qq|</a>|);


	#ꗗ̎̓zXg\Ȃ
	if ( $::FORM{'cmd'} ne 'one' ) {
		$r_agent = "";
	}


	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<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>${$r_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="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_new}&nbsp;${pda_mail}&nbsp;${pda_web}
   ${$r_genre_icon}
  <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>
  </td>
 </tr>
 <tr valign="top">
  <td align="right">
  <br />
  <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="ԐM" value="ԐM" id="button">
	  <small><span class=AllReply>
	   <input name="no_quot" type=checkbox value="1" class=AllReplyInput title="`FbNƕԐMɌLpȂȂ܂">
	   pȂ
	  </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">
    ${$r_delete_input}
	</tr>
    <tr><td colspan=2 align="center">${$r_attach}</td></tr>
   </table>
 </tr>
 <tr>
  <td>
   ${$r_tree_all}
  </td>
 </tr>
 <tr>
  <td 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::pda{'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">
	<td>
	 <input type="submit" name="폜" value="폜" id="button">
	  <small><span class=AllDelete>pX[h
	   <input name="key" size=10 type=password value="$::COOKIE{'key'}" class=AllDeleteInput title="eƂɓ͂pX[h͂Ă">
	  </span></small>
	  <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>
	</form>
<<<<<<<<<<<<<<<<<<<<<< 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.2 2004/07/30 09:00:00 N.Hirai Exp $;
