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"}
  }
 }


このメッセージへの返事:

218.44.146.186/big.bellcall.co.jp