From efbb0158aa901ff0b8f985ff0896c2944a08200f Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sun, 2 May 2004 00:04:43 +0000
Subject: remove language_default(). language_of_html_file() return
 $html_archive_default_charset.

---
 fml/lib/FML/Process/Utils.pm | 23 +++++++----------------
 1 file changed, 7 insertions(+), 16 deletions(-)

(limited to 'fml/lib')

diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm
index d55f6744..bad78e41 100644
--- a/fml/lib/FML/Process/Utils.pm
+++ b/fml/lib/FML/Process/Utils.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Utils.pm,v 1.116 2004/04/27 13:30:03 fukachan Exp $
+# $FML: Utils.pm,v 1.117 2004/04/28 04:07:09 fukachan Exp $
 #
 
 package FML::Process::Utils;
@@ -1622,23 +1622,11 @@ sub get_print_style
 }
 
 
-=head2 language_default()
-
 =head2 language_of_html_file()
 
-=cut
-
+return default language used in html files.
 
-# Descriptions: inform default language.
-#    Arguments: OBJ($curproc)
-# Side Effects: none
-# Return Value: STR
-sub language_default
-{
-    my ($curproc) = @_;
-
-    return 'euc-jp'; # default
-}
+=cut
 
 
 # Descriptions: language used in html files.
@@ -1648,7 +1636,10 @@ sub language_default
 sub language_of_html_file
 {
     my ($curproc) = @_;
-    $curproc->language_default();
+    my $config    = $curproc->config();
+    my $language  = $config->{ html_archive_default_charset } || 'us-ascii';   
+
+    return $language;
 }
 
 
-- 
cgit v1.2.1