Re:sale.csv |
このメッセージの投稿者: ベルコールさん 2002/03/08 16:30:03元メッセージ: sale.csv 投稿者: みさきさん 2002/03/07 10:39:11
>いつも大変お世話になっております。>「ご注文票」画面の[コメント]にENTERキーを使用して入力した場合、
>sales.csvのA列(受注データ番号)に改行以降の文字列が入ってしまいますが、
>それによって何か問題が発生する可能性はありますでしょうか?
>また、まれに受注伝票で表示されないデータがありますが
>上記の件と関係はありますでしょうか?>ver3.35.019、受注データファイルの設定は単純に1〜25までの連番で設定しています。
>お手数ですが宜しくお願い致します。
-----
shop.cgi 430行目あたりに次のようなところがあります。if($command eq'order2'){
$hinme.="■$hinban $hinmei($su)";
print ODR "$ordernum,$dnum,$name1,$d_name1,$hinban,$hinmei,$price,$su,\n";
if($salesrepo){
if(open(CSVL,"$datadir/csv2.lst")){
while(<CSVL>){
/^(\w+)\n/;${"$1"}=$datest if($1 eq'date');
print CSV "${$1},";
}close CSVL;print CSV "\n"
}else{print CSV "$dnum,$ordernum,$hinban,$hinmei,$price,$su,\n"}
}
}ここを次のように修正してください。
if($command eq'order2'){
$hinme.="■$hinban $hinmei($su)";
print ODR "$ordernum,$dnum,$name1,$d_name1,$hinban,$hinmei,$price,$su,\n";
if($salesrepo){
if(open(CSVL,"$datadir/csv2.lst")){
while(<CSVL>){
/^(\w+)\n/;$ko=$1;${"$ko"}=$datest if($ko eq'date');
if(${$ko}=~/\n/){print CSV "\"${$ko}\","}else{print CSV "${$ko},"}
}close CSVL;print CSV "\n"
}else{print CSV "$dnum,$ordernum,$hinban,$hinmei,$price,$su,\n"}
}
}
このメッセージへの返事: