0) { echo "
".substr($linea,$ix); } } function Calendario($campo,$type_de,$iso_tag,$Etq){ global $config_date_format; if ($config_date_format=="DD/MM/YY") // format of the input field $date_format= "%d/%m/%Y"; else $date_format= "%m/%d/%Y"; echo " "; } function DibujarHtmlArea($tag,$linea,$numl,$tipoH){ global $valortag,$fdt,$ver,$arrHttp,$Path,$xEditor,$xUrlEditor,$FCKConfigurationsPath,$FCKEditorPath,$db_path,$msgstr; if (trim($numl)=="") $numl=20; $numl=$numl*30; if ($tipoH!="B"){ if (!isset($valortag[$tag])) { $valortag[$tag]=""; }else{ $valortag[$tag]=trim($valortag[$tag]); } }else{ $fp=file($db_path.$arrHttp["base"]."/html/".trim($valortag[$tag])); $valortag[$tag]=""; foreach ($fp as $value) $valortag[$tag].=trim($value); } $valortag[$tag]=str_replace("\r","",$valortag[$tag]); $valortag[$tag]=str_replace("\n","",$valortag[$tag]); #echo "  \"".$msgstr["uploadfile"]."\"".$msgstr["uploadfile"].""; ?> 1){ $fixed_rows=$xtb[0]; $size=$xtb[1]; }else{ if ($t[7]=='TB'){ $fixed_rows=$xtb[0]; $size=1; }else{ $fixed_rows=""; $size=$xtb[0]; } } $tope=count($filas); if ($tope==0) $tope=1; if ($fixed_rows>1) { $tope=$fixed_rows; for ($ixr=count($filas);$ixr<=$fixed_rows;$ixr++){ $filas[]=""; } } echo ""; $i=-1; $n=100; for ($i=0;$i<$tope;$i++){ if ($i>count($filas)) $campo =""; else $campo=$filas[$i]; if (!$ver) { $Etq=$tag."_".$i; $maxlength=0; if ($t[9]<>""){ $len_f=explode('/',$t[9]); $n=$len_f[0]; if (isset($len_f[1])) $maxlength=$len_f[1]; } echo ""; } else{ echo "" ; } } echo "
"; switch($t[7]){ case "ISO": if ($config_date_format=="DD/MM/YY") // format of the input field $date_format= "%d/%m/%Y"; else $date_format= "%m/%d/%Y"; echo " "; break; default: if ($size>1){ if ($t[9]==0) $t[9]=100; echo ""; if ($maxlength!=0){ echo "\n\n"; $lengthmax=strlen($campo); if ($lengthmax==0) $lengthmax=$maxlength; else $lengthmax=$maxlength-$lengthmax; echo "
".$msgstr["avalchars"]."\n"; } }else{ if ($maxlength!=0) echo ""; echo ""; if ($maxlength!=0) echo ""; } if ($t[10]=="D"){ $sc_col=""; $separa=";"; $base_alfa=$t[11]; if ($base_alfa=="") $base_alfa=$arrHttp["base"]; $Formato_alfa=$t[13]; $prefijo=$t[12]; echo ""; // echo "		"; } } echo "
".$campo."
"; if ($fixed_rows=="" and !$ver ) echo "".$msgstr["add"]."

"; } function ColocarSelect($tag,$subc,$nombrec,$lista_opciones,$campo,$picklist){ global $msgstr; $opcion=explode(';',$lista_opciones); echo ""; if (isset($_SESSION["permiso"])){ echo " ".$msgstr["mod_picklist"].""; echo " ".$msgstr["reload_picklist"]."   "; } } function DibujarTabla($filas,$tag,$fondocelda,$field_t){ //foreach ($filas as $l) echo "$l
"; global $valortag,$fdt,$ver,$arrHttp,$Path,$db_path,$lang_db,$config_date_format,$msgstr; $TablaLeida=""; $cipar=$arrHttp["cipar"]; $seleccion=""; $celda=""; $cols=-1; $columnas= Array(); $val_def=array(); $size= Array (""); $t=explode('|',$field_t); $subc=$t[5]; if ($ver=="") unset($ver); if (substr($subc,0,1)=='-') $subc="_".substr($subc,1); $cant_cols=strlen($subc); if (isset($ver)){ $celda=" cellpadding=0 cellspacing=5 border=0 "; if (count($filas)==0) return; } $seleccion= Array(); $ind=Array(); echo "\n"; echo ""; $indice_alfa=""; // para desplegar el índice alfabético del campo // echo ""; foreach($filas as $lin){ if (trim($lin)!=""){ $l=explode('|',$lin); $cols=$cols+1; $val_def[$l[5]]=$l[15]; $len=$l[9]; $size[$cols]=$len; $Tabla=$l[10]; $Tab_name=$l[11]; if (trim($Tabla)!=""){ switch ($Tabla){ case "P": $Tab_name=str_replace("%path_database%",$db_path,$Tab_name); $xx=explode('/',$Tab_name); if (count($xx)>1){ $fp=file($Tab_name); }else{ if (file_exists($db_path.$arrHttp["base"]."/def/".$_SESSION["lang"]."/".$Tab_name)) $fp = file($db_path.$arrHttp["base"]."/def/".$_SESSION["lang"]."/".$Tab_name); else $fp = file($db_path.$arrHttp["base"]."/def/".$lang_db."/".$Tab_name); } foreach ($fp as $tab) { if (trim($tab)!=""){ // if the table is bases.dat and the databases are purchaseorder or suggestions, include only the databases wich has copies database if ($Tab_name==$db_path."bases.dat" and ($arrHttp["base"]=="purchaseorder" or $arrHttp["base"]=="suggestions")){ // aqui se filtran las bases de datos para adquisiciones $tbz=explode('|',$tab); if (isset($tbz[2]) and trim($tbz[2])=="Y"){ }else{ continue; } } if (!isset($seleccion[$cols]) or $seleccion[$cols]=="") $seleccion[$cols]=$tab; else $seleccion[$cols].=";".$tab; } } break; } } $ind[$cols]=$lin; if (count($filas)>1){ if (trim($l[2])!="" and $l[7]!="I") { //columns title echo ""; } } } } $filas=explode("\n",$valortag[$tag]); $tope=count($filas); if ($tope==0) $tope=1; $cant_fil=$t[8]; $fixed_rows=$cant_fil; if ($cant_fil==0) $cant_fil=2; if ($fixed_rows>1) { $tope=$fixed_rows; for ($ixr=count($filas);$ixr<=$fixed_rows;$ixr++){ $filas[$ixr]=""; } } for ($i=0;$i<$tope;$i++){ if ($i>=count($filas)){ $valorf=""; } else { $valorf=trim($filas[$i]); } if (substr($subc,0,1)=='_') $valorf="^_".$valorf; for ($isc=0;$isc"; // $iseq=$i+1; for ($j=0;$j<=$cols;$j++){ $n=$size[$j]; if ($n==0) $n=100; $campo=""; if (count($columnas)>0) { if ($i"; //echo substr($subc,$j,1); if ($type_de[10]=="D" or $type_de[12]!=""){ if ($j==0){ $sc_col=$subc; }else{ $sc_col=substr($subc,$j,1); } $separa=";"; $base_alfa=$type_de[11]; if ($base_alfa=="") $base_alfa=$arrHttp["base"]; $Formato_alfa=$type_de[13]; if (trim($type_de[14])!="") $Formato_alfa.=",`$$$`,".$type_de[14]; $prefijo=$type_de[12]; if (!isset($ver)) echo ""; // echo "\n"; } if (isset($Etq) and !isset($ver)) echo "
".$t[2]."
".trim($l[2]); echo ""; } // echo ($campo); $iso_tag=""; switch($type_de[7]){ case "I": if (isset($ver)){ echo $campo; }else{ echo "\n"; } break; case "S": $nombrec="tag".$tag."_".$i."_".substr($subc,$j,1); if (isset($seleccion[$j]) && ($seleccion[$j]!="")){ if (!isset($ver)){ ColocarSelect($tag,substr($subc,$j,1),$nombrec,$seleccion[$j],$campo,$type_de[11]); }else{ echo $campo; } } break; case "D": //fecha, se presenta el calendario if (isset($ind[$j+1])){ $next_field=explode('|',$ind[$j+1]); //IF THE NEXT FIELD IS AN ISO FIELD CALL THE CONVERSION PROCEDURE if (trim($next_field[7])=="ISO"){ $iso_tag=$tag."_".$i."_".substr($subc,$j+1,1); }else{ $iso_tag=""; } } case "ISO": if (isset($ver)) echo $campo; else Calendario($campo,$type_de[7],$iso_tag,$Etq); break; case "C": if (isset($ver)) echo $campo; else DibujarCheck($filas,$fondocelda,$valor,$tag,$opciones,$tope,$tipo,$subc); break; case " ": case "": case "X": $maxlength=0; if ($type_de[9]<>""){ $len_f=explode('/',$type_de[9]); $n=$len_f[0]; if (isset($len_f[1])) $maxlength=$len_f[1]; } if ($type_de[8]>1){ if (!isset($ver)){ echo ""; if ($i==0) echo "\n\n"; if ($maxlength>0){ $lengthmax=strlen($campo); if ($lengthmax==0) $lengthmax=$maxlength; else $lengthmax=$maxlength-$lengthmax; echo "
".$msgstr["avalchars"]."\n"; } }else{ echo nl2br($campo); } }else{ if (!isset($ver)){ if ($maxlength!=0) echo ""; echo ""; if ($maxlength!=0) echo ""; }else{ echo nl2br($campo); } } break; case "XF": if (isset($ver)) echo $campo; else echo ""; break; case "U": if (isset($ver)){ echo $campo; }else{ echo ""; echo "\"".$msgstr["uploadfile"]."\" "; echo "\"".$msgstr["selfile"]."\""; } break; case "K": if (isset($ver)){ echo $campo; }else{ echo ""; echo "\"Subir"; echo "\"Editar"; } break; case "AI": if (isset($ver)){ echo $campo; }else{ echo ""; echo "$campo"; } break; case "RO": if (isset($ver)){ echo $campo; }else{ echo $campo; echo ""; } break; case "DC": if (isset($ver)){ echo $campo; }else{ Calendario($campo,$type_de[7],$iso_tag,$Etq); if ($campo==""){ echo "".$msgstr["add"].""; } } break; case "OC": if (isset($ver)){ echo $campo; }else{ echo ""; if ($campo=="") echo "".$msgstr["add"].""; break; } } echo "		".$msgstr["erase"].""; } echo "
"; if ($t[4]==1 and $fixed_rows=="" and !isset($ver)){ $vd=""; if (count($val_def)>0){ foreach ($val_def as $key=>$value){ $vd.=$key."|".$value."$$$"; } } echo "".$msgstr["add"]." | "; echo "".$msgstr["duplicate_last"].""; } echo "

"; echo "\n"; //if (substr($linea,37,1)!=1) echo " "; } function DecodificaSubCampos($campo,$numsubc,$subc,$delimsc){ if (trim($delimsc)=="") return $salida; $valores=explode("\n",$campo); $salida=""; foreach ($valores as $lin){ for ($isc=0;$isc"; if (!$ver){ if ($tope>1) { echo "\n"; } // echo $db_path.$arrHttp["base"]."/".$opciones; if (strpos($opciones,'%path_database%')===false){ if (file_exists($db_path.$arrHttp["base"]."/def/".$_SESSION["lang"]."/".$opciones)) $fp=file($db_path.$arrHttp["base"]."/def/".$_SESSION["lang"]."/".$opciones); else $fp=file($db_path.$arrHttp["base"]."/def/".$lang_db."/".$opciones); }else{ $fp=file(str_replace('%path_database%',$db_path,$opciones)); } $i=0; $j=0; $ixo=-1; $ix=0; $val=explode("\n",$valor); foreach ($fp as $linea){ $linea=trim($linea); if ($linea!=""){ if ($tope>1) { echo ""; } $ixo=$ixo+1; if ($ixo>=$tope-1 and $tope>1) { $ixo=-1; echo ""; }else{ if ($tope==0 or $tope==1) echo "
"; } } } if ($tope>1) { echo "
"; } // echo ($subc); $opc=explode('|',$linea); if ($opc[0]=="") $opc[0]=$opc[1]; if ($opc[1]=="") $opc[1]=$opc[0]; if (!isset($opc[1]))$opc[1]=$opc[0]; $opcVal=$opc[0]; if (trim($subc)!=""){ $opcVal="^".substr($subc,0,1).$opc[0]."^".substr($subc,1,1).$opc[1]; } $i=$ix+1; if ($tipo=="R") echo " ".$opc[1]."    \n"; if ($tope>1) { echo "
"; } }else { $filas=explode("\n",$valor); $ix=0; // echo ""; foreach ($filas as $lin){ $ix=$ix+1; $lin=trim($lin); echo "$lin"; if ($ix"; } } echo "\n\n"; } function DibujarSelect($linea,$fondocelda,$valor,$tag,$ksc,$opciones,$rep,$subc){ global $ver,$base,$arrHttp,$Path,$Tabla_sel,$db_path,$lang_db,$msgstr; $t=explode('|',$linea); $tipo=rtrim($t[7]); $rep=$t[4]; $subc=rtrim($t[5]); $ksc=strlen($subc); $delimsc=rtrim($t[6]); echo ""; $TipoS=""; if ($rep==1) $TipoS=" multiple"; if (!$ver){ $file_options=""; if (strpos($opciones,'%path_database%')===false){ if (file_exists($db_path.$arrHttp["base"]."/def/".$_SESSION["lang"]."/".$opciones)){ $file_options=$db_path.$arrHttp["base"]."/def/".$_SESSION["lang"]."/".$opciones; $fp=file($file_options); }else{ $file_options=$db_path.$arrHttp["base"]."/def/".$lang_db."/".$opciones; $fp=file($file_options); } }else{ $file_options=str_replace('%path_database%',$db_path,$opciones); //echo $file_options; $fp=file($file_options); } $i=0; $lensel=count($fp); if ($lensel>10) $lensel=0; else $lensel=$lensel+1; echo ""; if ($file_options!="") { $opciones=urlencode ( $opciones); if (isset($_SESSION["permiso"])){ echo " ".$msgstr["mod_picklist"].""; echo " ".$msgstr["reload_picklist"]."   "; } } }else { $filas=explode("\n",$valor); $ix=0; foreach ($filas as $lin){ $ix=$ix+1; $lin=trim($lin); echo "$lin"; if ($ix"; } } echo "\n\n"; } function TextBox($linea,$fondocelda,$titulo,$ver,$len,$tag,$ksc,$rep,$delimrep,$ayuda){ global $ixicampo,$valortag,$arrHttp,$Path,$Marc,$db_path,$lang_db,$msgstr,$MD5; $maxlength=0; $t=explode('|',$linea); //ESTO SE PONE PARA LOS CAMBIOS QUE SE HICIERON EN LA FDT EN CUANTO AL TIPO DE CAMPO Y EL TIPO DE INGRESO switch ($t[0]){ case "OD": $t[0]="F" ; $t[7]="OD"; break; case "OC": $t[0]="F"; $t[7]="OC"; break; case "ISO": $t[0]="F"; $t[7]="ISO"; break; case "DC": $t[7]="DC"; break; } $tipo=rtrim($t[7]); if ($t[0]=="AI") { $tipo="AI"; if ($arrHttp["Mfn"]=="New") $valortag[$tag]=""; } $rep=$t[4]; $subc=rtrim($t[5]); $ksc=strlen($subc); $delimsc=rtrim($t[6]); $numl=$t[8]; $cols=$t[9]; if ($cols==0) $cols=100; $len=$cols; $tag=$t[1]; $pref=$t[12]; $help=""; if (isset($t[16])) $help=$t[16]; // $upload=substr($linea,53,1); if ($tipo!="I"){ echo ""; $titulo=trim($t[2]); echo $titulo; echo ""; echo ""; } if ($rep==1 and $numl==0) $numl=1; if ($numl==0) $numl=1; $valortag[$tag]=rtrim($valortag[$tag]); $dummy=explode("\n", $valortag[$tag]); $occurs=count($dummy); if ($ver) { foreach ($dummy as $lin){ if ($ksc>0 and trim($delimsc)!="") $lin=DecodificaSubCampos($lin,$ksc,$subc,$delimsc); if ($tipo!="I")echo $lin."
"; } } else { $campo=rtrim($valortag[$tag]); if ($ksc>0 && $campo!="" and trim($delimsc)!="") $campo=DecodificaSubCampos($campo,$ksc,$subc,$delimsc); if ($numl30) { $numl=30; } $arrow=""; if ($rep=="1" ) { //$arrow="ONKEYDOWN=\"return checkKey(this, event,document.forma1.tag$tag,$ixicampo)\""; } if ($tipo=="XF") $len=$cols." maxlength=$cols"; if (($numl>1 or $rep=="1") and $tipo!="AI"){ //if ($numl<=1 ) $numl=2; if ($len==0) $len="100%"; if ($tipo=="RO") $it="text onfocus=blur()"; else $it=""; $maxlength=0; if ($t[9]==0) $t[9]=100; if ($t[9]!=""){ $lenf=explode('/',$t[9]); $len=$lenf[0]; if (isset($lenf[1])) $maxlength=$lenf[1]; } echo ""; if ($maxlength>0) echo "
".$msgstr["avalchars"]."\n"; }else{ if ($len==0) $len="100"; switch ($tipo){ case "P": $it="password"; if ($MD5==1)$campo=""; break; case "AI": echo ""; $it="text onfocus=blur()"; break; case "RO": $it="text onfocus=blur()"; break; case "I": $it=" hidden"; break; default: $maxlength=0; if ($t[9]!=""){ $lenf=explode('/',$t[9]); $len=$lenf[0]; if (isset($lenf[1])) $maxlength=$lenf[1]; } $it="text"; break; } if ($maxlength!=0) echo ""; echo "0){ echo " maxlength=$maxlength "; } echo" value=\"$campo\" $arrow>"; if ($maxlength!=0) echo ""; if ($tipo=="AI") { if (isset($_SESSION["permiso"]["CENTRAL_RESETLCN"]) or isset($_SESSION["permiso"]["CENTRAL_ALL"]) or isset($_SESSION["permiso"][$arrHttp["base"]."_CENTRAL_ALL"]) or isset($_SESSION["permiso"][$arrHttp["base"]."_CENTRAL_RESETLCN"]) or isset($_SESSION["permiso"]["ACQ_ALL"]) or isset($_SESSION["permiso"]["ACQ_RESETCN"])){ echo " ".$msgstr["assign"]."   "; echo "".$msgstr["help"]."   "; if (isset($_SESSION["permiso"]["CENTRAL_EDHLPSYS"])){ echo "".$msgstr["edhlp"].""; } } } } if ($tipo=="U" ) { echo "\"".$msgstr["uploadfile"]."\" "; echo "\"".$msgstr["selfile"]."\""; } if ($tipo=="P") echo "Confirm password"; } if ($tipo!="I") echo "

\n"; } Function PrepararFormato() { global $msgstr,$vars,$ver,$fondocelda,$valortag,$ixicampo,$base,$cipar,$arrHttp,$FdtHtml,$Html_ingreso,$tagisis,$db_path,$lang_db,$default_values; global $config_date_format,$base_fdt,$is_marc,$reintentar,$tag_tipol,$tag_nivel_r; //Se lee el archivo typeofrecords.tab para determinar los campos donde está el tipo de literatura el nivel de registro para la asignación del campo 08 $tag_tipol=""; $tag_nivelr=""; if (file_exists($db_path.$arrHttp["base"]."/def/".$_SESSION["lang"]."/typeofrecord.tab")){ $f=fopen($db_path.$arrHttp["base"]."/def/".$_SESSION["lang"]."/typeofrecord.tab",'r'); $tor=fgets($f); $tor=explode(' ',trim($tor)); if (isset($tor[0])) $tag_tipol=$tor[0]; if (isset($tor[1])) $tag_nivelr=$tor[1]; } //SE LEE EL ARCHIVO DE AYUDAS EN LÍNEA if (file_exists($db_path.$arrHttp["base"]."/def/".$_SESSION["lang"]."/help.tab")){ $hlp=file($db_path.$arrHttp["base"]."/def/".$_SESSION["lang"]."/help.tab"); foreach ($hlp as $value) { if (trim($value)!=""){ $vhlp=explode('=',$value); $hlp_tip[$vhlp[0]]=$vhlp[1]; } } } if ($ver=="S") $ver=true; $cipar=$arrHttp["cipar"]; $ixTab=-1; $ixicampo=0; $help_url=""; $first_time="Y"; $is_marc=""; $cargar_texto=""; $secciones=array(); $numero_secciones=0; for ($ivars=0;$ivars"; if (($t[0]=="H" or $t[0]=="L" or $ivars==0)){ if ($first_time=="Y"){ $first_time="N"; if ($ivars==0) { $display=""; }else{ $display="display:none"; } }else { $display="display:none"; if (isset($titulo_ant) and $titulo_ant!="*" and $numero_secciones>1){ echo "\n"; if (substr($titulo_ant,0,1)!="<"){ echo "  ".$msgstr["cerrar"]." $titulo_ant"; }else{ echo $msgstr["cerrar"]; } echo "

\n"; }else{ echo "\n\n"; } } if ($t[0]=="L") $display=""; if ($t[0]=="H" or $t[0]=="L" ){ if ($ivars>0){ if ($t[0]=="H"){ $secciones["myvar_$ivars"]="myvar_$ivars"; $titulo_ant=$titulo; }else{ $titulo_ant="*"; } } echo "\n

"; if ($t[0]=="H" and $numero_secciones>1) echo ""; else echo ""; if (substr($titulo,0,1)!="<" and $numero_secciones>1) echo "  $titulo"; else echo $titulo; echo ""; if (trim($t[17])!=""){ echo $hlp_tip[$t[17]]; } echo "
"; $ixant=$ivars; } if ($t[0]=="XL"){ $titulo_ant=$titulo; echo "\n
"; echo "\n".$titulo."\n"; $titulo_ant=""; } } echo "\n"; if (isset($t[14])) if (substr($t[13],0,1)!="@") $fe.=urlencode('`$$$`'.$t[14]); if ($t[0]=="H"){ $ixTab=$ixTab+1; $fondocelda="#ffffff"; $a=$t[2]; $pos=strpos($a,"["); if ($pos===false){ }else{ $a=substr($a,0,$pos); } $a=trim($a); // echo "\n"; //echo "\n"; // echo "\n"; }else{ $tipo=$t[0]; //ESTO SE PONE PARA LOS CAMBIOS QUE SE HICIERON EN LA FDT EN CUANTO AL TIPO DE CAMPO Y EL TIPO DE INGRESO switch ($t[0]){ case "OD": $t[0]="F" ; $t[7]="OD"; break; case "OC": $t[0]="F"; $t[7]="OC"; break; case "ISO": $t[0]="F"; $t[7]="ISO"; break; case "DC": $t[0]="F"; $t[7]="DC"; break; case "AI": $t[0]="F"; $t[7]="AI"; } $tag=$t[1]; $subc=rtrim($t[5]); $edit_subc=rtrim($t[6]); $nsc=strlen(rtrim($t[5])); $ksc=""; $titulo=$t[2]; $entryType=$t[7]; $tipo_e=""; if ($t[7]=="TB") $tipo_e="TB"; if ($tipo=="L"){ //$lin01=$titulo; //if ($lin01=="") $lin01=" "; // if ($t[7]!="I") echo "\n\n"; }else{ if (!isset($valortag[$tag])) $valortag[$tag]=""; else $valortag[$tag]=str_replace('"',""",$valortag[$tag]); $ayuda=""; if (isset($valortag[$tag]) and $t[0]!="H" and $t[0]!="L"){ if ($ver && $valortag[$tag] || !$ver){; if ($t[7]!="I"){ echo "\n"; $subc=rtrim($t[5]); if (substr($subc,0,1)=="-") $subc="_".substr($subc,1); if (substr($subc,0,1)==" ") $subc="+".substr($subc,1); $delimsubc=rtrim($t[6]); if (substr($delimsubc,0,1)==" ") $delimsubc="+".substr($delimsubc,1); if (substr($subc,0,1)==" ") $subc="+"+substr($subc,1); $a=trim($t[12]); $c=""; $separa=""; $autoridades=""; if ($t[10]=="D") { $autoridades=$t[11]; if ($autoridades=="") $autoridades=$arrHttp["base"]; } $Repetible=""; if ($t[4]==1) $Repetible="R"; $postings=1; if (!$ver){ echo "\n"; } $nsc=strlen(rtrim($t[5])); $ixicampo=$ixicampo+1; if ($tipo!="T" and $tipo!="M" and $tipo!="AI") $tipo_e=$entryType; //if ($tipo=="AI") $tipo_e="AI"; if ($tipo=="T") $tipo_e="E"; if ($tipo=="M") $tipo_e="FF"; if ($tipo=="LDR") $tipo_e="LDR"; if ($tipo=="M5") $tipo_e="M5"; if ($entryType=="TB") $tipo_e="TB"; //if ($entryType=="ISO") $tipo_e="ISO"; //if ($entryType=="RO") $tipo_e="RO"; // echo ""; if (trim($tipo_e)=="") $tipo_e="X"; if (isset($t[15])) if (!$ver and $valortag[$tag]=="") $valortag[$tag]=$t[15]; switch ($tipo_e) { case "M5": //DATE OF LAST UPDATE (FIELD 005 MARC) $is_marc="S"; if (!isset($default_values) or $default_values!="S"){ //CHECK IF EDITING DEFAULT VALUES $campo=$valortag[$tag]; echo "\n\n"; echo "\n\n"; } break; case "OC": //OPERATOR WHO CREATED THE RECORD if (!isset($default_values) or $default_values!="S"){ //CHECK IF EDITING DEFAULT VALUES $campo=$valortag[$tag]; echo "\n\n"; echo "\n\n"; } break; case "DC": //DATE THE RECORD WAS CREATED if (!isset($default_values) or $default_values!="S"){ //CHECK IF EDITING DEFAULT VALUES $campo=$valortag[$tag]; echo "\n\n"; echo "\n\n"; } break; case "OD": //Operator and date if ($arrHttp["Opcion"]!="valdef"){ //CHECK IF EDITING DEFAULT VALUES $campo=$valortag[$tag]; $campo_out=""; echo "\n\n"; echo "\n\n"; } break; case "LDR": $is_marc="S"; $filas=Array(); $linea01=$vars[$ivars]; $ksc=0; $ldr_tit=array(); echo ""; break; case "B": //External HTML if ($arrHttp["Mfn"]=="New"){ echo ""; break; case "A": //HTMLarea echo "\n"; break; case "D": $campo=$valortag[$tag]; echo "\n\n"; echo "\n\n"; break; case "ISO": $campo=$valortag[$tag]; echo "\n\n"; if ($t[4]==1){ //SI ES REPETIBLE $field_t=$vars[$ivars]; DibujarTextRepetible($tag,$fondocelda,$field_t); break; } echo "\n
 $a
    ".$lin01."
"; } if ($tag<1000 and $t[7]!="I") echo $tag.$ksc; else if ($t[7]!="I") echo " "; if ($t[7]!="I")echo ""; if ($a!="" or $t[10]=="T"){ //es una lista de autoridades o un tesauro if ($t[7]!="I" and $t[7]!="TB" and $t[10]!="T") echo ""; if ($t[7]!="I" and $t[10]=="T") { echo ""; } }else{ if ($t[7]!="I") echo ""; } if ($tipo=="T" and $tipo_e!="TB") { if (!isset($arrHttp["wks_a"])) $wks_a=""; else $wks_a=$arrHttp["wks_a"]; if ($t[7]!="I") echo ""; }else{ if ($tipo=="M"){ $fe=""; if (isset($arrHttp["wks_a"])) { $xxwk=explode('|',$arrHttp["wks_a"]); if (isset($xxwk[4])){ $fe=$xxwk[4]; }else{ if (isset($arrHttp["wks"])) $fe=$arrHttp["wks"]; else $fe=""; } } if ($t[7]!="I") { echo ""; echo ""; } } if ($tipo=="LDR") { if (isset($arrHttp["wks"])) $fe=$arrHttp["wks"]; else $fe=""; } } $help=""; if (isset($t[16])) $help=$t[16]; //if ($tipo!="LDR"){ if (isset($hlp_tip[$tag])) echo "".$hlp_tip[$tag]." "; if ($help==1 or $help_url!=""){ if ($help_url=="") if ($t[7]!="I") echo ""; else if ($t[7]!="I") echo ""; }else{ if ($t[7]!="I") echo ""; } // } echo ""; echo trim($titulo)."\n"; if (!$ver) { $campo=date("YmdHi.s"); echo "\n"; } echo nl2br($campo); echo "
"; echo trim($titulo)."\n"; if (!$ver) { if (trim($campo)=="") if ($arrHttp["Mfn"]=='New')$campo=$_SESSION["login"]; echo "\n"; } echo "
"; echo trim($titulo)."\n"; if (!$ver) { if ($campo=="") if ($arrHttp["Mfn"]=='New')$campo=date("Ymd h:i:s"); echo "\n"; } echo "
"; echo trim($titulo)."\n"; //KEEP ONLY THE NUMBER OF OCCURRENCES SPECIFIED IN THE COLUMN ROW OF THE FDT $ccc=explode("\n",$campo); if ($t[8]==0) $t[8]=10; if (count($ccc)>=$t[8]){ $campo=""; $ix=count($ccc)-$t[8]+1; for ($yx=$ix;$yx\n"; } echo ""; echo ""; $campo_out=explode("\n",$campo); foreach ($campo_out as $var=>$value){ $val=explode('^',$value); echo ""; } echo "
".$msgstr["it_d"]."".$msgstr["dboper"]."
"; if (isset($val[1])) echo substr($val[1],1); echo ""; if (isset($val[2])) echo substr($val[2],1); echo "
"; echo "
"; echo "
$titulo"; for ($ixsc=1;$ixsc<=100;$ixsc++){ $ivars=$ivars+1; $linea=$vars[$ivars]; if (substr($linea,0,1)!="S"){ //para detectar el fin de la descripción del leader $ivars=$ivars-1; $ixsc=999; }else{ $ksc=$ksc+1; $filas[]=rtrim($linea); $ld=explode('|',$linea); $ldr_tit[$ksc]= ""; //echo ""; } } $ksc=0; foreach ($filas as $linea){ $ksc=$ksc+1 ; echo $ldr_tit[$ksc]; $ld=explode("|",$linea); echo "\n"; echo "\n"; } echo "
".$ld[2]." (".$ld[1].")".$ld[2]." (".$ld[1].")"; $ttmsel=""; if ($ld[1]==3006){ if (isset($arrHttp["wk_tipom_1"])) { $ttmsel=$arrHttp["wk_tipom_1"]; } if ($ttmsel=="") if (isset($valortag[$ld[1]]))$ttmsel=$valortag[$ld[1]]; }else{ if (isset($valortag[$ld[1]])) $ttmsel=$valortag[$ld[1]]; } $ldr_tag[$ksc]=$ld[1]; echo ""; if (isset($_SESSION["permiso"])){ echo " ".$msgstr["mod_picklist"].""; echo " ".$msgstr["reload_picklist"]."   "; } echo "

you must load the full document as soon as this record is created, using the load icon in the record toolbar

"; }else{ echo "\n		$titulo\n"; } //echo ""; echo ""; echo "
"; echo "$titulo"; if (!$ver) { // echo " ( ".$msgstr["fck_abrir1"]." ".$msgstr["fck_abrir2"].")
"; DibujarHtmlArea($tag,$vars[$ivars],$t[8],$tipo_e); $a=str_replace("'","\"",$valortag[$tag]); }else{ echo "
".$valortag[$tag]; } echo "
"; echo trim($titulo)."\n"; if (!$ver) { $next_field=explode('|',$vars[$ivars+1]); //IF THE NEXT FIELD IS AN ISO FIELD CALL THE CONVERSION PROCEDURE if (trim($next_field[7])=="ISO"){ $date_tag="tag$tag"; //NAME OF THE ACTUAL FIELD FOR GENERATING THE ISO DATE $iso_tag="tag".$next_field[1]; //NAME OF THE ISO FIELD }else{ $next_field=explode('|',$vars[$ivars]); if (trim($next_field[0])=="ISO"){ $date_tag="tag$tag"; //NAME OF THE ACTUAL FIELD FOR GENERATING THE ISO DATE $iso_tag="tag".$next_field[1]; //NAME OF THE ISO FIELD }else{ $date_tag=""; $iso_tag=""; } } echo " "; }else{ echo $campo; } echo "
"; echo trim($titulo)."\n"; if (!$ver) { echo " "; }else{ echo $campo; } if ($Repetible=="R"){ echo "\n
"; echo "".$msgstr["add"]."

"; } echo "\n"; break; case "FF": //MARC Campo fijo $is_marc="S"; $filas=Array(); $linea01=rtrim($vars[$ivars]); $ksc=0; for ($ixsc=1;$ixsc<=100;$ixsc++){ $ivars=$ivars+1; $linea=$vars[$ivars]; if (substr($linea,0,1)!="S"){ $ivars=$ivars-1; $ixsc=999; }else{ $ksc=$ksc+1; $filas[]=rtrim($linea); } } if (substr($valortag[$tag],0,6)=="aammdd" and $arrHttp["Mfn"]=="New"){ $valortag[$tag]=date("ymd").substr($valortag[$tag],6); } TextBox($linea01,$fondocelda,$titulo,$ver,$len,$tag,$ksc,$tipo,$delrep,""); echo "\n"; foreach($filas as $lin){ $lin=trim($lin); echo "\n"; } break; case "E": $filas=Array(); $linea01=$vars[$ivars]; $sfld=$vars[$ivars+1]; $sf=explode('|',$sfld); if ($sf[0]!="S"){ for ($nx=0;$nx\n"; foreach($filas as $lin){ echo "\n"; } break; // case "M": DibujarCampoFijo($tag,$field_t); // break; case "T": case "TB": $filas=Array(); $field_t=$vars[$ivars]; if ($nsc==0){ echo "\n$titulo\n"; DibujarTextRepetible($tag,$fondocelda,$field_t); }else{ for ($ixsc=1;$ixsc<=$nsc;$ixsc++){ $ivars=$ivars+1; $linea=$vars[$ivars]; $filas[]=rtrim($linea); } DibujarTabla($filas,$tag,$fondocelda,$field_t); } echo "\n"; break; case "R": //Radio button $tope=$t[9]; echo "\n$titulo\n"; $opciones=trim($t[11]); $lt=array(); $lin=""; $filas=array(); DibujarCheck($filas,$fondocelda,$valortag[$tag],$tag,$opciones,$tope,$tipo_e,$t[5]); break; case "C": //check box $tope=$t[9]; echo "\n$titulo\n"; $opciones=trim($t[11]); $lt=array(); DibujarCheck($linea,$fondocelda,$valortag[$tag],$tag,$opciones,$tope,$tipo_e,$t[5]); break; case "S": //select simple o múltiple case "M": echo "\n$titulo\n"; $opciones=trim($t[11]); DibujarSelect($linea,$fondocelda,$valortag[$tag],$tag,$ksc,$opciones,$rep,$t[5]); break; case "AI": //autoincrement if ($arrHttp["Mfn"]=="New") $valortag[$tag]=""; case "X": case "U": default: if (!isset($ayuda)) $ayuda=""; $t=explode('|',$vars[$ivars]); if ($t[9]==0) $t[9]=100; $len=explode('/',$t[9]); if (count($len)==1){ TextBox($vars[$ivars],$fondocelda,$titulo,$ver,$len,$tag,$ksc,$rep,$delrep,$ayuda); }else{ if ($Repetible=="R") { DibujarTextRepetible($tag,$fondocelda,$vars[$ivars]); }else{ TextBox($vars[$ivars],$fondocelda,$titulo,$ver,$len,$tag,$ksc,$rep,$delrep,$ayuda); } } break; } }else{ } } } } echo ""; } } if ($cargar_texto=="S") { echo "Cargar texto"; } if (isset($titulo_ant) and $titulo_ant!="*" and $numero_secciones>1){ echo "\n"; if (substr($titulo_ant,0,1)!="<"){ echo "  ".$msgstr["cerrar"]." $titulo_ant"; }else{ echo $msgstr["cerrar"]; } } echo "

\n"; echo "\n\n"; require_once("../dataentry/javascript_validation.php"); } ?>