| ユーザーが気付いてしまっているので、取り急ぎソースを触る失礼をお許し下さい。
サイト一覧で、仮登録より後に登録したサイトへのURLの引数「u」の値が小さいことに気付きました。
allの中では仮登録を除外した配列で処理して「u」の値を求めている。 accessの中では仮登録も含めた配列に対して「u」番目のサイトのURLを参照している。 これが原因だと思われましたので下記の様に変更してみました。
●352行目を下記の様に変更してみました。 if($url ne ""){$d_may="<a href=\"$cgi_f?mode=acc&i=$namber&u=$_&sort=$sort&no=$no\" target=\"$TGT\">$d_may</a>";} ↓ if($url ne ""){$TmpU=$namber-1; $d_may="<a href=\"$cgi_f?mode=acc&i=$namber&u=$TmpU&sort=$sort&no=$no\" target=\"$TGT\">$d_may</a>";}
perlとしてこれがスマートなコーディングなのか、私にはまったく分かりません。 取りあえず解消したように思います。 私はかなり機能を限定して使っていますので他への影響までは判断していません。
|