--- okuchuu/piclist.ja.cgi	2002/08/27 08:49:22	1.2
+++ okuchuu/piclist.ja.cgi	2003/08/31 09:26:50	1.3
@@ -20,15 +20,16 @@
 
 =cut
 
-use Suika::CGI;
+#use Suika::CGI;
 unless ($main::ENV{PATH_TRANSLATED}) {
-  Suika::CGI::Error::die('open');
+  die;
+  #Suika::CGI::Error::die('open');
 }
 
 my $dir = $main::ENV{PATH_TRANSLATED};
 $dir =~ s#/LIST$##;
 
-opendir DIR, $dir or Suika::CGI::Error::die('open', $dir);
+opendir DIR, $dir or die; #Suika::CGI::Error::die('open', $dir);
   my @files = readdir(DIR);
 close DIR;
 
@@ -39,7 +40,7 @@
   } else {undef $_}
 }
 
-my $title = '写真一覧';
+my $title = '画像一覧';
 
 if (-e $dir.'/-TITLE') {
   open TITLE, $dir.'/-TITLE';