--- okuchuu/blue-oceans/katsudou/current.html.cgi	2002/06/05 13:47:07	1.3
+++ okuchuu/blue-oceans/katsudou/current.html.cgi	2003/08/17 06:03:16	1.4
@@ -1,6 +1,8 @@
 #!/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 = sprintf('%02d', $m);
@@ -12,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;