▼スレッド
│
└◇1886:Re[7]:【続】カードコレクションのカテゴリわけとページ切り替え [moon] 10/01 19:03

　└◇1887:Re[8]:【続】カードコレクションのカテゴリわけとページ切り替え [YOUME] 10/02 14:59
　　└◇1888:Re[9]:【続】カードコレクションのカテゴリわけとページ切り替え [moon] 10/03 10:34
　　　└◇1889:Re[10]:【続】カードコレクションのカテゴリわけとページ切り替え [YOUME] 10/03 19:32
　　　　└◇1890:Re[11]:【続】カードコレクションのカテゴリわけとページ切り替え [moon] 10/03 21:24
　　　　　└◇1891:Re[12]:【続】カードコレクションのカテゴリわけとページ切り替え [YOUME] 10/04 10:32
　　　　　　└◇1892:Re[13]:【続】カードコレクションのカテゴリわけとページ切り替え [moon] 10/04 14:13
　　　　　　　└◇1893:Re[14]:【続】カードコレクションのカテゴリわけとページ切り替え [moon] 10/04 20:35<-last

> &input('hidden', 'category', '$category');
> &input('hidden', 'id', '$id');
> &input('hidden', 'ps', '$ps');
略...
> ページ切り替えを行うと「ID $idは存在しません」と出てしまって…私の理解が間違っていると思いつつ、何処がいけないのか分からず…

メッセージ通りIDが「$id」となっています。
「'」で囲むと変数が展開されないので、囲まないか「"」で囲むなどで対処してください。
$id以外の変数も同様です。

> print qq|</select>\n|;
> &OKbuttoninform;
> &form('end');

修正が必要というわけではないですが、前回の返信でOKbuttoninformに触れなかったのはボタンの表示テキストが「みる」となっていたからです。

> sub get_card_category_path{

カテゴリ名を取得する処理なので「〜_path」というサブルーチン名は混乱のもとになるかと思います。

> # Sub Collection #内の変更も必要になるのかなと思いつつ、どこを変更すれいいのか分からず…

「$card_name_hash{カード名}->{'category'}」を置き換える必要があります。

ご教授ありがとうございます!!!
ついに…無事に…ページ切り替えができるようになりました！
本当に本当に感謝です!!!


ただサブルーチン分けの方だけがいまだに上手くいかず；

その後、以下のように修正して

# sub get_card_name #
sub get_card_name{
my $name = shift;
my $category_name = exists($card_name_hash{$name}) && exists($card_name_hash{$name}->{'category'}) ? $card_name_hash{$name}->{'category'} : 'なし';
return $category_name;
}

> 「$card_name_hash{カード名}->{'category'}」を置き換える必要があります。

$card_name_hash{$item}->{'category'} eq $Fm{'category'};
を
$card_name_hash{$category_name}->{'category'} eq $Fm{'category'};
みたいにして試したりもしたのですが…

%card_name_hash = (
を
my %card_name_hash = (
にしてしまうと表示されず…

どうしたものか…と…すみません…

> sub get_card_name{

サブルーチン名は処理内容を表しているほうが良いと思います。
今回はカードのカテゴリ名を取得する処理なので、get_card_categoryやget_card_category_name等が適切だと思います。

> $card_name_hash{$item}->{'category'} eq $Fm{'category'};
> を
> $card_name_hash{$category_name}->{'category'} eq $Fm{'category'};
> みたいにして試したりもしたのですが…

これだとサブルーチンを使用していないです。
単純に「&get_card_name($item) eq $Fm{'category'};」とするだけです。

> > sub get_card_name{

get_card_categoryに修正して、

> > $card_name_hash{$item}->{'category'} eq $Fm{'category'};
> > を
> 単純に「&get_card_name($item) eq $Fm{'category'};」とするだけです。

&get_card_name($item) eq $Fm{'category'};としたのですが、myを入れた状態だとコレクションしたカードが表示されなくなってしまい…

他に調整するべき場所があったりしますでしょうか？
何度もお手数をおかけします…

> get_card_categoryに修正して、
略...
> &get_card_name($item) eq $Fm{'category'};としたのですが、myを入れた状態だとコレクションしたカードが表示されなくなってしまい…

サブルーチン名を変更したのでしたら呼び出し側も変更してください。

おはようございます！

> サブルーチン名を変更したのでしたら呼び出し側も変更してください。

ギャー！すみません…
&get_card_category($item) eq $Fm{'category'};
に変更してみたのですが、症状が変わらず…

if(@fitems){以下の処理が表示されていない感じなのですが、もしかして他にも修正すべき点があったり…？

何度も本当に申し訳ないです…

> &get_card_category($item) eq $Fm{'category'};
> に変更してみたのですが、症状が変わらず…
>
> if(@fitems){以下の処理が表示されていない感じなのですが、もしかして他にも修正すべき点があったり…？

途中までは表示できているようなので500エラーではないですが、No.1804で触れているやり方でエラーメッセージを表示させて原因を特定してみてください。（3番目のCGI::Carpを使ったやり方だけで事足りると思います。）
http://www11.big.or.jp/~hazymoon/ownerbbs/treebbs.cgi?log=1804

> > if(@fitems){以下の処理が表示されていない感じなのですが、もしかして他にも修正すべき点があったり…？
>
> 途中までは表示できているようなので500エラーではないですが、No.1804で触れているやり方でエラーメッセージを表示させて原因を特定してみてください。（3番目のCGI::Carpを使ったやり方だけで事足りると思います。）

前回までの投稿でHTMLのhidden要素でどこで定義しているのかが不明な$categoryを使用していたのでそこが原因の可能性もあります。
固定値になっている旨は返信済みなので修正されているかもしれませんが念のため確認しておいたほうが良いです。