|
||||||||||
| cgi/lib/admin/set.plの 17行あたりの $dmpl='./lib/deliver/dm.pl'; の下に $qppl='./lib/deliver/qp.pl'; $qp2pl='./lib/deliver/qp2.pl'; と追加 cgi/lib/deliver/の teikeigai.plをコピーして qp.pl qp2.plを同じフォルダに作成する 40行目あたりを @deliarray=( 'ゆうパック', '佐川急便', 'クロネコヤマト', 'はこBOON', '普通郵便', '定形外郵便', 'ゆうメール', 'レターパックプラス', 'レターパックライト', 'スマートレター', 'クイックポスト（簡易封筒可）', 'クイックポスト（箱使用）', ); のように変更 53行あたりを @deliarray_ki=( 'yu', 'sa', 'kuro', 'hako', 'fu', 'tei', 'ym', 'le', 'dm', 'cl', 'qp', 'qp2' ); のように変更 2351行あたりの if($ac eq "fu"|| $ac eq "tei" || $ac eq "ym"){ を if($ac eq "fu"|| $ac eq "tei" || $ac eq "ym" || $ac eq "qp" || $ac eq "qp2"){ と変更 3932行の elsif($act eq "fu"){ if(!-e $fupl){ &main::error("$fuplがありません。"); } require $fupl; } の下に elsif($act eq "qp"){ if(!-e $qppl){ &main::error("$qpplがありません。"); } require $qppl; } elsif($act eq "qp2"){ if(!-e $qp2pl){ &main::error("$qp2plがありません。"); } require $qp2pl; } と追加 4006行 elsif($act eq "ym"){ $file=$ympl; } の下に elsif($act eq "qp"){ $file=$qppl; } elsif($act eq "qp2"){ $file=$qp2pl; } と追加 これで管理画面のカート設定で配送方法と送料が登録できるようになりますので登録して cgi/lib/cart/cart.plの 1396行あたりに if($weight_all <= 1000){ @CF::deliver=('スマートレター','レターパックプラス','レターパックライト','ゆうパック','クイックポスト（簡易封筒可）','クイックポスト（箱使用）'); } elsif($weight_all > 1000 && $weight_all <= 2000){ @CF::deliver=('レターパックプラス','レターパックライト','ゆうパック','クイックポスト（簡易封筒可）','クイックポスト（箱使用）'); } else{ @CF::deliver=('ゆうパック'); } のように追加 cgi/lib/cart/functions.plの 294行あたりの elsif($deli eq 'クリックポスト'){ unless(-e 'lib/deliver/clickpost.pl'){ &main::error("lib/deliver/clickpost.plがありません。"); } require 'lib/deliver/clickpost.pl'; $p=&Cal_teigaku($a_total); } などの下に elsif($deli eq 'クイックポスト（簡易封筒可）'){ unless(-e 'lib/deliver/qp.pl'){ &main::error("lib/deliver/qp.plがありません。"); } require 'lib/deliver/qp.pl'; $p=&Cal_tei($weight_all); } elsif($deli eq 'クイックポスト（箱使用）'){ unless(-e 'lib/deliver/qp2.pl'){ &main::error("lib/deliver/qp2.plがありません。"); } require 'lib/deliver/qp2.pl'; $p=&Cal_tei($weight_all); if($a_total < 1800){ $p+=85; } } と追加 以上です。 |