print "GROUPS\n";
$objGroupCursor = Group::QueryCursor(QQ::All());
QDataGen::DisplayForEachTaskStart('Checking for email in Group Lists', Group::CountAll());
while ($objGroup = Group::InstantiateCursor($objGroupCursor)) {
QDataGen::DisplayForEachTaskNext('Checking for email in Group Lists');
$objGroupParticipationArr = $objGroup->GetGroupParticipationArray();
foreach ($objGroupParticipationArr as $objGroupParticipant) {
if (in_array($objGroupParticipant->PersonId, $intPersonIdArray)) {
printf("\n%s is in %s: %s\n", $txtEmail, $objGroup->Ministry->Name, $objGroup->Name);
break;
}
}
}
QDataGen::DisplayForEachTaskEnd('Checking for email in Group Lists');
print "COMMUNICATION LISTS\n";
$objCommuncationsCursor = CommunicationList::QueryCursor(QQ::All());
QDataGen::DisplayForEachTaskStart('Checking for email in Communication Lists', CommunicationList::CountAll());
while ($objCommunicationList = CommunicationList::InstantiateCursor($objCommuncationsCursor)) {
QDataGen::DisplayForEachTaskNext('Checking for email in Communication Lists');
$objCommListArray = $objCommunicationList->GetMemberAsArray();
foreach ($objCommListArray as $objComListEntry) {
if ($objComListEntry[3] == $txtEmail) {
printf("\n%s is in %s: %s\n", $txtEmail, $objCommunicationList->Ministry->Name, $objCommunicationList->Name);
break;
}
}
}
QDataGen::DisplayForEachTaskEnd('Checking for email in Communication Lists');
} else {
print "No email object found\n";
}
