<< 掲示板に戻る



投稿者: えふ
タイトル: Re: Cart MAX ver.7.5でのポイント付与について
日付: 2017/12/24(Sun) 22:57:52
E-mail:
URL:
cgi/lib/cart/cart.plの
2980行
if($CF::pointbase){
     $newpoint=int($subtotal/$CF::pointbase)*$CF::pointnumber;
}
$point+=$newpoint;
$pointleft=$point;
を削除

2987行
if($CF::pointbase){
     $newpoint=int($subtotal/$CF::pointbase)*$CF::pointnumber;
}
$point+=$newpoint;
$pointleft=$point;

を削除

cgi/lib/admin/rireki.plの
865行の
sub Shousai{
の上に

sub Point{
my(
@new,$pointleft,$nop,$newpoint,$usepoint,$plusp,$subtotal,$FO_ref,
$email,$pass,$kibou,$point,$name1,$name2,$kana1,$kana2,$postal,$pref,$address,$address2,$tel,$email_d
);

$subtotal=$_[0];
$email_d=$_[1];

$usepoint=0;
$newpoint=0;
unless(open(FILE,$CF::m_log)){
     &main::error("m_logが開けません。");
}
while(<FILE>){
     ($email,$pass,$kibou,$point,$name1,$name2,$kana1,$kana2,$postal,$pref,$address,$address2,$tel)=split(/,/,$_);
     if($email eq $email_d){
          if($CF::pointbase){
               $newpoint=int($subtotal/$CF::pointbase)*$CF::pointnumber;
          }
          $point+=$newpoint;
          $_="$email,$pass,$kibou,$point,$name1,$name2,$kana1,$kana2,$postal,$pref,$address,$address2,$tel,\n";
     }
     push @new,$_;
}
close FILE;
unless(open(FILE,">$CF::m_log")){
     &main::error("m_logに書き込めません。パーミッション等を確認してください。");
}
print FILE @new;
close FILE;

}

と追加

860行の
&RirekiTop($FO_ref);
の上に
if(${$FO_ref}{'jyokyo'} eq "2"){
     &Point($subtotal_d,$email_d);
}

と追加

814行の
$email_d=$email;
の下に
$subtotal_d=$subtotal;
と追加
以上ですがテストしないので動かないかもしれません。



※この記事に返信を書く (元記事は必要な部分のみ残してください。)
おなまえ: ※"通りすがり"のようなぞんざいなハンドルネームは止めてください。
タイトル:
メール:
ホーム: ☆☆ ※1つの投稿に質問を複数書き込まないでください。数日以上分けて投稿してください。
メッセージ:
削除パス: クッキー:

- CGI Pal -