/** * Main zTag functions selector * * <code> * zform_execute($tagId, $tagFunction, $arrayTag, $arrayTagId, $arrayOrder); * </code> * * @param integer $tagId array id of current zTag of $arrayTag array * @param string $tagFunction name of zTag function * @param array $arrayTag array with all compiled zTags * @param array $arrayTagId array with all Ids values * @param array $arrayOrder array with zTag executing order * * @since 1.0 */ function zform_zexecute($tagId, $tagFunction, &$arrayTag, &$arrayTagId, $arrayOrder) { $arrParam = $arrayTag[$tagId][ztagParam]; $strId = $arrParam["id"]; $strTagId = $arrParam["tagid"]; $strName = $arrParam["name"]; $strCaption = $arrParam["caption"]; $strValue = $arrParam["value"]; $strValues = $arrParam["values"]; if ($arrayTag[$tagId][ztagContentWidth]) { $strContent = $arrayTag[$tagId][ztagContent]; } if (!$strTagId) { $strTagId = $strName; } $arrParam["id"] = $strTagId; $arrParam["for"] = $strTagId; if ($strCaption) { if (strpos(" {$strCaption}", "&")) { $labelAccessKey = preg_match("%&(.)%i", $strCaption); if (!$labelAccessKey) { $labelAccessKey = substr($strCaption, 1, 1); } $arrParam["accesskey"] = $labelAccessKey; $strCaption = preg_replace("%^(.*)&(.)(.*)\$%i", "\$1<u>\$2</u>\$3", $strCaption); } } $errorMessage = ""; switch (strtolower($tagFunction)) { /*+ * Input Text * * <code> * <zform:input type="text" name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string type="text" * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ case "input": $errorMessage = ztagParamCheck($arrParam, "type,name"); $strParam = ztagParam($arrParam, "type,id,name,value,style,required,readonly,disabled,autocomplete,maxlength,size,tabindex,datebr"); $arrayTag[$tagId][ztagResult] = "<input{$strParam} />"; break; /*+ * Input Text * * <code> * <zform:inputtext name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ /*+ * Input Text * * <code> * <zform:inputtext name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ case "inputtext": $arrParam["type"] = "text"; $errorMessage = ztagParamCheck($arrParam, "type,name"); $strParam = ztagParam($arrParam, "type,id,name,value,style,required,readonly,disabled,autocomplete,maxlength,size,tabindex,title,datebr"); $arrayTag[$tagId][ztagResult] = "<input{$strParam} />"; break; /*+ * Input Hidden * * <code> * <zform:inputhidden name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ /*+ * Input Hidden * * <code> * <zform:inputhidden name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ case "inputhidden": $arrParam["type"] = "hidden"; $errorMessage = ztagParamCheck($arrParam, "type,name"); $strParam = ztagParam($arrParam, "type,id,name,value"); $arrayTag[$tagId][ztagResult] = "<input{$strParam} />"; break; /*+ * Input Password * * <code> * <zform:inputpassword name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ /*+ * Input Password * * <code> * <zform:inputpassword name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ case "inputpassword": $arrParam["type"] = "password"; $errorMessage = ztagParamCheck($arrParam, "type,name"); $strParam = ztagParam($arrParam, "type,id,name,value,style,required,readonly"); $arrayTag[$tagId][ztagResult] = "<input{$strParam} />"; break; /*+ * Input Checkbox * * <code> * <zform:inputcheckbox name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ /*+ * Input Checkbox * * <code> * <zform:inputcheckbox name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ case "inputcheckbox": $arrParam["type"] = "checkbox"; $arrValues = explode(";", $strValues); if ($arrValues[0] == $strValue) { $strChecked = " checked=\"checked\""; } $errorMessage = ztagParamCheck($arrParam, "type,name,values"); $strParam = ztagParam($arrParam, "type,id,name,value,style,required,readonly"); $arrayTag[$tagId][ztagResult] = "<input{$strParam}{$strChecked} />"; break; /*+ * Text Area * * <code> * <zform:textarea name="fieldName" tagid="fieldId" value="fieldValue" /> * * <zform:textarea name="fieldName" tagid="fieldId" filename="fileSave.txt" filetype="txt"> * Text Area value * </zform:textarea> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @param string filename="/Alianca8/File.txt" * @param string filetype="txt" * @param string show="0" * * @author Ruben Zevallos Jr. <*****@*****.**> */ /*+ * Text Area * * <code> * <zform:textarea name="fieldName" tagid="fieldId" value="fieldValue" /> * * <zform:textarea name="fieldName" tagid="fieldId" filename="fileSave.txt" filetype="txt"> * Text Area value * </zform:textarea> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @param string filename="/Alianca8/File.txt" * @param string filetype="txt" * @param string show="0" * * @author Ruben Zevallos Jr. <*****@*****.**> */ case "textarea": $strFileName = $arrParam["filename"]; $strFileType = $arrParam["filetype"]; $strShow = strtolower($arrParam["show"]); if (strlen($strContent)) { $arrParam["value"] = $strContent; } $strValue = $arrParam["value"]; if (strlen($strValue)) { $strValue = ztagVars($strValue, $arrayTagId); $strValue = ztagRun($strValue, 0, $arrayTagId); } $arrParam["type"] = "textarea"; $errorMessage = ztagParamCheck($arrParam, "type,name"); $strParam = ztagParam($arrParam, "type,id,name,style,required,readonly,disabled,cols,rows,tabindex,title"); $arrayTag[$tagId][ztagResult] = "<textarea{$strParam} />{$strValue}</textarea>"; $blnShow = $strShow === "true" || $strShow === "1" || !strlen($strShow); if ($strFileName) { $strFileName = str_replace("\\", "/", $strFileName); if (substr($strFileName, 0, 1) === "/") { $strFileName = substr($strFileName, 1); } $strFileName = SiteRootDir . $strFileName; if (!($handleFile = fopen($strFileName, "w"))) { $errorMessage .= "\r\nCannot open file ({$strFileName})"; } } if ($handleFile && fwrite($handleFile, $strValue) === FALSE) { if (!$errorMessageTemp) { $errorMessage .= $errorMessageTemp = "\r\nCannot write to file ({$strFileName})"; } } if ($handleFile) { fclose($handleFile); } break; /*+ * Select * * <code> * <zform:select name="textNameSelect" tagid="textIdSelect" value="tagOptionValue1,tagOptionCaption1;tagOptionValue2,tagOptionCaption2;tagOptionValue3,tagOptionCaption3" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ /*+ * Select * * <code> * <zform:select name="textNameSelect" tagid="textIdSelect" value="tagOptionValue1,tagOptionCaption1;tagOptionValue2,tagOptionCaption2;tagOptionValue3,tagOptionCaption3" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ case "select": $strOptions = $arrParam["options"]; if ($strOptions) { $arrOptions = explode(";", $strOptions); foreach ($arrOptions as $keyOptions => $valueOptions) { $strSelected = ""; $arrOption = explode(",", $valueOptions); if ($strValue == $arrOption[0]) { $strSelected = " selected=\"selected\""; } if (!$arrOption[1]) { $arrOption[1] = $arrOption[0]; } $strOptions .= "<option value=\"{$arrOption['0']}\"{$strSelected}>{$arrOption['1']}</option>"; } } $errorMessage = ztagParamCheck($arrParam, "name,options"); $strParam = ztagParam($arrParam, "type,id,name,style,required,readonly,disabled,cols,rows,tabindex,title"); $arrayTag[$tagId][ztagResult] = "<select{$strParam} />{$strOptions}</select>"; break; /*+ * Input Submit * * <code> * <zform:inputsubmit name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ /*+ * Input Submit * * <code> * <zform:inputsubmit name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ case "inputsubmit": $arrParam["type"] = "submit"; $errorMessage = ztagParamCheck($arrParam, "type,name,value"); $strParam = ztagParam($arrParam, "type,id,name,value"); $arrayTag[$tagId][ztagResult] = "<input{$strParam} />"; break; /*+ * Box * * <code> * <zform:box type="text" caption="caption" name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ /*+ * Box * * <code> * <zform:box type="text" caption="caption" name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ case "box": $errorMessage = ztagParamCheck($arrParam, "type,caption,name"); $strLabel = ztagParam($arrParam, "accesskey,for"); $strParam = ztagParam($arrParam, "type,id,name,value,style,required,readonly,disabled,autocomplete,maxlength,size,tabindex,title,datebr"); $arrayTag[$tagId][ztagResult] = "<label{$strLabel}>{$strCaption}<br /><input{$strParam} /></label>"; break; /*+ * Box Text * * <code> * <zform:boxtext caption="caption" name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ /*+ * Box Text * * <code> * <zform:boxtext caption="caption" name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ case "boxtext": $arrParam["type"] = "text"; $errorMessage = ztagParamCheck($arrParam, "type,caption,name"); $strLabel = ztagParam($arrParam, "accesskey,for"); $strParam = ztagParam($arrParam, "type,id,name,value,style,required,readonly,disabled,autocomplete,maxlength,size,tabindex,title,datebr"); $arrayTag[$tagId][ztagResult] = "<label{$strLabel}>{$strCaption}<br /><input{$strParam} /></label>"; break; /*+ * Box Password * * <code> * <zform:boxpassword name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ /*+ * Box Password * * <code> * <zform:boxpassword name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ case "boxpassword": $arrParam["type"] = "password"; $errorMessage = ztagParamCheck($arrParam, "type,caption,name"); $strLabel = ztagParam($arrParam, "accesskey,for"); $strParam = ztagParam($arrParam, "type,id,name,value,style,required,readonly"); $arrayTag[$tagId][ztagResult] = "<label{$strLabel}>{$strCaption}<br /><input{$strParam} /></label>"; break; /*+ * Box Checkbox * * <code> * <zform:boxcheckbox caption="&CheckBox" name="checkboxNameBox" tagid="checkboxIdBox" value="checkboxValueOn" values="checkboxValueOn;checkboxValueOff" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ /*+ * Box Checkbox * * <code> * <zform:boxcheckbox caption="&CheckBox" name="checkboxNameBox" tagid="checkboxIdBox" value="checkboxValueOn" values="checkboxValueOn;checkboxValueOff" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ case "boxcheckbox": $arrParam["type"] = "checkbox"; $arrValues = explode(";", $strValues); if ($arrValues[0] == $strValue) { $arrParam["checked"] = "checked"; } $errorMessage = ztagParamCheck($arrParam, "type,name,value,values"); $strParam = ztagParam($arrParam, "type,id,name,value,style,required,readonly"); $arrayTag[$tagId][ztagResult] = "<label{$strLabel}><input{$strParam} /> {$strCaption}</label>"; break; /*+ * Box Radio * * <code> * <zform:boxradio caption="Processos com GTOs duplicadas" name="FL_CONTA_MEDICA_Estado" tagid="FL_DATA_Consulta" value="1" checked="$FL_GTO_DUPLICADACheck" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ /*+ * Box Radio * * <code> * <zform:boxradio caption="Processos com GTOs duplicadas" name="FL_CONTA_MEDICA_Estado" tagid="FL_DATA_Consulta" value="1" checked="$FL_GTO_DUPLICADACheck" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ case "boxradio": $arrParam["type"] = "radio"; $arrValues = explode(";", $strValues); if ($arrValues[0] == $strValue) { $arrParam["checked"] = "checked"; } $errorMessage = ztagParamCheck($arrParam, "type,name,value,values"); $strParam = ztagParam($arrParam, "type,id,name,value,style,required,readonly"); $arrayTag[$tagId][ztagResult] = "<label{$strLabel}><input{$strParam} /> {$strCaption}</label>"; break; /*+ * Box Text Area * * <code> * <zform:boxtextarea name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ /*+ * Box Text Area * * <code> * <zform:boxtextarea name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ case "boxtextarea": $arrParam["type"] = "textarea"; $errorMessage = ztagParamCheck($arrParam, "type,caption,name,value"); $strLabel = ztagParam($arrParam, "accesskey,for"); $strParam = ztagParam($arrParam, "type,id,name,style,required,readonly,disabled,cols,rows,tabindex,title"); $arrayTag[$tagId][ztagResult] = "<label{$strLabel}>{$strCaption}<br /><textarea{$strParam} />{$strValue}</textarea></label>"; break; /*+ * Box Select * * <code> * <zform:boxselect caption="&Text" name="textNameBox" tagid="textIdBox" value="textValueBox" options="tagOptionValue1,tagOptionCaption1;tagOptionValue2,tagOptionCaption2;tagOptionValue3,tagOptionCaption3" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ /*+ * Box Select * * <code> * <zform:boxselect caption="&Text" name="textNameBox" tagid="textIdBox" value="textValueBox" options="tagOptionValue1,tagOptionCaption1;tagOptionValue2,tagOptionCaption2;tagOptionValue3,tagOptionCaption3" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ case "boxselect": $strOptions = $arrParam["options"]; if ($strOptions) { $arrOptions = explode(";", $strOptions); $strOptions = ""; foreach ($arrOptions as $keyOptions => $valueOptions) { $strSelected = ""; $arrOption = explode(",", $valueOptions); if ($strValue == $arrOption[0]) { $strSelected = " selected=\"selected\""; } if (!$arrOption[1]) { $arrOption[1] = $arrOption[0]; } $strOptions .= "<option value=\"{$arrOption['0']}\"{$strSelected}>{$arrOption['1']}</option>"; } } $errorMessage = ztagParamCheck($arrParam, "name,options"); $strLabel = ztagParam($arrParam, "accesskey,for"); $strParam = ztagParam($arrParam, "type,id,name,style,required,readonly,disabled,cols,rows,tabindex,title"); $arrayTag[$tagId][ztagResult] = "<label{$strLabel}>{$strCaption}<br /><select{$strParam} />{$strOptions}</select></label>"; break; /*+ * Button * * <code> * <zform:button name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ /*+ * Button * * <code> * <zform:button name="fieldName" tagid="fieldId" value="fieldValue" /> * </code> * * @param string name="fieldName" * @param string tagid="fieldId" * @param string value="fieldValue" * * @author Ruben Zevallos Jr. <*****@*****.**> */ case "button": break; default: $errorMessage .= "<br />Undefined function \"{$tagFunction}\""; } ztagError($errorMessage, $arrayTag, $tagId); }
function zhtml_cellhead($tagId, &$arrayTag, &$arrayTagId, $arrayOrder) { $arrParam = $arrayTag[$tagId][ztagParam]; $strTagId = $arrParam["tagid"]; $strValue = $arrParam["value"]; $strTransform = $arrParam["transform"]; $strContent = $arrayTag[$tagId][ztagContent]; if (strlen($strValue)) { $strContent = $strValue; } $arrParam["value"] = $strContent; if (!$strTagId) { $strTagId = $strName; } $arrParam["id"] = $strTagId; $strTag = "th"; $strParam = ztagParam($arrParam, "alt,align,border,height,width,id,class,style,nowrap,colspan"); $errorMessage = ztagParamCheck($arrParam, "value"); if ($strTransform) { $strContent = ztagTransform($strContent, $strTransform); } $arrayTag[$tagId][ztagResult] = "<{$strTag}{$strParam}>{$strContent}</{$strTag}>"; ztagError($errorMessage, $arrayTag, $tagId); }