diff options
| author | fukachan <fukachan> | 2004-03-28 12:13:52 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-03-28 12:13:52 +0000 |
| commit | e1ff8918b2690864c024a9722bb281c4bd1391cc (patch) | |
| tree | c1de115b5786a872292f86b4d4b8587ade552e3b /fml/lib/Mail/Message/Thread.pm | |
| parent | 71fb31528e5e73a85729b066ccb7474793d98724 (diff) | |
| download | fml8-e1ff8918b2690864c024a9722bb281c4bd1391cc.tar.gz fml8-e1ff8918b2690864c024a9722bb281c4bd1391cc.tar.bz2 fml8-e1ff8918b2690864c024a9722bb281c4bd1391cc.zip | |
define {set,get}_article_summary() and article_summary db to handle
article summary easily.
Diffstat (limited to 'fml/lib/Mail/Message/Thread.pm')
| -rw-r--r-- | fml/lib/Mail/Message/Thread.pm | 30 |
1 files changed, 28 insertions, 2 deletions
diff --git a/fml/lib/Mail/Message/Thread.pm b/fml/lib/Mail/Message/Thread.pm index b0d04a5f..421be469 100644 --- a/fml/lib/Mail/Message/Thread.pm +++ b/fml/lib/Mail/Message/Thread.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: Thread.pm,v 1.3 2004/03/27 09:23:07 fukachan Exp $ +# $FML: Thread.pm,v 1.4 2004/03/28 10:28:23 fukachan Exp $ # package Mail::Message::Thread; @@ -196,7 +196,7 @@ sub get_thread_status } -# Descriptions: set thread status. +# Descriptions: set article status. # Arguments: OBJ($self) NUM($id) STR($status) # Side Effects: update UDB # Return Value: none @@ -222,6 +222,32 @@ sub get_article_status } +# Descriptions: set article summary. +# Arguments: OBJ($self) NUM($id) STR($summary) +# Side Effects: update UDB +# Return Value: none +sub set_article_summary +{ + my ($self, $id, $summary) = @_; + my $db = $self->db(); + + $db->set('article_summary', $id, $summary); +} + + +# Descriptions: get article summary. +# Arguments: OBJ($self) NUM($id) +# Side Effects: none +# Return Value: STR +sub get_article_summary +{ + my ($self, $id) = @_; + my $db = $self->db(); + + $db->get('article_summary', $id); +} + + =head1 TODO =head1 CODING STYLE |