diff options
| author | fukachan <fukachan> | 2010-03-06 13:07:08 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2010-03-06 13:07:08 +0000 |
| commit | b71faf07b63f89aa2ea85e36b24c27d4319a687b (patch) | |
| tree | d54f01e59eb2d51608aa013464b1307bbab812c0 | |
| parent | 97138a83f1fc3e45748bf9333bfc080d66df0efa (diff) | |
| download | fml8-b71faf07b63f89aa2ea85e36b24c27d4319a687b.tar.gz fml8-b71faf07b63f89aa2ea85e36b24c27d4319a687b.tar.bz2 fml8-b71faf07b63f89aa2ea85e36b24c27d4319a687b.zip | |
hmm, seems incorrect that increment_id() in calling HTML-ify function
since already the article ID is incremated at _deliver_article_prep().
changed to use $article->id(); by fetching the current article ID.
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm index d35b24e3..b67d52f8 100644 --- a/fml/lib/FML/Process/Distribute.pm +++ b/fml/lib/FML/Process/Distribute.pm @@ -1,9 +1,10 @@ #-*- perl -*- # -# Copyright (C) 2000,2001,2002,2003,2004,2005,2006,2008 Ken'ichi Fukamachi +# Copyright (C) 2000,2001,2002,2003,2004,2005,2006 Ken'ichi Fukamachi +# Copyright (C) 2008,2009,2010 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Distribute.pm,v 1.182 2008/07/20 09:15:55 fukachan Exp $ +# $FML: Distribute.pm,v 1.183 2009/07/14 15:02:11 tmu Exp $ # package FML::Process::Distribute; @@ -381,7 +382,7 @@ sub finish unless ($curproc->is_refused()) { my $article = $curproc->_build_article_object(); - my $id = $article->increment_id; + my $id = $article->id(); if ($config->yes('use_html_archive')) { $curproc->log("htmlify article $id"); $curproc->_htmlify(); @@ -870,7 +871,8 @@ Ken'ichi Fukamachi =head1 COPYRIGHT -Copyright (C) 2000,2001,2002,2003,2004,2005,2006,2008 Ken'ichi Fukamachi +Copyright (C) 2000,2001,2002,2003,2004,2005,2006 Ken'ichi Fukamachi +Copyright (C) 2008,2009,2010 Ken'ichi Fukamachi All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. |