掲示板に戻る




Cart MAX ver.7.5でのポイント付与について 投稿者: うめ
初めまして、
Cart MAX ver.7.5でのポイント付与についてなのですが、
を発送処理完了後などにポイント付与する事は可能なことでしょうか?
宜しくお願い致します。
No.278652017/12/22(Fri) 17:44:21 Res


Re: Cart MAX ver.7.5でのポイント付与について 投稿者: えふ
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;
と追加
以上ですがテストしないので動かないかもしれません。
No.278662017/12/24(Sun) 22:57:52 Res


Re^2: Cart MAX ver.7.5でのポイント付与について 投稿者: うめ
ありがとうございます。
試してみます。

万が一の際は、有料で改造ご依頼致します。
No.278672017/12/25(Mon) 12:30:07 Res