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

package DESIGN;

#
#   G[
#
sub error {
	my $r_error = shift; # G[e
	my $caller	= shift; # Ăяo

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
 <table border=0 cellpadding=2 cellspacing=0 cellpadding=0 width=$CNF::STY::ror{'table'}{'width'}>
  <tr><td bgcolor="$CNF::STY::ror{'table'}{'border'}" align="center">$CNF::STY::ror{'title'}{'icon'}</tr>
  <tr><td bgcolor="$CNF::STY::ror{'table'}{'back'}"><span class=Error><br><strong>&nbsp;${$r_error}$caller</strong></span><br><br></td></tr>
 </table>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   G[ʁiCCj
#
sub small_error {
	my $r_error	= shift; # G[e
	my $caller	= shift; # Ăяo

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<span class=ErrorSmall>dqqnqF${$r_error}$caller</span><br>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń

1;

# $Id: ror.txt,v1.0 2003/09/11 12:00:00 N.Hirai Exp $;
