function writeClientProgRow(&$cprog)
{
//---------------------------------------------------------------------
//
//---------------------------------------------------------------------
global $genumDateFormat, $gbDev;
$lCProgID = $cprog->lKeyID;
if ($cprog->bHidden) {
$strStyle = 'color: #999; font-style: italic;';
$strEnroll = ' ';
$strAttend = ' ';
$strClone = ' ';
} else {
$strStyle = '';
$strEnroll = strLinkView_UFFields($cprog->lEnrollmentTableID, 'View enrollment fields', true) . ' ' . $cprog->lNumEFields;
$strAttend = strLinkView_UFFields($cprog->lAttendanceTableID, 'View attendance fields', true) . ' ' . $cprog->lNumAFields;
if ($gbDev) {
$strEnroll .= ' ' . strLinkDebug_Fields($cprog->lEnrollmentTableID, 'Field debug info', true);
$strAttend .= ' ' . strLinkDebug_Fields($cprog->lAttendanceTableID, 'Field debug info', true);
}
$strClone = strLinkClone_CProgram($lCProgID, 'Clone this client program', true);
}
if ($cprog->bMentorMentee) {
$strProgType = '<br><i>Mentor Program</i>';
// '
// .strLinkEdit_CPMentorFields($lCProgID, 'Edit field association', true);
} else {
$strProgType = '';
}
echoT('
<tr class="makeStripe">
<td class="enpRpt" style="text-align: center; ' . $strStyle . '" nowrap>' . str_pad($lCProgID, 5, '0', STR_PAD_LEFT) . ' ' . strLinkView_CProgram($lCProgID, 'View program record', true) . '
</td>
<td class="enpRpt" style="text-align: center; vertical-align: top;' . $strStyle . '" nowrap>' . $strClone . '
</td>
<td class="enpRpt" style="' . $strStyle . '"><b>' . htmlspecialchars($cprog->strProgramName) . '</b>' . $strProgType . '<br>' . date($genumDateFormat, $cprog->dteStart) . ' - ' . date($genumDateFormat, $cprog->dteEnd) . '
</td>
<td class="enpRpt" style="width: 160pt; ' . $strStyle . '">' . nl2br(htmlspecialchars($cprog->strDescription)) . '
</td>
<td class="enpRpt" style="' . $strStyle . ' text-align: center;">' . $strEnroll . '
</td>
<td class="enpRpt" style="' . $strStyle . ' text-align: center;">' . $strAttend . '
</td>
</tr>');
}
function strHTMLProgramSummaryDisplay($enumTType)
{
//---------------------------------------------------------------------
// caller must first load the client program record
//---------------------------------------------------------------------
$params = array('enumStyle' => 'terse');
$clsRpt = new generic_rpt($params);
$strOut = '';
$cprog =& $this->cprogs[0];
$lCProgID = $cprog->lKeyID;
$bEnrollment = $enumTType == CENUM_CONTEXT_CPROGENROLL;
$clsRpt->setEntrySummary();
$strOut .= $clsRpt->openReport();
$strOut .= $clsRpt->openRow() . $clsRpt->writeLabel('Client Program:', '115pt') . $clsRpt->writeCell(htmlspecialchars($cprog->strProgramName) . ' ' . strLinkView_CProgram($lCProgID, 'View program record', true)) . $clsRpt->closeRow();
$strOut .= $clsRpt->openRow() . $clsRpt->writeLabel('Table Type:', '115pt') . $clsRpt->writeCell($bEnrollment ? $cprog->strSafeEnrollLabel : $cprog->strSafeAttendLabel) . $clsRpt->closeRow();
$strOut .= $clsRpt->openRow() . $clsRpt->writeLabel('Client Program ID:', '115pt') . $clsRpt->writeCell(str_pad($lCProgID, 5, '0', STR_PAD_LEFT)) . $clsRpt->closeRow();
$strOut .= $clsRpt->openRow() . $clsRpt->writeLabel('Description:') . $clsRpt->writeCell(nl2br(htmlspecialchars($cprog->strDescription)), '350pt;') . $clsRpt->closeRow();
$strOut .= $clsRpt->closeReport();
return $strOut;
}
if ($ut->bHidden) {
$strStyleHidden = ' color: #aaa; ';
} else {
$strStyleHidden = '';
}
$strLinkFields = strLinkView_UFFields($ut->lKeyID, 'View fields', true);
if (!is_null($ut->lCProgEID)) {
$strPName = '<b>' . htmlspecialchars($ut->strCProgEName) . '</b>';
$strCPID = str_pad($ut->lCProgEID, 5, '0', STR_PAD_LEFT) . ' ' . strLinkView_CProgram($ut->lCProgEID, 'View client program', true);
$strCPE = '<b>X</b>';
$strCPA = '-';
$bCP = true;
$strLinkUTable = '';
} elseif (!is_null($ut->lCProgAID)) {
$strPName = '<b>' . htmlspecialchars($ut->strCProgAName) . '</b>';
$strCPID = str_pad($ut->lCProgAID, 5, '0', STR_PAD_LEFT) . ' ' . strLinkView_CProgram($ut->lCProgAID, 'View client program', true);
$strCPE = '-';
$strCPA = '<b>X</b>';
$bCP = true;
$strLinkUTable = '';
} else {
$strPName = ' -';
$strCPID = '-';
$strCPE = '-';
$strCPA = '-';
$bCP = false;
$strLinkUTable = ' ' . strLinkView_UFTable($ut->lKeyID, 'View table', true);
}
echoT('
<tr class="makeStripe">
<td class="enpRpt" style="text-align: center; width: 20pt; ' . $strStyleHidden . '">' . ($idx + 1) . '
