> 携帯表示だけで良いのですが、
> 『ほかの記事を読む』をクリックした時に、年、月表示だけにさせていたです。
> イベントお知らせとして使用予定なのですが、月ごとの検索を行いたいと思っております。
> その月の予定イベントが全て表示するようにしたいです。
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 {
の中のものを変更。
でできそうな感じです。
案の定テストをしていないので、動かなかったら再度質問してください。
|