|
||||||||||
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}; } と追加してください。 |