diff options
| author | fukachan <fukachan> | 2003-06-02 23:27:11 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-06-02 23:27:11 +0000 |
| commit | 39fa7b83fc044e239cf3c6c7e71c8fd2acac1ee6 (patch) | |
| tree | 59a9fb3edf83bb5946b736bfb96c609641c4c37c | |
| parent | 1191846675b9cdb6ee9c0715d40542a5b0bc3736 (diff) | |
| download | fml8-39fa7b83fc044e239cf3c6c7e71c8fd2acac1ee6.tar.gz fml8-39fa7b83fc044e239cf3c6c7e71c8fd2acac1ee6.tar.bz2 fml8-39fa7b83fc044e239cf3c6c7e71c8fd2acac1ee6.zip | |
monthly_to_key_list -> month_to_key_list
| -rw-r--r-- | fml/lib/Mail/Message/DB.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/fml/lib/Mail/Message/DB.pm b/fml/lib/Mail/Message/DB.pm index 892baf88..907fbb26 100644 --- a/fml/lib/Mail/Message/DB.pm +++ b/fml/lib/Mail/Message/DB.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: DB.pm,v 1.1.2.1 2003/06/01 12:28:56 fukachan Exp $ +# $FML: DB.pm,v 1.1.2.2 2003/06/02 00:03:32 fukachan Exp $ # package Mail::Message::DB; @@ -17,7 +17,7 @@ use lib qw(../../../../fml/lib ../../../../img/lib ); -my $version = q$FML: DB.pm,v 1.1.2.1 2003/06/01 12:28:56 fukachan Exp $; +my $version = q$FML: DB.pm,v 1.1.2.2 2003/06/02 00:03:32 fukachan Exp $; if ($version =~ /,v\s+([\d\.]+)\s+/) { $version = $1;} my $debug = 1; @@ -34,13 +34,14 @@ my (@table_list) = qw( ref_key_list next_key prev_key - monthly_to_key_list filename filepath subdir month + month_to_key_list + hint ); @@ -191,7 +192,7 @@ sub analyze } # HASH { YYYY/MM => (id1 id2 id3 ..) } - $self->_db_add_list_entry($db, 'monthly_to_key_list', $month, $id); + $self->_db_add_list_entry($db, 'month_to_key_list', $month, $id); $self->_analyze_thread($db, $msg, $hdr); |