v6.02の注文書の写しの価格が正常に表示されません

CGI-BBS > ＳＯ－ＨＯ > ショッピングバスケット > v6.02の注文書の写しの価格が正常に表示されません

質問者 SAYOKO 投稿日 7/23(月) 16:31:06 [削除] (返信・回答が付いた後にこの質問の削除はできません)

私はドル表示で設定していますが、受信した注文書の写しの商品や送料や合計の価格の
小数点が無くなり、それ以下の数字が改行されてしまいます。
※私の場合、送料は「配送方法」に変更しています。
　この問題は、それ以前から見受けられます。

注文書写しの見本
------------------------------------------------------------------------
sample1" 色:Red サイズ:S x 1
US$20　　　　　　　　　　　　　←この部分です。下の「配送方法」「合計」も同様。
99　　　　　　　　　　　　　　←   〃

配送方法 (PP-Insurance)
US$0
00

合計
US$20
99
-----------------------------------------------------------------------
私は、Perlを詳しくマスターしていないので自分で修正箇所の発見と訂正が出来ません。
以下にcart.cgi内の注文書写しのメール発行部分と思われる箇所をコピーしますので、
恐れ入りますが、お判りになられる方がございましたら、是非に御指導下さい。
※注文書は正常に発行されています。

if (!open(OUT,"| $sendmail -t")) { &error("異常停止",$!); }

print OUT &jis("X-Processed: $date_now\n");
print OUT "X-SENDER: $REMOTE_HOST\[$REMOTE_ADDR\]\n";
print OUT &jis("X-AGENT: $HTTP_USER_AGENT\n");
print OUT "From: $mailto_order\n";
print OUT "To: $in{'_email'}\n";
print OUT &jis("Subject: [$date_num] $copy_subject\n");
print OUT "Content-Transfer-Encoding: 7bit\n";
print OUT "Content-Type: text/plain; charset=iso-2022-jp\n\n";

print OUT &jis("$mail_mes\n");

print OUT "\n";
foreach (@in) {

        s/"/"/g;
        s/&/&/g;
        s/</</g;
        s/>/>/g;

        if (/^\.\t(.*)/) { $l = $1; $l =~ s/\./\n/g; print OUT &jis("$l\n"); }
        elsif (/(.*)\t(.*)/) { print OUT &jis("[$1]\n$2\n\n"); }
}
print OUT "\n";

返信(回答)する

Ｗｅｂ裏技