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

package DESIGN;

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   エラー画面
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub error {
	my $r_error = shift; #── エラー内容
	my $caller	= shift; #── 呼び出し元

	print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
 <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><b>&nbsp;${$r_error}$caller</b></span><br><br></td></tr>
 </table>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   エラー画面（インライン）
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub small_error {
	my $r_error	= shift; #── エラー内容
	my $caller	= shift; #── 呼び出し元

	print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
<span class=ErrorSmall>ＥＲＲＯＲ：${$r_error}$caller</span><br>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────

1;

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