--- okuchuu/blue-oceans/katsudou/current.html.cgi	2002/04/02 05:20:47	1.2
+++ okuchuu/blue-oceans/katsudou/current.html.cgi	2003/08/17 06:03:16	1.4
@@ -1,9 +1,10 @@
 #!/usr/bin/perl
 
-(undef, undef, undef, undef, $m, $y) = localtime;  $m++;
+#(undef, undef, undef, undef, $m, $y) = localtime;  $m++;
+my $m = 4;
+my $y = 2002;
 
 $y += 1900 if $y < 1000;
-$m++ if $m < 9;
 $m = sprintf('%02d', $m);
 
 my $myuri = 'http://'.$main::ENV{SERVER_NAME}.':'.$main::ENV{SERVER_PORT}.
@@ -13,12 +14,16 @@
 if ($main::ENV{QUERY_STRING} eq 'year') {
   $localpart = $y.'/';
 } elsif ($main::ENV{QUERY_STRING} eq 'theme') {
+  $y = 2001;
   $localpart = $y.'/theme';
 } elsif ($main::ENV{QUERY_STRING} eq 'taikai') {
+  $y = 2001;
   $localpart = $y.'/taikai';
 } elsif ($main::ENV{QUERY_STRING} eq 'part') {
-  $localpart = $y.'/part/';
+  $y = 2001;
+  $localpart = $y.'/part/latest';
 } elsif ($main::ENV{QUERY_STRING} eq 'newmember') {
+  $y = 2001;
   $localpart = $y.'/newmember';
 } else {
   $localpart = $y.'/'.$m;