#
#(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>
<font color=red>ERROR:</font><br>
${$r_error}<br>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń

*small_error = *error;

1;

# $Id: ror.txt,v 1.3 2006/03/09 09:19:39 susumu Exp $;
