diff options
| author | fukachan <fukachan> | 2003-06-03 13:43:49 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-06-03 13:43:49 +0000 |
| commit | d0bdcd686759f45d251b9670c57220f5b0e7fe0e (patch) | |
| tree | 062a69aba893d59ecaeed6f37d7f9de2f27ddb19 /fml/lib/Mail/Message/ToHTML.pm | |
| parent | 552d039fc2ed5e345c22af644c713336e4b5ea34 (diff) | |
| download | fml8-d0bdcd686759f45d251b9670c57220f5b0e7fe0e.tar.gz fml8-d0bdcd686759f45d251b9670c57220f5b0e7fe0e.tar.bz2 fml8-d0bdcd686759f45d251b9670c57220f5b0e7fe0e.zip | |
id_max -> max_id
Diffstat (limited to 'fml/lib/Mail/Message/ToHTML.pm')
| -rw-r--r-- | fml/lib/Mail/Message/ToHTML.pm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/fml/lib/Mail/Message/ToHTML.pm b/fml/lib/Mail/Message/ToHTML.pm index 305def1e..22b74104 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.41.2.2 2003/06/02 04:57:18 fukachan Exp $ +# $FML: ToHTML.pm,v 1.41.2.3 2003/06/02 23:59:57 fukachan Exp $ # package Mail::Message::ToHTML; @@ -17,7 +17,7 @@ my $debug = 1; my $URL = "<A HREF=\"http://www.fml.org/software/\">Mail::Message::ToHTML</A>"; -my $version = q$FML: ToHTML.pm,v 1.41.2.2 2003/06/02 04:57:18 fukachan Exp $; +my $version = q$FML: ToHTML.pm,v 1.41.2.3 2003/06/02 23:59:57 fukachan Exp $; if ($version =~ /,v\s+([\d\.]+)\s+/) { $version = "$URL $1"; } @@ -1487,16 +1487,16 @@ sub update_id_index $self->_db_open(); my $db = $self->{ _db }; - my $id_max = $db->{ _info }->{ id_max }; + my $max_id = $db->{ _info }->{ max_id }; $self->_print_ul($wh, $db, $code); if ($order eq 'reverse') { - for my $id ( reverse (1 .. $id_max )) { + for my $id ( reverse (1 .. $max_id )) { $self->_print_li_filename($wh, $db, $id, $code); } } else { - for my $id ( 1 .. $id_max ) { + for my $id ( 1 .. $max_id ) { $self->_print_li_filename($wh, $db, $id, $code); } } @@ -1675,7 +1675,7 @@ sub _update_id_monthly_index $self->_db_open(); my $db = $self->{ _db }; - my $id_max = $db->{ _info }->{ id_max }; + my $max_id = $db->{ _info }->{ max_id }; # oops, this list may be " a b c d e " string, nuke \s* to avoid warning. $db->{ _monthly_idlist }->{ $this_month } =~ s/^\s*//; @@ -1736,13 +1736,13 @@ sub update_thread_index $self->_db_open(); my $db = $self->{ _db }; - my $id_max = $db->{ _info }->{ id_max }; + my $max_id = $db->{ _info }->{ max_id }; # initialize negagtive cache to ensure uniquness delete $self->{ _uniq }; $self->_print_ul($wh, $db, $code); - for my $id ( 1 .. $id_max ) { + for my $id ( 1 .. $max_id ) { # head of the thread (not referenced yet) unless (defined $self->{ _uniq }->{ $id }) { $self->_print_thread($wh, $db, $id, $code); |