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

package DESIGN;

#
#
#
sub info {
	my $r_word = shift; # 

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<table border=0 width=$CNF::STY::bse{'width'}>
 <tr>
  <td bgcolor="$CNF::STY::rst{'info'}{'table'}{'back'}">
   <span class=ResultInfo><strong></strong>( F <strong>${$r_word}</strong>)</span>
  </td>
 </tr>
</table>
${&line}
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#ʊTv
#
sub summary {
	my $r_str	 = shift; # 

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<span class=ResultSummary>${$r_str}</span>
${&line}
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#}b`ߋOt@C̕\
#
sub log_name {
	my $name = shift; # t@C

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<a href="$CNF::place{'log'}{'url'}/$name"><span class=ResultLogFile>&nbsp;<strong>$name</strong></span></a><br>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#}b`ߋOc[̕\
#
sub log_tree {
	my $path	= shift; # pX
	my $title	= shift; # ^Cg

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<a class=ResultLogTree href="$CNF::place{'log'}{'url'}/$path">&nbsp;&nbsp;&nbsp;$title</a><br>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń

1;

# $Id: rst.txt,v 1.1.1.2 2001/11/02 14:25:00 N.Hirai Exp $;
