#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃■(ＳＳ)Ｃ−ＢＯＡＲＤテンプレート
#┠──────────────────────────────────────
#┃エラー画面の設定ファイルです。
#┃通常のＨＴＭＬと同じ感覚で編集することが出来ます。
#┃なお、途中にある「$〜」はそれぞれプログラムによって任意の文字列に
#┃置き換えられます。
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

package DESIGN;

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   エラー画面
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub error {
	my $r_error = shift; #── エラー内容

	print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
[<a href="$CNF::place{'this'}{'url'}?id=$::FORM{'id'}">戻る</a>]<br>
<font color=red>ERROR:</font><br>
${$r_error}<br>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────

*small_error = *error;

1;

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