cgi/lib/cart/member.plの
835行の
foreach(@{$ref}){
の上に
unless(open(FILE,$CF::c_log)){
&main::error("c_logが開けません。ファイルを確認してください。");
}
%PR=();
while($l=<FILE>){
($page_id)=split(/,/,$l);
$file='./log/goods/'.$page_id.'.log';
unless(open(GFILE,$file)){
&main::error("fileが開けません。");
}
while($ln=<GFILE>){
($no,$c_id,$skin2,$g_name,$price)=split(/,/,$ln);
if(!$PR{$no}){
$PR{$no}=$price;
}
}
close GFILE;
}
close FILE;
と記入して
857行の
$nameline.="$name $opline_d<br>";
の下に
if($PR{$num}){
$price=$PR{$num};
}
と追加してください。
|