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;
}
}
と追加
以上です。
|