diff options
| author | fukachan <fukachan> | 2005-09-14 00:02:36 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-09-14 00:02:36 +0000 |
| commit | 960d9dd54699e7a2f550f9900580b21f0b4b6182 (patch) | |
| tree | 9da10bdd6e09144cea47f3002fcebc4a4c4039fc | |
| parent | 2c210a84c9cb00e0fda15661e450e41abc3f7bdc (diff) | |
| download | fml8-960d9dd54699e7a2f550f9900580b21f0b4b6182.tar.gz fml8-960d9dd54699e7a2f550f9900580b21f0b4b6182.tar.bz2 fml8-960d9dd54699e7a2f550f9900580b21f0b4b6182.zip | |
changed to FML::Article->add_outline($tdb_args) style.
| -rw-r--r-- | fml/lib/FML/Article.pm | 17 | ||||
| -rw-r--r-- | fml/lib/FML/Article/Outline.pm | 6 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 7 |
3 files changed, 22 insertions, 8 deletions
diff --git a/fml/lib/FML/Article.pm b/fml/lib/FML/Article.pm index a6688b9f..127eb42e 100644 --- a/fml/lib/FML/Article.pm +++ b/fml/lib/FML/Article.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: Article.pm,v 1.74 2005/08/31 10:11:19 fukachan Exp $ +# $FML: Article.pm,v 1.75 2005/09/11 13:09:39 fukachan Exp $ # package FML::Article; @@ -280,6 +280,21 @@ sub append } +# Descriptions: add thread outline to article header or/and body. +# Arguments: OBJ($self) HASH_REF($tdb_args) +# Side Effects: none +# Return Value: none +sub add_outline +{ + my ($self, $tdb_args) = @_; + my $curproc = $self->{ _curproc }; + + use FML::Article::Outline; + my $outline = new FML::Article::Outline $curproc; + $outline->add_outline($tdb_args); +} + + =head1 UTILITY =head2 filepath($id) diff --git a/fml/lib/FML/Article/Outline.pm b/fml/lib/FML/Article/Outline.pm index 6b2347f1..72805a02 100644 --- a/fml/lib/FML/Article/Outline.pm +++ b/fml/lib/FML/Article/Outline.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: Article.pm,v 1.74 2005/08/31 10:11:19 fukachan Exp $ +# $FML: Outline.pm,v 1.1 2005/09/11 13:14:14 fukachan Exp $ # package FML::Article::Outline; @@ -45,7 +45,7 @@ sub new =head1 ARTICLE THREAD OUTLINE -=head2 add($thread_db_args) +=head2 add_outline($thread_db_args) add thread outline information to article object. @@ -56,7 +56,7 @@ add thread outline information to article object. # Arguments: OBJ($self) HASH_REF($tdb_args) # Side Effects: update article. # Return Value: none -sub add +sub add_outline { my ($self, $tdb_args) = @_; my $curproc = $self->{ _curproc }; diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm index 22707508..6b743d24 100644 --- a/fml/lib/FML/Process/Distribute.pm +++ b/fml/lib/FML/Process/Distribute.pm @@ -3,7 +3,7 @@ # Copyright (C) 2000,2001,2002,2003,2004,2005 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Distribute.pm,v 1.163 2005/09/01 04:10:53 fukachan Exp $ +# $FML: Distribute.pm,v 1.164 2005/09/11 13:14:15 fukachan Exp $ # package FML::Process::Distribute; @@ -706,9 +706,8 @@ sub _new_thread_check_post } # add thread outline to article header or/and body. - use FML::Article::Outline; - my $outline = new FML::Article::Outline $curproc; - $outline->add($tdb_args); + my $article = new FML::Article $curproc; + $article->add_outline($tdb_args); } |