From 787d00dd4eaf1d201033e7210b24965f3d1fc4b1 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sat, 6 Aug 2005 07:14:47 +0000
Subject: switched to use Mail::Message::Utils::get_time_from_header.

---
 fml/lib/Mail/Message/ToHTML.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'fml/lib/Mail/Message/ToHTML.pm')

diff --git a/fml/lib/Mail/Message/ToHTML.pm b/fml/lib/Mail/Message/ToHTML.pm
index 7f49d650..69a414ca 100644
--- a/fml/lib/Mail/Message/ToHTML.pm
+++ b/fml/lib/Mail/Message/ToHTML.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: ToHTML.pm,v 1.73 2005/05/26 10:23:00 fukachan Exp $
+# $FML: ToHTML.pm,v 1.74 2005/05/30 00:02:30 fukachan Exp $
 #
 
 package Mail::Message::ToHTML;
@@ -17,7 +17,7 @@ my $debug = 0;
 my $URL   =
     "<A HREF=\"http://www.fml.org/software/\">Mail::Message::ToHTML</A>";
 
-my $version = q$FML: ToHTML.pm,v 1.73 2005/05/26 10:23:00 fukachan Exp $;
+my $version = q$FML: ToHTML.pm,v 1.74 2005/05/30 00:02:30 fukachan Exp $;
 my $versionid = 0;
 if ($version =~ /,v\s+([\d\.]+)\s+/) {
     $versionid = "$1";
@@ -397,7 +397,8 @@ sub _html_file_subdir_name
 
     if ($subdir_style eq 'yyyymm') {
 	my $hdr = $self->{ _current_hdr  };
-	$subdir = $ndb->get_time_from_header($hdr, 'yyyymm');
+	use Mail::Message::Utils;
+	$subdir = Mail::Message::Utils::get_time_from_header($hdr, 'yyyymm');
 
 	use File::Spec;
 	my $xsubdir = File::Spec->catfile($html_base_dir, $subdir);
-- 
cgit v1.2.1