#
#(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

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
[<a href="$CNF::place{'this'}{'url'}?id=$::FORM{'id'}">߂</a>]<br />
<span class="error">ERROR:</span><br />
${$r_error}<br />
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń

*small_error = *error;

1;

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