From 6bf4b8f3a4e76576cb5cae41f7fc6c8a0572e1c2 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sat, 18 Oct 2003 06:50:29 +0000
Subject: define log_file_*_charset and modify log module to use it.

---
 fml/lib/FML/Command/Admin/log.pm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'fml/lib/FML/Command/Admin')

diff --git a/fml/lib/FML/Command/Admin/log.pm b/fml/lib/FML/Command/Admin/log.pm
index c250fafd..89580351 100644
--- a/fml/lib/FML/Command/Admin/log.pm
+++ b/fml/lib/FML/Command/Admin/log.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: log.pm,v 1.19 2003/10/07 08:58:06 fukachan Exp $
+# $FML: log.pm,v 1.20 2003/10/15 08:16:24 fukachan Exp $
 #
 
 package FML::Command::Admin::log;
@@ -105,9 +105,7 @@ sub _show_log
     my $linecount    = 0;
     my $maxline      = 0;
     my $curproc      = $self->{ _curproc };
-    my $charset      = ($is_cgi ?
-			$curproc->get_charset("cgi") :
-			$curproc->language_default() );
+    my $charset      = $curproc->get_charset($is_cgi ? "cgi" : "log_file");
 
     use Mail::Message::Encode;
     my $obj = new Mail::Message::Encode;
-- 
cgit v1.2.1