<< 掲示板に戻る



投稿者: えふ
タイトル: Re: Cart Max 7.5クーポン利用時
日付: 2019/8/30(Fri) 20:19:09
E-mail:
URL:
cgi/lib/cart/cart.plの
555行の
&Cart(\@new,$_sessid,$FO_ref,$DUMMY_ref);
の上に
&CouponDel($DUMMY_ref);

と追加して

574行の
&Cart(\@new,$_sessid,$FO_ref,$DUMMY_ref);
の上に
&CouponDel($DUMMY_ref);

649行の
&Cart(\@new,$_sessid,$FO_ref,$DUMMY_ref);

の上に
&CouponDel($DUMMY_ref);

と追加して

655行の
sub GetBack{
の上に


sub CouponDel{

$DUMMY_ref=$_[0];

$sessid=${$DUMMY_ref}{'coupon'};
&Func::filelock($CF::lockfile_coupon);
unless(open(FILE, $CF::cninsholog)){
     &main::error("cninshologが開けません。ファイル名を確認してください。");
}
@new=();
while(<FILE>){
     $flag=0;
     ($id)=split(/,/,$_);
     if($id eq $sessid){
          $flag=1;
     }
     if(!$flag){
          push @new,$_;
     }
}
close FILE;

unless(open(FILE, ">$CF::cninsholog")){
     &main::error("cninshologが開けません。ファイル名を確認してください。");
}
print FILE @new;
close FILE;

&Func::unlock;


}

と追加してください。





※この記事に返信を書く (元記事は必要な部分のみ残してください。)
おなまえ:
タイトル:
メール:
ホーム:     
メッセージ:
削除パス: クッキー: