いつもお世話になっています。簡易ショッピングバスケット1.22についての質問です。

特定の支払い方法に対する限度額を設定したいと思っております。

一応、下記のようにすることで、注意書きを表示することができるのですが、このままでは注文を拒否できません。

if ( $atobarai && $zeibetsu_goukei > 50000 ) {
		print " 後払いをご利用の場合、税込ご購入金額が50,000円以上のご利用はできません。\n";
		}

そこで、エラー画面を表示させようとしているのですが、上手く表示してくれません。
現在は計算処理の後に次の行を追加しています。

#●後払いの注意
if ( $atobarai && $zeibetsu_goukei > 50000 ) { &error('承れません','後払いをご利用の場合、ご購入金額が50,000円以上のご利用はできません'); }
#●後払いの注意終了

ところがこれでは、ショッピングバスケットの一部とエラー画面が混同して表示されてしまいます。
お忙しいこととは存じますが、ご教示、よろしくお願いします。

お騒がせしてすみません。

sub regist {　で

$kingaku = $FORM{'amount'} * $FORM{'unit'};
if ( $FORM{'rem'} eq 'atobarai' && $kingaku > 50000 ) { &error('承れません','後払いをご利用の場合、ご購入金額が50,000円以上のご利用はできません'); }

のようにしたら、問題なく動作しました。