PMG::DBTool::load_mail_data - add optional $pmail parameter

[pmg-api.git] / PMG / DBTools.pm

diff --git a/PMG/DBTools.pm b/PMG/DBTools.pm
index 1696a81f448dc292e93c8a3c6e77e1fc2e8f6401..c8ff340d4310c339a4498fb7b1e01a432f1db082 100644 (file)
--- a/PMG/DBTools.pm
+++ b/PMG/DBTools.pm
@@ -1188,10 +1188,11 @@ sub cluster_sync_status {
 }
 
 sub load_mail_data {
-    my ($dbh, $cid, $rid) = @_;
+    my ($dbh, $cid, $rid, $pmail) = @_;
 
     my $sth = $dbh->prepare(
        "SELECT * FROM CMailStore, CMSReceivers WHERE " .
+       ($pmail ? 'pmail = ' . $dbh->quote($pmail) . " AND " : '') .
        "CID = $cid and RID = $rid AND " .
        "CID = CMailStore_CID AND RID = CMailStore_RID");
     $sth->execute ();