#!/usr/bin/perl -- use strict; require "../../cgi-bin/book/common.pl"; # 現在日時取得 my ($sec, $min, $hour, $day, $mon, $year) = localtime(); $year += 1900; $mon += 1; # おはなし会データ取得 (今月) my @hashlist1 = getTalkEventInfo($year, $mon); my @hashlist2 = getTalkEventInfo($year + int($mon / 12), ($mon % 12) + 1); # カレンダー表作成 my $bodyleft = getCalendarTable($year, $mon, @hashlist1); # 今月 my $bodyright = getCalendarTable($year + int($mon / 12), ($mon % 12) + 1, @hashlist2); # 来月 # ポップアップ作成 my $popup = ""; $popup .= "
\n"; if ($ENV{"HTTP_USER_AGENT"} =~ /MSIE/) # ユーザーエージェント確認 (Internet Explorer) { $popup .= "\n"; $popup .= ""; $popup .= ""; $popup .= ""; $popup .= ""; $popup .= ""; $popup .= ""; $popup .= "\n"; } else { $popup .= "
\n"; $popup .= ""; $popup .= ""; $popup .= ""; $popup .= ""; $popup .= ""; $popup .= ""; $popup .= "\n"; } $popup .= ""; $popup .= ""; $popup .= ""; $popup .= ""; $popup .= "\n"; $popup .= ""; $popup .= ""; $popup .= ""; $popup .= ""; $popup .= ""; $popup .= ""; $popup .= "\n"; $popup .= ""; $popup .= ""; $popup .= ""; $popup .= ""; $popup .= ""; $popup .= ""; $popup .= "\n"; $popup .= "
\n"; $popup .= "
\n"; sub getCalendarTable { my ($year, $mon, @hashlist) = @_; # 月末日 my @days = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); # うるう年判定 if ((($year % 4 == 0) && ($year % 100 != 0)) || ($year % 400 == 0)) { $days[1] = 29; } # 月初め曜日取得 my $start = wday($year, $mon, 1); # 月末日取得 my $last = $days[$mon - 1]; # カレンダー表作成 my $cal = ""; my $index = 0; $cal .= "\t\t\t\t\t\t\n"; $cal .= "\t\t\t\t\t\t\n"; $cal .= "\t\t\t\t\t\t\t\n"; $cal .= "\t\t\t\t\t\t\t\t\n"; $cal .= "\t\t\t\t\t\t\t\t\n"; $cal .= "\t\t\t\t\t\t\t\t\n"; $cal .= "\t\t\t\t\t\t\t\t\n"; $cal .= "\t\t\t\t\t\t\t\t\n"; $cal .= "\t\t\t\t\t\t\t\t\n"; $cal .= "\t\t\t\t\t\t\t\t\n"; $cal .= "\t\t\t\t\t\t\t\n"; my $val = ""; for (my $i = 0; $i < 42; $i++) { # 表示文字列作成 my $style = ""; if (($i < $start) || ($i >= $start + $last)) { $val = "・"; } else { $val = $i - $start + 1; my $hash; my $imgfname = ""; my $popup_text = ""; foreach $hash (@hashlist) { if ($hash->{'day'} == $val) { if ($imgfname eq "") { if ($hash->{'division'} == 1) # おはなし会 (あかちゃん向け) { $imgfname = "./img/ca-aka.gif"; } elsif ($hash->{'division'} == 2) # おはなし会 (小さい子向け) { $imgfname = "./img/ca-o-t.gif"; } elsif ($hash->{'division'} == 3) # おはなし会 (大きい子向け) { $imgfname = "./img/ca-o-o.gif"; } elsif ($hash->{'division'} == 10) # 子どもえいが会 { $imgfname = "./img/ca-eiga.gif"; } elsif ($hash->{'division'} == 20) # その他のイベント { $imgfname = "./img/ca-ibent.gif"; } } if ($popup_text ne "") { $popup_text .= "
"; } $popup_text .= "・" . $hash->{'contents'}; } } if ($imgfname ne "") { $style = " style=\"background-image: url($imgfname); background-repeat: no-repeat; background-position: center;\""; $val = "$val"; } } if ($i % 7 == 0) { $cal .= "\t\t\t\t\t\t\t\n"; } # 曜日判定 if ($i % 7 == 0) # 日曜日 { $cal .= "\t\t\t\t\t\t\t\t\n"; } elsif ($i % 7 == 2) # 火曜日 { $cal .= "\t\t\t\t\t\t\t\t\n"; } elsif ($i % 7 == 6) # 土曜日 { $cal .= "\t\t\t\t\t\t\t\t\n"; } else { $cal .= "\t\t\t\t\t\t\t\t$val\n"; } if ($i % 7 == 6) { $cal .= "\t\t\t\t\t\t\t\n"; } } $cal .= "\t\t\t\t\t\t
$mon月
日月火水木金土
$val$val$val
\n"; return $cal; } sub wday { my ($year, $mon, $day)=@_; if ($mon < 3) { $mon += 12; $year--; } return ($year + int($year / 4) - int($year / 100) + int($year / 400) + int((13 * $mon + 8) / 5) + $day) % 7; } # HTML出力 ($cal, $bodyleft, $bodyrightが埋め込まれている) print< 長崎市立図書館 こどもとしょかん

こどもとしょかん

こどもとしょかんイベントカレンダー

おはなし会

  • あかちゃん向け
  • 小さい子向け
  • 大きい子向け
 
  • こどもえいが会
  • その他イベント
$bodyleft
$bodyright
 
 
$popup HTML_EOF