私設SoS2オーナー応援BBS

新規発言一覧最新記事過去一覧検索ダウンロードページHOME

No.1874  Re[13]:カードコレクションでのページ切り替え
発言者: YOUME
発言日: 2015 09/27 19:25
ご解説ありがとうございます!

早速、以下のようにしてみたのですが、これであっていますでしょうか…?
(Sub Collection内の全てになります)

# Sub Collection #
sub collection {
@rcdlines = &get_user("$Fm{'id'}");
@collines = &get_coll("$Fm{'id'}");
&header;
&splititem('F');

print qq|<center><b>+$nmのコレクション+</b><br>\n|;
print qq|<TABLE border="0" cellspacing="0" cellpadding="0"><TBODY><TR><TD valign="bottom"><FONT color="#897a76" size="1"><IMG src="img/F2_001.gif" width="9" height="9"></FONT></TD><TD valign="bottom"><FONT color="#897a76" size="1"><IMG src="img/F2_002.gif" width="130" height="9"><IMG src="img/e-icon_004.gif" width="16" height="16"><IMG src="img/F2_002.gif" width="130" height="9"></FONT></TD><TD valign="bottom"><FONT color="#897a76" size="1"><IMG src="img/F2_003.gif" width="9" height="9"></FONT></TD></TR><TR><TD background="img/F2_008.gif" align="middle"><FONT size="1"><IMG src="img/kuroko.gif" width="3" height="3"></FONT></TD><TD bgcolor="#cac4b0" width="276">|;
print qq|<table>|;
require 'cardimg.pl'; # ループ中で毎回requireするのは無駄なので場所はforeach以前が良い

#カテゴリ
    @fitems = grep {
    ($item,$sts) = split(/△/, $_);# カード名とステータスに分割
    $card_name_hash{$item}->{'category'} eq $Fm{'category'};
    } @fitems;
#カテゴリ

#ループ処理
if(@fitems){
    $start = $start < 0 ? 0 : $start > $#fitems ? $#fitems : $start; # 開始位置を調整
    $end = $start + 3; # 終了位置、1ページ最大20件の場合
    $end = $end > $#fitems ? $#fitems : $end; # 終了位置を調整

    foreach $items (@fitems[$start .. $end]){ # $startから$endの範囲をループさせる
#ループ処理

($item,$sts) = split(/△/,$items);
$idd = int(substr($sts,11,3));
$pc = int(substr($sts,0,8));
if ($sts =~ /C0/) {$cde1 = "<font color=red>火</font>";}
if ($sts =~ /C1/) {$cde1 = "<font color=blue>水</font>";}
if ($sts =~ /C2/) {$cde1 = "<font color=yellow>雷</font>";}
if ($sts =~ /C3/) {$cde1 = "<font color=blown>土</font>";}
if ($sts =~ /C4/) {$cde1 = "<font color=green>風</font>";}
if ($sts =~ /C5/) {$cde1 = "<font color=gray>天</font>";}
if ($sts =~ /C6/) {$cde1 = "<font color=#8C008C>冥</font>";}
if ($sts =~ /C7/) {$cde1 = "<font color=powderblue>空</font>";}
#カード画像表示
print qq|<tr><td><img src="|, &get_card_image_path($item), qq|"><br><b>【$cde1】$item</b>\n|;
print qq|<IMG src=story/img/lin.gif border=0></td></tr>\n|;
#カード画像表示
}
}
print qq|<TR><TD>集めた数:<b>$fco</b>種</TD></TR>|;
print qq|</table>|;
print qq|</TD><TD background="img/F2_004.gif" align="middle"><FONT size="1"><IMG src="img/kuroko.gif" width="3" height="3"></FONT></TD></TR><TR><TD><FONT color="#897a76" size="1"><IMG src="img/F2_007.gif" width="9" height="9"></FONT></TD><TD><FONT color="#897a76" size="1"><IMG src="img/F2_006.gif" width="276" height="9"></FONT></TD><TD><FONT color="#897a76" size="1"><IMG src="img/F2_005.gif" width="9" height="9"></FONT></TD></TR></TBODY></TABLE></center>\n|;
}

ただこれだと、どのカテゴリを選択しても、カードが1枚も表示されず…
他にも何か追記等々しなくてはいけないのかなと思いつつも解決策が分からず…

何度も聞きにきてしまって申し訳ないです…

▼関連発言

1861:カードコレクションでのページ切り替え [YOUME] 08/17 18:11
 └1862:Re:カードコレクションでのページ切り替え [moon] 08/17 20:47
  └1863:Re[2]:カードコレクションでのページ切り替え [YOUME] 08/18 09:41
   └1864:Re[3]:カードコレクションでのページ切り替え [moon] 08/18 20:08
    └1865:Re[4]:カードコレクションでのページ切り替え.. [YOUME] 08/19 08:32
     └1866:Re[5]:カードコレクションでのページ切り替.. [YOUME] 08/26 10:57
      └1867:Re[6]:カードコレクションでのページ切り.. [YOUME] 08/26 11:57
       └1868:Re[7]:カードコレクションでのページ切.. [moon] 08/26 20:32
        └1869:Re[8]:カードコレクションでのページ.. [moon] 08/26 21:13
         └1870:Re[9]:カードコレクションでのペー.. [YOUME] 09/01 10:30
          └1871:Re[10]:カードコレクションでの... [moon] 09/01 13:13
           └1872:Re[11]:カードコレクションで... [YOUME] 09/27 08:15
            └1873:Re[12]:カードコレクション... [moon] 09/27 09:34
             └1874:Re[13]:カードコレクショ... [YOUME] 09/27 19:25
              └1875:Re[14]:カードコレクシ... [moon] 09/27 21:11<-last

  返信フォーム [引用]
名 前 保存
題 名
発 言
PASSWORD
投稿確認必ずチェックを入れてください。こちらにはチェックを入れないでください。
書き込む
◇題名は、短くわかりやすく書いてください。
◇過去に同じ内容が投稿されていないか検索してから書き込んで下さい。
◇管理人の判断により相応しくない投稿は削除します。

Pass 保存


CGIROOM