Tadashi Okoshi
slash****@users*****
2006年 6月 4日 (日) 11:47:13 JST
Index: affelio/lib/Affelio/Managing/MessageManager.pm
diff -u affelio/lib/Affelio/Managing/MessageManager.pm:1.16 affelio/lib/Affelio/Managing/MessageManager.pm:1.17
--- affelio/lib/Affelio/Managing/MessageManager.pm:1.16 Tue May 9 08:26:41 2006
+++ affelio/lib/Affelio/Managing/MessageManager.pm Sun Jun 4 11:47:13 2006
@@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: MessageManager.pm,v 1.16 2006/05/08 23:26:41 slash5234 Exp $
+# $Id: MessageManager.pm,v 1.17 2006/06/04 02:47:13 slash5234 Exp $
package Affelio::Managing::MessageManager;
{
@@ -261,30 +261,47 @@
}
########################################################################
- #move_message
+ #update_message
########################################################################
- sub move_message{
- debug_print("MM::move_message: start");
-
+ sub update_message{
+ debug_print("MM::update_message: start");
my $self = shift;
my $af = $self->{af};
-
+ #
my %param = @_;
- #mid
my $mid = $param{mid};
- #folder
- my $folder = $param{folder};
- if ($folder eq ""){ $folder = "inbox"; }
+ my $attribute = $param{attribute};
+ my $value = $param{value};
+ debug_print("MM::update_message: [$mid] [$attribute] [$value]");
my $sth;
eval{
- $sth = $af->getDB->prepare("UPDATE $af->{site__dbtbl_prefix}_CORE_message set folder = '$folder' where mid = $mid");
+ $sth = $af->getDB->prepare("UPDATE $af->{site__dbtbl_prefix}_CORE_message set $attribute = '$value' where mid = $mid");
$sth->execute;
};
if($@){
throw Affelio::exception::DBException($af->getDB->errstr);
}
+ debug_print("MM::update_message: end");
+ }
+
+ ########################################################################
+ #move_message
+ ########################################################################
+ sub move_message{
+ debug_print("MM::move_message: start");
+ my $self = shift;
+ my $af = $self->{af};
+ my %param = @_;
+ my $mid = $param{mid};
+ my $folder = $param{folder};
+ if ($folder eq ""){ $folder = "inbox"; }
+
+ $self->update_message(mid => $mid,
+ attribute => "folder",
+ value => $folder);
+
debug_print("MM::move_message: end");
return();
}