function format_fld($zq1, $zq2)
{
global $hd, $LANG;
$zqr = '';
if (strlen($zq2) > 0) {
if (substr($zq2, 0, 1) == '(') {
$zqr = substr($zq2, strpos($zq2, $zq1 . ':') + 2, 100);
// echo '['.strpos($zq2,$zq1.':').']';
if (strpos($zqr, '&') > 0) {
$zqr = substr($zqr, 0, strpos($zqr, '&'));
}
$zqr = $zq1 . '-' . $zqr;
}
////////////////////// $
if ($zq2 == 'M') {
$zqr = msg($zq1);
}
if ($zq2 == '$') {
$zqr = Number_format($zq1 / 100, 2);
}
////////////////////// $R
if ($zq2 == '$R' or $zq2 == '2') {
$zqr = Number_format($zq1, 2);
if ($LANG == 'en_US') {
$zqr = $zqr;
}
if ($LANG == 'pt_BR' or $zq2 == '2') {
$zqr = troca(troca(troca($zqr, '.', '#'), ',', '.'), '#', '.');
}
}
////////////////////// C
if (substr($zq2, 0, 1) == 'C') {
$zqr = '<CENTER>';
$zqr = $zqr . $zq1;
}
////////////////////// #
if (substr($zq2, 0, 1) == '#') {
$zqr = '<CENTER>';
$zqr = $zqr . $zq1;
}
////////////////////// @
if ($zq2 == 'SHORT') {
$zqr = $zqr . SubStr($zq1, 0, 1) . LowerCase(SubStr($zq1, 1, strpos($zq1, ' ')));
}
if ($zq2 == '@') {
$zqr = UpperCase(SubStr($zq1, 0, 1));
if (substr($zq1, 1, 1) == ' ') {
$zqr = $zqr . ' ';
}
$zqr = $zqr . LowerCase(SubStr($zq1, 1, 200));
}
////////////////////// Bold
if ($zq2 == 'B') {
$zqr = $zqr . '<B>' . $zq1 . '</B>';
}
////////////////////// CB
if ($zq2 == 'CB') {
$varf = $vars[$varf];
$vvvt = '';
$vvvt = $vars['chk' . $zq1];
if ($vvvt == "1") {
$vvvt = "checked";
}
$zqr = $zqr . '<input type="checkbox" name="chk' . $zq1 . '" ' . $vvvt . ' value="1">';
}
////////////////////// CEP
if ($zq2 == 'CEP') {
$xxcep = sonumero($zq1);
if (strlen($xxcep) == 8) {
$xxcep = substr($xxcep, 0, 2) . '.' . substr($xxcep, 2, 3) . '-' . substr($xxcep, 5, 3);
}
$zqr = $zqr . $xxcep;
}
////////////////////// D
if ($zq2 == 'D') {
$zqr = '<CENTER>';
$dta = trim($zq1);
if ($dta == '19000101') {
$zqr = $zqr . '-';
} else {
$zqr = $zqr . stodbr($zq1);
}
}
////////////////////// DR
if ($zq2 == 'DR') {
$zqr = '<CENTER>';
$dta = trim($zq1);
if ($dta == '19000101') {
$zqr = $zqr . '-';
} else {
$zqr = $zqr . substr(stodbr($zq1), 0, 5);
}
}
////////////////////// H
if (substr($zq2, 0, 1) == 'H' and $zq2 != 'H1' and $zq2 != 'H2') {
$zqr = '';
if ($hd != trim($zq1)) {
$zq1v = $zq1;
if (substr($zq2, 1, 1) == 'D') {
$zq1v = stodbr($zq1);
}
// $zqr .= '<TR><TD colspan="15" height="1" bgcolor="#c0c0c0"></TD></TR>';
$zqr .= '<TR><TD bgcolor="#FFFFFF" colspan="15" class="lt2" align="left"><HR size="1"><B>' . $zq1v . '</TD></TR>';
$hd = trim($zq1);
$zqr = $zqr . '<TR><TD></TD>';
}
}
if ($zq2 == 'H1') {
$zqr = $zqr . '<h1>' . $zq1 . '</h1>';
}
if ($zq2 == 'H2') {
$zqr = $zqr . '<h2>' . $zq1 . '</h2>';
}
////////////////////// Italic
if ($zq2 == 'I') {
$zqr = $zqr . '<I>' . $zq1 . '</I>';
}
if (${$zq2} == 'NL') {
$zqr = $zqr . '<TR ' . $xcol . '><TD><TD>' . $linkv . $zq1;
}
if ($zq2 == 'SHORT') {
$zqr = $zqr . LowerCase(SubStr($zq1, 1, strpos($zq1, ' ')));
}
////////////////////// SN
if ($zq2 == 'SN') {
$zqr = '<CENTER>';
$dta = trim($zq1);
if ($dta == '1' or $dta == true or $dta == 'S') {
$zqr = $zqr . 'SIM';
} else {
$zqr = $zqr . 'NAO';
}
}
////////////////////// C
if (substr($zq2, 0, 2) == 'OB') {
$zqr = '<CENTER>';
if ($zq1 == '1') {
$zqr .= msg('yes');
} else {
$zqr .= msg('no');
}
}
if ($zq2 == 'Z') {
$zqr = '<CENTER>';
$zqr = $zqr . strzero($zq1, '0' . substr($zq2, 1, 2));
}
} else {
$zqr = $zq1;
}
return $zqr;
}
/**
* @author Rene F. Gabriel Junior <*****@*****.**>
* @copyright © Pan American Health Organization, 2013. All rights reserved.
* @version 0.15.03
* @access public
* @package INCLUDEs
* @subpackage Autor
*/
function nbr_autor($xa, $tp)
{
if (strpos($xa, ',') > 0) {
$xb = trim(substr($xa, strpos($xa, ',') + 1, 100));
$xa = trim(substr($xa, 0, strpos($xa, ',')));
$xa = trim(trim($xb) . ' ' . $xa);
}
$xa = $xa . ' ';
$xp = array();
$xx = "";
for ($qk = 0; $qk < strlen($xa); $qk++) {
if (substr($xa, $qk, 1) == ' ') {
if (strlen(trim($xx)) > 0) {
array_push($xp, trim($xx));
$xx = '';
}
} else {
$xx = $xx . substr($xa, $qk, 1);
}
}
$xa = "";
/////////////////////////////
$xp1 = "";
$xp2 = "";
$er1 = array("JUNIOR", "JÚNIOR", "JúNIOR", "NETTO", "NETO", "SOBRINHO", "FILHO", "JR.");
$xop = 0;
for ($qk = count($xp) - 1; $qk >= 0; $qk--) {
$xa = trim($xa . ' - ' . $xp[$qk]);
if ($xop == 0) {
$xp1 = trim($xp[$qk] . ' ' . $xp1);
$xop = -1;
} else {
$xp2 = trim($xp[$qk] . ' ' . $xp2);
}
if ($xop == -1) {
$xop = 1;
for ($kr = 0; $kr < count($er1); $kr++) {
if (trim(UpperCaseSQL($xp[$qk])) == trim($er1[$kr])) {
$xop = 0;
}
}
}
}
////////// 1 e 2
$xp2a = strtolower($xp2);
$xa = trim(trim($xp2) . ' ' . trim($xp1));
if ($tp == 1 or $tp == 2) {
if ($tp == 1) {
$xp1 = UpperCase($xp1);
}
$xa = trim(trim($xp1) . ', ' . trim($xp2));
if ($tp == 2) {
$xa = UpperCaseSQL(trim(trim($xp1) . ', ' . trim($xp2)));
}
}
if ($tp == 3 or $tp == 4) {
if ($tp == 4) {
$xa = UpperCaseSQL($xa);
}
}
if ($tp >= 5 or $tp <= 6) {
$xp2a = str_word_count(lowerCaseSQL($xp2), 1);
$xp2 = '';
for ($k = 0; $k < count($xp2a); $k++) {
if ($xp2a[$k] == 'do') {
$xp2a[$k] = '';
}
if ($xp2a[$k] == 'da') {
$xp2a[$k] = '';
}
if ($xp2a[$k] == 'de') {
$xp2a[$k] = '';
}
if (strlen($xp2a[$k]) > 0) {
$xp2 = $xp2 . substr($xp2a[$k], 0, 1) . '. ';
}
}
$xp2 = trim($xp2);
if ($tp == 6) {
$xa = UpperCaseSQL(trim(trim($xp2) . ' ' . trim($xp1)));
}
if ($tp == 5) {
$xa = UpperCaseSQL(trim(trim($xp1) . ', ' . trim($xp2)));
}
}
////////////////////////////////////////////////////////////////////////////////////
if ($tp == 7 or $tp == 8) {
$mai = 1;
$xa = strtolower($xa);
for ($r = 0; $r < strlen($xa); $r++) {
if ($mai == 1) {
$xa = substr($xa, 0, $r) . UpperCase(substr($xa, $r, 1)) . substr($xa, $r + 1, strlen($xa));
$mai = 0;
} else {
if (substr($xa, $r, 1) == ' ') {
$mai = 1;
}
}
}
$xa = troca($xa, 'De ', 'de ');
$xa = troca($xa, 'Da ', 'da ');
$xa = troca($xa, 'Do ', 'do ');
}
return $xa;
}