#
#(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ł >>>>>>>>>>>>>>>>>>>>>>";
<strong></strong><br>
(<strong>${$r_word}</strong>)<br>
${&line}
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   wb_[
#
sub head {
	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
$CNF::mobile{'header'}
${&line}
[<a href="$CNF::place{'this'}{'url'}?id=$::FORM{'id'}">ƭ</a>]
${&line}
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   tb^[
#
sub foot {
	shift; local *page = shift;
	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
$page{'info'}
$CNF::mobile{'footer'}
<!--
$::SYS{'name'} $::SYS{'version'}$::SYS{'base_comment'}
See $::SYS{'base_link'}
-->
</body>
</html>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


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

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
${$r_str}
${&line}
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


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

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


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

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<a 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 $;
