▼スレッド
│
└◇289:Re[4]:便乗質問です。日記でできません。 [dan] 02/06 21:12

　└◇290:Re[5]:便乗質問です。日記でできません。 [moon（管] 02/07 <

非常にお早い回答ありがとうございます。
疑問点は全て解決し、問題なく動作しております。
大変大変感謝しております。

何度も申し訳ありませんが、もうひとつだけ質問させてください。

携帯表示だけで良いのですが、
『ほかの記事を読む』をクリックした時に、年、月表示だけにさせていたです。
イベントお知らせとして使用予定なのですが、月ごとの検索を行いたいと思っております。
その月の予定イベントが全て表示するようにしたいです。

大変お忙しい中、恐縮ですが何卒よろしくお願いいたします。

> 携帯表示だけで良いのですが、
> 『ほかの記事を読む』をクリックした時に、年、月表示だけにさせていたです。
> イベントお知らせとして使用予定なのですが、月ごとの検索を行いたいと思っております。
> その月の予定イベントが全て表示するようにしたいです。


kei.pl
866行目あたり

　　　　($mday1,$mday2) = split(//,$mday);
　　　　print qq|<select name="day1">\n|;
　　　　for (0..3) {
　　　　　　　　if ($mday1 == $_) {
　　　　　　　　　　　　print qq|<option value="$_" selected>$_\n|;
　　　　　　　　} else {
　　　　　　　　　　　　print qq|<option value="$_">$_\n|;
　　　　　　　　}
　　　　}
　　　　print qq|</select>\n|;
　　　　print qq|<select name="day2">\n|;
　　　　for (0..9) {
　　　　　　　　if ($mday2 == $_) {
　　　　　　　　　　　　print qq|<option value="$_" selected>$_\n|;
　　　　　　　　} else {
　　　　　　　　　　　　print qq|<option value="$_">$_\n|;
　　　　　　　　}
　　　　}
　　　　print qq|</select>日<br>\n|;
　　　　print qq|または\n|;
　　　　print qq|<select name="day3">\n|;
　　　　print qq|<option value="">\n|;
　　　　print qq|<option value="a">上旬\n|;
　　　　print qq|<option value="b">中旬\n|;
　　　　print qq|<option value="c">下旬\n|;
　　　　print qq|</select>\n|;

を削除。
同じように953行目辺りの同じ記述を削除。

nik.cgi 115行目あたり
　　　　elsif ($mode == 2) {　　　　# ほかの記事選択ＦＯＲＭ
　　　　　　　　if ($FORM{'day3'}) { &logvw_w3; }
　　　　}
これを↓にかえる
　　　　elsif ($mode == 2) {　　　　# ほかの記事選択ＦＯＲＭ
　　　　　　　　&logvw_w3;
　　　　}


で、またkei.pl
483行目辺りの
sub logvw_c3 {
のサブルーチン内。


　　　　open (IN,$log_file_c);
　　　　@line = <IN>;
　　　　close (IN);

　　　　foreach $line (@line) {
　　　　　　　　(@_) = split(/\t/,$line);

　　　　　　　　if ($in{'day3'} eq "a") {

　　　　　　　　　　　　for (1..10) {
　　　　　　　　　　　　　　　　$_ = sprintf("%02d", $_);
　　　　　　　　　　　　　　　　$chh = "$in{'year'}$in{'mon'}$_";
　　　　　　　　　　　　　　　　if ($_[0] =~ /^$chh/) {
　　　　　　　　　　　　　　　　　　　　push(@datas,$line);
　　　　　　　　　　　　　　　　}
　　　　　　　　　　　　}

　　　　　　　　} elsif ($in{'day3'} eq "b") {

　　　　　　　　　　　　for (11..20) {
　　　　　　　　　　　　　　　　$chh = "$in{'year'}$in{'mon'}$_";
　　　　　　　　　　　　　　　　if ($_[0] =~ /^$chh/) {
　　　　　　　　　　　　　　　　　　　　push(@datas,$line);
　　　　　　　　　　　　　　　　}
　　　　　　　　　　　　}

　　　　　　　　} elsif ($in{'day3'} eq "c") {

　　　　　　　　　　　　for (21..32) {
　　　　　　　　　　　　　　　　$chh = "$in{'year'}$in{'mon'}$_";
　　　　　　　　　　　　　　　　if ($_[0] =~ /^$chh/) {
　　　　　　　　　　　　　　　　　　　　push(@datas,$line);
　　　　　　　　　　　　　　　　}
　　　　　　　　　　　　}

　　　　　　　　} else {

　　　　　　　　　　　　$chh = "$in{'year'}$in{'mon'}$in{'day1'}$in{'day2'}";
　　　　　　　　　　　　if ($_[0] =~ /^$chh/) {
　　　　　　　　　　　　　　　　push(@datas,$line);
　　　　　　　　　　　　}

　　　　　　　　}
　　　　}

これを以下に変更

　　　　open (IN,$log_file_c);
　　　　@datas = <IN>;
　　　　close (IN);

同じように
sub logvw_w3 {
の中のものを変更。

でできそうな感じです。

案の定テストをしていないので、動かなかったら再度質問してください。