*** /cygdrive/e/HOME/src/hns-2.10-pl1/public_html/diary/index.cgi.in	Wed Feb 21 21:57:51 2001
--- /cygdrive/e/HOME/public_html/diary/index.cgi	Fri Apr  6 20:30:49 2001
***************
*** 1,4 ****
! #!%PERL_PATH%
  ################################################################
  # index.cgi
  #
--- 1,5 ----
! #!D:/tools/lang/perl/bin/perl.exe
! # -*- Mode:Perl; -*-
  ################################################################
  # index.cgi
  #
***************
*** 97,102 ****
--- 98,107 ----
          if (-f "$theme_static_ph") {
              $theme_ph = $theme_static_ph;
          }
+     }
+     my $theme_ext = "$HNS::System::Theme/theme-" . param('style') . ".ph";
+     if (-f "$theme_ext") {
+         $theme_ph = $theme_ext;
      }
      unless (-f "$theme_ph"){
  	die "no theme file : $theme_ph";