$TempStr = ExpandPhoneNumber($sCellPhone, $sDefaultCountry, $bWierd);
$OutStr .= " " . gettext("Cell") . ": " . $TempStr . "\n";
}
if ($bDirPersonalEmail && strlen($sEmail)) {
$OutStr .= " " . gettext("Email") . ": " . $sEmail . "\n";
}
if ($bDirPersonalWorkEmail && strlen($per_WorkEmail)) {
$OutStr .= " " . gettext("Work/Other Email") . ": " . ($per_WorkEmail .= "\n");
}
}
// Count the number of lines in the output string
if (strlen($OutStr)) {
$numlines = substr_count($OutStr, "\n");
} else {
$numlines = 0;
}
if ($numlines > 0) {
if (strtoupper($sLastLetter) != strtoupper(substr($pdf->sRecordName, 0, 1))) {
$pdf->Check_Lines($numlines + 2);
$sLastLetter = strtoupper(substr($pdf->sRecordName, 0, 1));
$pdf->Add_Header($sLastLetter);
}
$pdf->Add_Record($pdf->sRecordName, $OutStr, $numlines);
// another hack: added +1
}
}
if ($iPDFOutputType == 1) {
$pdf->Output("Directory-" . date("Ymd-Gis") . ".pdf", true);
} else {
$pdf->Output();
}
}
if ($bDirPersonalWorkEmail && strlen($per_WorkEmail)) {
$OutStr .= " " . gettext("Work/Other Email") . ": " . ($per_WorkEmail .= "\n");
}
// Custom Fields
$OutStr .= $pdf->sGetCustomString($rsCustomFields, $aRow);
}
// Count the number of lines in the output string
if (strlen($OutStr)) {
$numlines = $pdf->NbLines($pdf->_ColWidth, $OutStr);
} else {
$numlines = 0;
}
if ($numlines > 0) {
if (strtoupper($sLastLetter) != strtoupper(substr($pdf->sRecordName, 0, 1))) {
$pdf->Check_Lines($numlines + 2, 0, 0);
$sLastLetter = strtoupper(substr($pdf->sRecordName, 0, 1));
$pdf->Add_Header($sLastLetter);
}
// if photo include pass the id, otherwise 0 equates to no family/pers
$fid = 0;
$pid = 0;
if ($bDirPhoto) {
if ($isFamily) {
$fid = $fam_ID;
} else {
$pid = $per_ID;
}
}
$pdf->Add_Record($pdf->sRecordName, $OutStr, $numlines, $fid, $pid);
// another hack: added +1
$sSQL = "SELECT * from family_fam where fam_ID = " . $sFamilyID;
$rsFamily = RunQuery($sSQL);
$aRow = mysql_fetch_array($rsFamily);
extract($aRow);
$sSQL = "SELECT * from person_per LEFT JOIN person_custom on person_custom.per_ID = person_per.per_ID where per_fam_ID = " . $sFamilyID . " order by per_fmr_ID";
$rsPersonInFam = RunQuery($sSQL);
if ($bDirUseTitlePage) {
$pdf->TitlePage();
}
while ($aPersonInFam = mysql_fetch_array($rsPersonInFam)) {
extract($aPersonInFam);
$sName = $per_LastName . ", " . $per_FirstName . " " . $per_MiddleName;
$aName .= $sName . "\n";
$numlines++;
// add an extra blank line after record
$pdf->Check_Lines(30);
$pdf->Print_Name($sName);
$PosX = $pdf->_Margin_Left + 163;
$PosY = $pdf->_Margin_Top + ($pdf->_CurLine - 1) * 5;
$sDirImagePer = "..\\Images\\Person\\thumbnails\\" . $per_ID . ".jpg";
if (is_readable($sDirImagePer)) {
$pdf->Image($sDirImagePer, $PosX, $PosY, 25);
}
$sTitle = "No. Induk";
$sValue = $fam_NoIndFam . "-" . $per_NoIndJem . "." . $fam_NamaSek;
$aNoInd .= $sValue . "\n";
$pdf->Add_Record($sTitle, $sValue, 1);
$sTitle = "Tempat/Tanggal Lahir";
if ($per_BirthPlace == "") {
$per_BirthPlace = "____________";
}
