$rs = new resume();
$proj = new submit();
/* Ajusta protocolos perdidos */
$sql = "update " . $proj->tabela . " set doc_status = '@' where doc_status = '' ";
$rlt = db_query($sql);
/* Buscar projetos do pesquisador */
$proj->doc_autor_principal = $ss->user_codigo;
$pta = $proj->protocolos_todos($dd[1]);
/* Search project form */
echo '<h1>' . msg('project_investigador') . '</h1>';
echo $cep->form_search();
/* search form */
echo '<BR><BR>';
echo $rs->resume();
/* project in submission */
echo '<BR>';
echo '<h1>' . msg('caption_status_' . $dd[1]) . '</h1>';
echo '<fieldset>';
echo '<table width="100%" class="lt1" border=0><TR><TD>';
echo '<font class="lt1">' . msg('caption_status_' . $dd[1] . '_inf') . '</font>';
echo '</table>';
echo '<table width="100%" border=0 >';
/* Protocol in submission */
echo $proj->protocolos_mostrar($pta);
echo '</table>';
/* Approved Research */
$cep->autor_principal = $ss->user_codigo;
echo $cep->protocol_in_investigation();
echo '</fieldset>';
echo '</div>';
echo $hd->foot();
$proj = new submit();
/* Buscar projetos do pesquisador */
$proj->doc_autor_principal = $ss->user_codigo;
$pta = $proj->protocolos_todos($dd[1]);
$type = $dd[1];
/* project in submission */
echo '<BR>';
echo '<h1>' . msg('caption_status_' . $dd[1]) . '</h1>';
echo '<fieldset>';
$type = $dd[1];
switch ($type) {
case 'problem':
echo '<h2>' . msg('caption_status_Z') . '</h2>';
/* Protocol in submission */
$rlt = $proj->protocolo_status('$');
echo $proj->protocolos_mostrar($rlt);
/* Protocolo com pendências */
echo '<HR>';
$rlt = $proj->protocolo_status('Z');
echo $proj->protocolos_mostrar($rlt);
break;
case 'active':
/* Approved Research */
echo '<table width="100%" class="lt1" border=0><TR><TD>';
$cep->autor_principal = $ss->user_codigo;
echo $cep->protocol_in_investigation();
echo '</table>';
}
echo '</fieldset>';
echo '</div>';
echo $hd->foot();
