<< 掲示板に戻る



投稿者: えふ
タイトル: Re^13: Cart MAX ver.7.5の[この内容で登録する]に...
日付: 2022/9/8(Thu) 14:19:06
E-mail:
URL:
cgi/lib/cart/functions.plの
14行の
@all=();
を削除して
9行目の
$file=$CF::tmpdir.$bango;
の下に
@all=();
if(!$bango){
     return \@all;
}

if(!-e $file){
     unless(open(TMP,">$file")){
          &main::error("ファイルが作成できません。");
     }
     close TMP;
}

と追加してくてみださい。
最終的に
4行目以降は
sub OpenData{
my($bango,$file,$idx,@all);
$bango=$_[0];

$checkflag=0;
$file=$CF::tmpdir.$bango;
@all=();
if(!$bango){
     return \@all;
}

if(!-e $file){
     unless(open(TMP,">$file")){
          &main::error("ファイルが作成できません。");
     }
     close TMP;
}

unless(open(TMP,$file)){
     &main::error("$fileが開けません。");
}
$idx=0;
while(<TMP>){
     chomp;
     $all[$idx++]=$_;
}
close TMP;
return \@all;
}
このようになります。



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