- Timestamp:
- 09/22/10 11:14:28 (20 months ago)
- Location:
- sandbox/Guilda
- Files:
-
- 1 added
- 18 modified
-
bases/lang/00/admin.tab (modified) (1 diff)
-
bases/lang/00/dbadmin.tab (modified) (10 diffs)
-
htdocs/central/dataentry/actualizarregistro.php (modified) (8 diffs)
-
htdocs/central/dataentry/autoincrement.php (modified) (2 diffs)
-
htdocs/central/dataentry/browse.php (modified) (6 diffs)
-
htdocs/central/dataentry/captura_registro.php (added)
-
htdocs/central/dataentry/dibujarhojaentrada.php (modified) (13 diffs)
-
htdocs/central/dataentry/fmt.php (modified) (10 diffs)
-
htdocs/central/dataentry/formulariodebusqueda.php (modified) (8 diffs)
-
htdocs/central/dataentry/imprimir_g.php (modified) (1 diff)
-
htdocs/central/dataentry/leerregistroisis.php (modified) (2 diffs)
-
htdocs/central/dataentry/plantilladeingreso.php (modified) (5 diffs)
-
htdocs/central/dataentry/recval_check.php (modified) (4 diffs)
-
htdocs/central/dataentry/scripts_dataentry.php (modified) (2 diffs)
-
htdocs/central/dataentry/toolbar_record.php (modified) (2 diffs)
-
htdocs/central/dataentry/wxis/loans/prestamo_disponibilidad.xis (modified) (2 diffs)
-
htdocs/central/dataentry/wxis/z3950_cnv.xis (modified) (1 diff)
-
htdocs/central/dataentry/z3950-01.php (modified) (3 diffs)
-
htdocs/central/dataentry/z3950.php (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
sandbox/Guilda/bases/lang/00/admin.tab
r640 r1077 248 248 listterm=List of terms 249 249 resetautoinc=*Reset last inventory or control number* 250 m_copyrec=Copy this record at the end of the database 251 -
sandbox/Guilda/bases/lang/00/dbadmin.tab
r823 r1077 1 1 admtit=Administration 2 fstconverted=.fst Converted 3 fstuploaded=.fst Uploaded 2 4 borrartodo=All the records, files and folders of the database will be deleted 3 5 init=Initialized … … 44 46 editcreate=Edit/create 45 47 editcreatepl=Edit/create the picklist for the field. Click on the list to assign an existing one. Once the selection is done, click on 48 verifyperms=The file could not be update. Check the permissions 49 filenotupd=The file <b>formatos.dat </b> could not be update. Check the permissions 46 50 nocopyfile=Cannot copy the file 47 51 copiar=Copy 48 52 extractas=Extract as 53 extrpft=Extraction format 49 54 fst=Field selection table (FST) 50 55 fn=Field name … … 55 60 help=help 56 61 inputtype=Input type 62 howtooperators=How to assign operators?itech=I.Techniqueinputtype=Input type 57 63 invtag=invalid tag 58 64 listas=List as … … 91 97 assusdb=Remember to assign the users of ABCD who will have access to the new database 92 98 assop=How to assign operators? 99 remrow=Remove Selected Row 93 100 rep=Rep 94 101 transferres=Row 95 102 row=Rows 96 103 rows=rows 104 errorexpla=See error explanation 97 105 cols=cols 98 106 column=Columns … … 127 135 ft_ai=Auto increment 128 136 ft_od=Operator and Date 129 ft_m5=Date 137 ft_m5=Date(MARC 005) 130 138 ft_iso=Date (ISO) 131 139 ft_oper=Operator (created) 132 140 ft_date=Date (created) 133 141 it_x=Text/Textarea 134 it_xf=Text 142 it_xf=Text(fixed length) 135 143 it_tb=Table 136 144 it_p=Password … … 168 176 type=Type 169 177 title=Title 178 txtfile=Type 170 179 update=Update 171 180 updbdef=Update database definitions … … 176 185 validate=Validate 177 186 insplname=You must supply the name of the picklist table 187 dbexists=There is another database with the same name 178 188 winisisdb=WinIsis database 179 189 traducir=Messages and labels … … 190 200 nopudoseractualizado=Could not be updated. Check permission 191 201 list=List 202 edithelp=edit help 192 203 id=Id 193 204 intec=Indexing Tech. … … 224 235 typeofrecerror=You must select a Worksheet, at least one value and a description for the type of record 225 236 typeofrecnowks=You must define first the Worksheet to be assigned to the type of record 226 folderne=Folder does not exist 237 folderne=Folder does not exists 238 dbinitialized=Initialized 227 239 foldernotc=The folder could not be created 228 ne=Does not exist 240 ne=Does not exists 229 241 gotoadm=Go to Database administration 230 242 print=Print services … … 283 295 typeofrecord_aw=Type of records - Assign worksheets 284 296 browse=Browse 297 areysure=Are you sure? -
sandbox/Guilda/htdocs/central/dataentry/actualizarregistro.php
r759 r1077 65 65 // repetible con subcampos 66 66 if ($rep=="T") { 67 $dummy= split("\n",$variables["tag".$tag]);67 $dummy=explode("\n",$variables["tag".$tag]); 68 68 $salida=""; 69 69 foreach ($dummy as $linea) { … … 96 96 if (isset($arrHttp["check_select"])){ 97 97 $dummy=array(); 98 $dummy= split("\n",$arrHttp["check_select"]);98 $dummy=explode("\n",$arrHttp["check_select"]); 99 99 foreach ($dummy as $value){ 100 100 $ixD=strpos($value,"_"); … … 133 133 $lin=stripslashes($lin); 134 134 // $lin=str_replace("'","´",$lin); 135 $campo= split("\n",$lin);135 $campo=explode("\n",$lin); 136 136 foreach($campo as $lin){ 137 137 if (trim($lin)!="") $VC.=$k." ".$lin."\n"; … … 143 143 144 144 $x=isset($default_values); 145 $fatal_cn=""; 146 $fatal=""; 145 147 if ($arrHttp["Opcion"]!="eliminar"){ 146 148 if (isset($default_values) or isset($rec_validation) or isset($end_code)){ … … 153 155 $nc=""; 154 156 include("autoincrement.php"); 155 if ($cn=="" ){156 157 if ($cn=="" or $cn==false){ 158 $fatal_cn=$msgstr["notgenerate"]; 157 159 }else{ 158 160 $key=$arrHttp["autoincrement"]; … … 180 182 $tl=strtolower($t[1]); 181 183 $nr=strtolower($t[2]); 182 $pftval=$tl."_".$nr."_".$arrHttp["base"].".val"; 184 $pftval=$tl; 185 if (isset($nr) and $nr!="") 186 $pftval.="_".$nr; 187 $pftval.="_".$arrHttp["base"].".val"; 183 188 break; 184 189 } … … 198 203 $output=""; 199 204 if (file_exists($file_val)){ 200 $fatal=""; 205 201 206 include("recval_check.php"); 202 if ($fatal=="Y") { 203 echo "<div class=\"middle form\"> 204 <div class=\"formContent\"> 205 "; 206 207 echo "<p><font color=red><strong>".$msgstr["recnotupdated"]."</strong></font>"; 208 $error= $output; 209 echo $output; 210 $url= "fmt.php?base=".$arrHttp["base"]."&cipar=".$arrHttp["base"].".par&ValorCapturado=$VC&Opcion=reintentar&Mfn=".$arrHttp["Mfn"]."&error=".urlencode($error)."&Formato=".$arrHttp["Formato"]; 211 if (isset($arrHttp["wks_a"])) $url.="&wks=".$arrHttp["wks_a"]; 212 $url.="&ver=N"; 213 if (isset($arrHttp["db_copies"])) $url.="&db_copies=".$arrHttp["db_copies"]; 214 echo "<p><a href=$url><h3>".$msgstr["editar"]."</h3></a>"; 215 echo "</div></div>"; 216 die; 217 } 218 } 219 echo $output; //VALIDATION RESULTS 220 } 207 208 } 209 } 210 } 211 if ($fatal=="Y" or $fatal_cn!="") { 212 echo "<div class=\"middle form\"> 213 <div class=\"formContent\"> 214 "; 215 216 echo "<p><font color=red><strong>".$msgstr["recnotupdated"]."</strong></font>"; 217 $error= $output; 218 echo $output."<p><font color=red><strong>".$msgstr["cwritefile"]. "control_number.cn"."</strong></font>"; 219 $url= "fmt.php?base=".$arrHttp["base"]."&cipar=".$arrHttp["base"].".par&ValorCapturado=$VC&Opcion=reintentar&Mfn=".$arrHttp["Mfn"]."&error=".urlencode($error)."&Formato=".$arrHttp["Formato"]; 220 if (isset($arrHttp["wks_a"])) $url.="&wks=".$arrHttp["wks_a"]; 221 $url.="&ver=N"; 222 if (isset($arrHttp["db_copies"])) $url.="&db_copies=".$arrHttp["db_copies"]; 223 echo "<p><a href=$url><h3>".$msgstr["editar"]."</h3></a>"; 224 echo "</div></div>"; 225 die; 226 }else{ 227 echo $output; 221 228 } 222 229 $IsisScript=$xWxis."actualizar.xis"; … … 225 232 $salida=""; 226 233 foreach ($contenido as $linea){ 234 //echo $linea."<br>"; 227 235 if (substr($linea,0,4)=="MFN:") { 228 236 $arrHttp["Mfn"]=trim(substr($linea,4)); -
sandbox/Guilda/htdocs/central/dataentry/autoincrement.php
r999 r1077 1 1 <?php 2 /** 3 * @program: ABCD - ABCD-Central - http://reddes.bvsaude.org/projects/abcd 4 * @copyright: Copyright (C) 2009 BIREME/PAHO/WHO - VLIR/UOS 5 * @file: autoincrement.php 6 * @desc: Calculate the next number to be assigned in the autoincrement field 7 * @author: Guilda Ascencio 8 * @since: 20091203 9 * @version: 1.0 10 * 11 * == BEGIN LICENSE == 12 * 13 * This program is free software: you can redistribute it and/or modify 14 * it under the terms of the GNU Lesser General Public License as 15 * published by the Free Software Foundation, either version 3 of the 16 * License, or (at your option) any later version. 17 * 18 * This program is distributed in the hope that it will be useful, 19 * but WITHOUT ANY WARRANTY; without even the implied warranty of 20 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 21 * GNU Lesser General Public License for more details. 22 * 23 * You should have received a copy of the GNU Lesser General Public License 24 * along with this program. If not, see <http://www.gnu.org/licenses/>. 25 * 26 * == END LICENSE == 27 */ 2 28 // se determina el n� siguiente del campo autoincremente 3 29 $cn=""; 4 30 $archivo=$db_path.$arrHttp["base"]."/data/control_number.cn"; 5 31 if (!file_exists($archivo)){ 32 $cn=false; 33 return; 34 } 6 35 $perms=fileperms($archivo); 7 36 if (is_writable($archivo)){ … … 11 40 $fp=file($archivo); 12 41 $cn=trim(implode("",$fp)); 13 $cn ++;42 $cn=$cn+1; 14 43 // se remueve el archivo .bak y se renombre el archivo .cn a .bak 15 44 if (file_exists($db_path.$arrHttp["base"]."/data/control_number.bak")) 16 45 unlink($db_path.$arrHttp["base"]."/data/control_number.bak"); 17 46 $res=rename($archivo,$db_path.$arrHttp["base"]."/data/control_number.bak"); 18 chmod($db_path.$arrHttp["base"]."/data/control_number.bak", 0666);47 chmod($db_path.$arrHttp["base"]."/data/control_number.bak",$perms); 19 48 $fp=fopen($archivo,"w"); 20 49 fwrite($fp,$cn); 21 22 chmod($archivo, 0666);50 fclose($fp); 51 chmod($archivo,$perms); 23 52 }else{ 24 echo $msgstr["cwritefile"]. " ". $archivo;53 $cn=false; 25 54 } 55 26 56 ?> -
sandbox/Guilda/htdocs/central/dataentry/browse.php
r1007 r1077 3 3 * @program: ABCD - ABCD-Central - http://reddes.bvsaude.org/projects/abcd 4 4 * @copyright: Copyright (C) 2009 BIREME/PAHO/WHO - VLIR/UOS 5 * @file: Browse database records5 * @file: browse.php 6 6 * @desc: SHOWS THE RECORD OF A DATABASE IN A TABLE VIEW 7 7 * @author: Guilda Ascencio … … 51 51 $Expresion=str_replace ("*", $xand, $Expresion); 52 52 while (is_integer(strpos($Expresion,'"'))){ 53 $nse ++;53 $nse=$nse+1; 54 54 $pos1=strpos($Expresion,'"'); 55 55 $xpos=$pos1+1; … … 198 198 199 199 function PresentarDiccionario(){ 200 msgwin=window.open("","Diccionario","scrolling, height= 400")200 msgwin=window.open("","Diccionario","scrolling, height=500,width=600") 201 201 ix=document.forma1.indexes.selectedIndex 202 202 if (ix<1){ … … 218 218 document.eliminar.Mfn.value=Mfn 219 219 document.eliminar.submit() 220 } 221 222 function Mostrar(Mfn){ 223 msgwin=window.open("show.php?base=<?php echo $arrHttp["base"]?>&cipar=<?php echo $arrHttp["base"]?>.par&Mfn="+Mfn+"&encabezado=s&Opcion=editar","show","width=600,height=400,scrollbars, resizable") 224 msgwin.focus() 220 225 } 221 226 </script> … … 346 351 echo "</td>"; 347 352 for ($ix=4;$ix<count($u);$ix++) echo "<td>" .$u[$ix]."</td>"; 348 echo "<td class=\"action\" >353 echo "<td class=\"action\" nowrap> 349 354 <a href=javascript:Editar($Mfn,$Status)> 350 355 <img src=\"../images/edit.png\" alt=\"".$msgstr["edit"]."\" title=\"".$msgstr["edit"]."\" /></a> 351 <a href= show.php?base=".$arrHttp["base"]."&cipar=".$arrHttp["base"].".par&Mfn=$Mfn".$encabezado."&Opcion=editar target=_blank><img src=\"../images/zoom.png\" alt=\"".$msgstr["show"]."\" title=\"".$msgstr["show"]."\" /></a>";356 <a href=javascript:Mostrar(".$Mfn.")><img src=\"../images/zoom.png\" alt=\"".$msgstr["show"]."\" title=\"".$msgstr["show"]."\" /></a>"; 352 357 if ($Status==0) echo " 353 358 <a href=\"javascript:Eliminar($Mfn)\"><img src=\"../images/delete.png\" alt=\"".$msgstr["eliminar"]."\" title=\"".$msgstr["eliminar"]."\" /></a>"; … … 410 415 echo "<input type=hidden name=return value=".$arrHttp["return"].">\n"; 411 416 } 412 $desde ++;417 $desde=$desde+1; 413 418 echo "</form> 414 419 <form name=diccionario method=post action=diccionario.php target=Diccionario> -
sandbox/Guilda/htdocs/central/dataentry/dibujarhojaentrada.php
r998 r1077 197 197 if (!$ver) { 198 198 $linea=$ind[$j]; 199 $type_de=explode( "|",$linea);199 $type_de=explode('|',$linea); 200 200 $Etq=$tag."_".$i."_".substr($subc,$j,1); 201 echo "<td bgcolor=#FFFFFF valign=top >";201 echo "<td bgcolor=#FFFFFF valign=top nowrap>"; 202 202 if ($type_de[10]=="D"){ 203 203 if ($j==0){ … … 360 360 $j=0; 361 361 $ixo=-1; 362 $val= split("\n",$valor);362 $val=explode("\n",$valor); 363 363 foreach ($fp as $linea){ 364 364 $linea=trim($linea); … … 376 376 $opcVal="^".substr($subc,0,1).$opc[0]."^".substr($subc,1,1).$opc[1]; 377 377 } 378 $i ++;378 $i=$ix+1; 379 379 380 380 if ($tipo=="R") echo "<input type=radio name=tag$tag value=\"".$opcVal."\""; … … 444 444 echo "<select name=tag$tag $TipoS >\n"; 445 445 echo "<option value=\"\">"; 446 $val= split("\n",$valor);446 $val=explode("\n",$valor); 447 447 foreach ($fp as $linea){ 448 448 if ($opciones=="%path_database%bases.dat" and ($arrHttp["base"]=="purchaseorder" or $arrHttp["base"]=="suggestions")){ // aqui se filtran las bases de datos para adquisiciones … … 492 492 493 493 function TextBox($linea,$fondocelda,$titulo,$ver,$len,$tag,$ksc,$rep,$delimrep,$ayuda){ 494 global $ixicampo,$valortag,$arrHttp,$Path,$Marc,$db_path,$lang_db,$msgstr ;494 global $ixicampo,$valortag,$arrHttp,$Path,$Marc,$db_path,$lang_db,$msgstr,$MD5; 495 495 496 496 $t=explode('|',$linea); … … 541 541 if ($tipo=="XF") $len=$cols." maxlength=$cols"; 542 542 543 if ( $numl>1 or $rep=="1"){543 if (($numl>1 or $rep=="1") and $tipo!="AI"){ 544 544 //if ($numl<=1 ) $numl=2; 545 545 if ($len==0) $len="100%"; 546 546 if ($tipo=="RO") 547 547 $it="text onfocus=blur()"; … … 554 554 case "P": 555 555 $it="password"; 556 $campo="";556 if ($MD5==1)$campo=""; 557 557 break; 558 558 case "AI": … … 630 630 if (isset($t[14])) if (substr($t[13],0,1)!="@") $fe.=urlencode('`$$$`'.$t[14]); 631 631 if ($t[0]=="H"){ 632 $ixTab ++;632 $ixTab=$ixTab+1; 633 633 634 634 $fondocelda="#ffffff"; … … 688 688 if ($t[10]="D") { 689 689 $autoridades=$t[11]; 690 if ($autoridades=="") $autoridades=$base; 690 if ($autoridades=="") $autoridades=$arrHttp["base"]; 691 691 692 } 692 693 $Repetible=""; … … 705 706 }else{ 706 707 if ($tipo=="M") { 707 $xxwk=explode( "|",$arrHttp["wks_a"]);708 $xxwk=explode('|',$arrHttp["wks_a"]); 708 709 if (isset($xxwk[4])){ 709 710 $fe=$xxwk[4]; … … 855 856 $ixsc=999; 856 857 }else{ 857 $ksc ++;858 $ksc=$ksc+1; 858 859 $filas[]=rtrim($linea); 859 $ld=explode( "|",$linea);860 $ld=explode('|',$linea); 860 861 $ldr_tit[$ksc]= "<tr><td>".$ld[2]." (".$ld[1].")</td>"; 861 862 //echo "<td align=center>".$ld[2]." (".$ld[1].")</td>"; … … 865 866 $ksc=0; 866 867 foreach ($filas as $linea){ 867 $ksc ++;868 $ksc=$ksc+1 ; 868 869 echo $ldr_tit[$ksc]; 869 870 $ld=explode("|",$linea); … … 985 986 $ixsc=999; 986 987 }else{ 987 $ksc ++;988 $ksc=$ksc+1; 988 989 $filas[]=rtrim($linea); 989 990 } -
sandbox/Guilda/htdocs/central/dataentry/fmt.php
r735 r1077 48 48 global $xEditor,$xUrlEditor,$Marc,$Leader,$fdt,$tab_prop,$Html_ingreso,$tl,$nr; 49 49 $tab_prop=""; 50 $ArchivoTexto=""; //para colocar el nombre del archivo de texto para la continuaci� $FdtHtml="";50 $ArchivoTexto=""; //para colocar el nombre del archivo de texto para la continuaci�FdtHtml=""; 51 51 $kardex=""; //para indicar la presencia de una KK 52 52 $valortag = Array(); … … 100 100 $avail_wks=0; 101 101 if (isset($_SESSION["permiso"]["CENTRAL_ALL"]) or isset($_SESSION["permiso"][$arrHttp["base"]."_fmt_ALL"]) or $avail_wks==1){ 102 $i ++;102 $i=$i+1; 103 103 $wks_p[$cod]="Y"; 104 104 } … … 165 165 function EjecutarBusqueda(){ 166 166 global $arrHttp,$db_path,$xWxis,$Wxis,$valortag,$tl,$nr,$Mfn,$wxisUrl,$lang_db,$msgstr,$registro,$Expresion; 167 167 168 $Expresion=stripslashes($arrHttp["Expresion"]); 168 169 $Expresion=str_replace('\"','"',$Expresion); … … 190 191 $query = "&base=".$arrHttp["base"] ."&cipar=$db_path"."par/".$arrHttp["cipar"]."&Expresion=".$Expresion."&count=1&from=".$arrHttp["from"]."&Formato=$Formato"; 191 192 include("../common/wxis_llamar.php"); 192 193 foreach ($ contenidoas $linea){193 $ficha_bib=$contenido; 194 foreach ($ficha_bib as $linea){ 194 195 $linea=trim($linea); 195 196 if ($linea!="") { 196 if (substr($linea,0,6)=="[MFN:]"){ 197 $arrHttp["Mfn"]=trim(substr($linea,6)); 198 echo "\n<script>top.Mfn_Search=".$arrHttp["Mfn"]." 199 200 top.mfn=".$arrHttp["from"]." 201 if (top.mfn==0) top.mfn=1 202 top.browseby='search'\n</script>\n"; 203 }else{ 204 if (substr($linea,0,8)=="[TOTAL:]"){ 205 if(trim(substr($linea,8))==0){ 206 //echo "Total: 0"; 207 return "0"; 208 echo "\n<script>top.Max_Search=0 209 </script>\n"; 210 break; 197 if (substr($linea,0,6)=='$$REF:'){ 198 $ref=substr($linea,6); 199 $f=explode(",",$ref); 200 $bd_ref=$f[0]; 201 $pft_ref=$f[1]; 202 $expr_ref=$f[2]; 203 $IsisScript=$xWxis."cipres_usuario.xis"; 204 $query = "&cipar=$db_path"."par/".$arrHttp["cipar"]. "&Expresion=".$expr_ref."&Opcion=buscar&base=" .$bd_ref."&Formato=$pft_ref.pft"; 205 include("../common/wxis_llamar.php"); 206 foreach($contenido as $linea_alt) $registro.= "$linea_alt\n"; 207 }else{ 208 if (substr($linea,0,6)=="[MFN:]"){ 209 $arrHttp["Mfn"]=trim(substr($linea,6)); 210 echo "\n<script>top.Mfn_Search=".$arrHttp["Mfn"]." 211 212 top.mfn=".$arrHttp["from"]." 213 if (top.mfn==0) top.mfn=1 214 top.browseby='search'\n</script>\n"; 215 }else{ 216 if (substr($linea,0,8)=="[TOTAL:]"){ 217 if(trim(substr($linea,8))==0){ 218 //echo "Total: 0"; 219 return "0"; 220 echo "\n<script>top.Max_Search=0 221 </script>\n"; 222 break; 223 }else{ 224 echo "\n<script>top.Max_Search=".trim(substr($linea,8))." 225 \n</script>\n"; 226 } 211 227 }else{ 212 echo "\n<script>top.Max_Search=".trim(substr($linea,8))." 213 \n</script>\n"; 214 } 215 }else{ 216 if ($arrHttp["Formato"]!="ALL"){ 217 $arrHttp["Opcion"]="ver"; 218 $registro.= "$linea\n"; 219 }else{ 220 $registro.=$linea."\n"; 221 $arrHttp["Opcion"]="ver"; 228 if ($arrHttp["Formato"]!="ALL"){ 229 $arrHttp["Opcion"]="ver"; 230 $registro.= "$linea\n"; 231 }else{ 232 $registro.=$linea."\n"; 233 $arrHttp["Opcion"]="ver"; 234 } 222 235 } 223 236 } … … 235 248 return "no"; 236 249 } 237 $contenido= split("\n",$registro);250 $contenido=explode("\n",$registro); 238 251 $valortag=array(); 239 252 $ic=-1; … … 331 344 $ixpos=strpos($var,"_"); 332 345 if ($ixpos!=0) { 333 $occ= split("_",$var);346 $occ=explode("_",$var); 334 347 if (trim($value)!=""){ 335 348 $value="^".trim($occ[2]).$value; … … 452 465 // end settings 453 466 454 if ($arrHttp["Opcion"]=="ver" or $arrHttp["Opcion"]=="cancelar" or $arrHttp["Opcion"]=="buscar" or ($arrHttp["Opcion"]=="actualizar") ) { 467 if ($arrHttp["Opcion"]=="ver" or $arrHttp["Opcion"]=="cancelar" or $arrHttp["Opcion"]=="buscar" or ($arrHttp["Opcion"]=="actualizar") ) { 468 469 455 470 if (isset($arrHttp["sort"])) 456 471 $sort="&sort=".$arrHttp["sort"]; … … 467 482 foreach ($arrHttp as $var => $value) { 468 483 if (substr($var,0,3)=="tag" ){ 469 $tag= split("_",$var);484 $tag=explode("_",$var); 470 485 if (substr($tag[0],3)>3000 and substr($tag[0],3)<4000){ //IF LEADER, REFORMAT THE FIELD FOR ELIMINATING | 471 486 $v=explode('|',$value); … … 484 499 //foreach ($valortag as $key => $value) echo "$key=$value<br>"; 485 500 486 // Si la opcion es copiar_captura, se cambia la base de datos para poder leer los archivos de definici� 487 if ($arrHttp["Opcion"]=="captura_bd") { 501 // Si la opcion es copiar_captura, se cambia la base de datos para poder leer los archivos de definici�if ($arrHttp["Opcion"]=="captura_bd") { 488 502 $basecap=$arrHttp["base"]; 489 503 $ciparcap=$arrHttp["cipar"]; … … 679 693 <div class=\"formContent\">\n"; 680 694 echo $salida; 695 //SE AVERIGUA SE SE VA A LEER LA INFORMACI� DE OTRA BASE DE DATOS 681 696 if (isset($record_deleted) and $record_deleted=="Y"){ 682 697 echo "<a href=javascript:Undelete(".$arrHttp["Mfn"].")>undelete</a>"; -
sandbox/Guilda/htdocs/central/dataentry/formulariodebusqueda.php
r759 r1077 1 1 <?php 2 3 2 function DibujarFormaBusqueda(){ 4 3 global $arrHttp,$camposbusqueda,$db_path,$tagisis,$msgstr; … … 6 5 // Prepare the advanced search form 7 6 8 echo "<link rel=stylesheet href=../css/styles.css type=text/css>\n";9 7 echo "<style type=text/css> 10 8 #myvar { … … 32 30 foreach ($fp as $value){ 33 31 if (trim($value)!=""){ 34 $ix ++;32 $ix=$ix+1; 35 33 $stored[$ix]=trim($value); 36 34 echo "str_search[$ix]=\"".trim($value)."\"\n"; … … 43 41 44 42 <script languaje=javascript> 43 document.onkeypress = 44 function (evt) { 45 var c = document.layers ? evt.which 46 : document.all ? event.keyCode 47 : evt.keyCode; 48 if (c==13) PrepararExpresion() 49 return true; 50 } 51 45 52 function CopyExpr(){ 46 53 Opc=str_search[stored] … … 228 235 foreach ($camposbusqueda as $linea) { 229 236 230 $ix ++;237 $ix=$ix+1; 231 238 $l=explode('|',$linea); 232 239 if (!isset($l[3])) $l[3]=""; … … 252 259 "; 253 260 254 echo "<form method=post name=forma1 action=../dataentry/buscar.php \"onSubmit=Javascript:return false\" >";261 echo "<form method=post name=forma1 action=../dataentry/buscar.php onSubmit=\"javascript:return false\" >"; 255 262 256 263 echo '<input type=hidden name=tag8999 value="">'; … … 328 335 echo "</table>\n"; 329 336 echo "</form>\n"; 337 echo "<script>document.forma1.expre[0].blur()</script>\n"; 330 338 echo "<form name=diccio method=post action=../dataentry/diccionario.php target=Diccionario>\n"; 331 339 … … 359 367 } 360 368 ?> 369 370 <script>document.forma1.expre[0].focus()</script> -
sandbox/Guilda/htdocs/central/dataentry/imprimir_g.php
r1007 r1077 135 135 } 136 136 foreach ($contenido as $linea){ 137 $data.= $linea."\n" ; 137 if (substr($linea,0,6)=='$$REF:'){ 138 $ref=substr($linea,6); 139 $f=explode(",",$ref); 140 $bd_ref=$f[0]; 141 $pft_ref=$f[1]; 142 $expr_ref=$f[2]; 143 $IsisScript=$xWxis."buscar.xis"; 144 $query = "&cipar=$db_path"."par/".$arrHttp["cipar"]. "&Expresion=".$expr_ref."&Opcion=buscar&base=" .$bd_ref."&Formato=$pft_ref"; 145 include("../common/wxis_llamar.php"); 146 foreach($contenido as $linea) $data.= "$linea\n"; 147 }else{ 148 $data.= $linea."\n" ; 149 } 150 151 138 152 } 139 153 switch ($arrHttp["vp"]){ -
sandbox/Guilda/htdocs/central/dataentry/leerregistroisis.php
r759 r1077 38 38 if ($ic==-1){ 39 39 $linea=trim(substr($linea,0,strlen($linea)-4)); 40 $arr= split('##',$linea);40 $arr=explode('##',$linea); 41 41 $mfn=substr(trim($arr[1]),4); 42 42 $ic=2; … … 120 120 $salida.= "</td></table></dd>"; 121 121 }else{ 122 $cont=$contenido; 122 123 foreach ($contenido as $linea) { 123 if (strpos($linea,'$$DELETED')===false){ 124 $salida.= $linea."\n"; 125 }else{ 126 $salida.= "<h1> ".$arrHttp["Mfn"]." ".$msgstr["recdel"]."</h1>"; 127 $record_deleted="Y"; 124 $lines=trim($linea); 125 if (substr($linea,0,6)=='$$REF:'){ 126 $ref=substr($linea,6); 127 $f=explode(",",$ref); 128 $bd_ref=$f[0]; 129 $pft_ref=$f[1]; 130 $expr_ref=$f[2]; 131 $IsisScript=$xWxis."buscar.xis"; 132 $query = "&cipar=$db_path"."par/".$arrHttp["cipar"]. "&Expresion=".$expr_ref."&Opcion=buscar&base=" .$bd_ref."&Formato=$pft_ref"; 133 include("../common/wxis_llamar.php"); 134 foreach($contenido as $linea) $salida.= "$linea\n"; 135 }else{ 136 if (strpos($linea,'$$DELETED')===false){ 137 $salida.= $linea."\n"; 138 }else{ 139 $salida.= "<h1> ".$arrHttp["Mfn"]." ".$msgstr["recdel"]."</h1>"; 140 $record_deleted="Y"; 141 } 128 142 } 129 143 } -
sandbox/Guilda/htdocs/central/dataentry/plantilladeingreso.php
r759 r1077 1 1 <?php 2 3 2 function ConstruyeWorksheetFMT(){ 4 3 … … 70 69 foreach ($fixed as $fx){ 71 70 if (trim($fx)!="") { 72 $ix ++;71 $ix=$ix+1; 73 72 $vars[$ix]=$fx; 74 73 } 75 74 } 76 75 }else{ 77 $ix ++;76 $ix=$ix+1; 78 77 $vars[$ix]=$value; 79 78 } … … 86 85 if ($vx[1]==$tx[0] or $primeravez=="N"){ 87 86 if ($primeravez=="S"){ 88 $ix ++;87 $ix=$ix+1; 89 88 $vars[$ix]=$lin; 90 89 $primeravez="N"; … … 93 92 break; 94 93 }else{ 95 $ix ++;94 $ix=$ix+1; 96 95 $vars[$ix]=$lin; 97 96 } … … 107 106 function ConstruyeWorksheetFDT($tm){ 108 107 global $arrHttp,$vars,$db_path,$lang_db,$msgstr; 109 $base=$arrHttp["base"]; 108 if (!isset($arrHttp["base"])){ 109 $base=$arrHttp["db"]; 110 }else{ 111 $base=$arrHttp["base"]; 112 } 113 110 114 $fpDb_fdt = $db_path.$base."/def/".$_SESSION["lang"]."/"."$base.fdt"; 111 115 if (!file_exists($fpDb_fdt)) { -
sandbox/Guilda/htdocs/central/dataentry/recval_check.php
r759 r1077 1 1 <?php 2 3 2 $tag=array(); 4 3 $pft=array(); … … 31 30 $rec_validation.= "'$tag_val: ',".$v[0].",mpl '$$$$',"; 32 31 } 33 $ix_fatal ++;32 $ix_fatal=$ix_fatal+1; 34 33 if (isset($v[1])) 35 34 $err[$ix_fatal]=$v[1]; … … 40 39 } 41 40 // echo $rec_validation; 42 43 41 $formato=urlencode($rec_validation); 44 $query = "&base=".$arrHttp["base"] ."&cipar=$db_path"."par/".$arrHttp["base"].".par&Pft=".$formato."&ValorCapturado=".$ValorCapturado; 42 if ($arrHttp["Mfn"]=="New") 43 $Mfn_val=0; 44 else 45 $Mfn_val=$arrHttp["Mfn"]; 46 $VC_val=$ValorCapturado.urlencode("\n3333".$Mfn_val); 47 $query = "&base=".$arrHttp["base"] ."&cipar=$db_path"."par/".$arrHttp["base"].".par&Pft=".$formato."&ValorCapturado=".$VC_val; 45 48 $IsisScript=$xWxis."z3950_cnv.xis"; 46 49 include("../common/wxis_llamar.php"); 50 47 51 $recval_pft=""; 48 52 $res=implode("\n",$contenido); … … 52 56 foreach ($linea as $v_value){ 53 57 $v_value=trim($v_value); 54 $ix_fatal ++;58 $ix_fatal=$ix_fatal+1; 55 59 if ($v_value!=""){ 56 60 $v_ix=strpos($v_value,':'); -
sandbox/Guilda/htdocs/central/dataentry/scripts_dataentry.php
r735 r1077 68 68 <script language=Javascript src=../dataentry/js/lr_trim.js></script> 69 69 <script language=javascript src=../dataentry/fckeditor.js></script> 70 <!-- <script language=javascript src=<?php echo $arrHttp["base"]?>.js></script> //FOR FUTURE USE WHEN IMPLEMENTING VALIDATIONS SCRIPTS ON DATAENTRY --> 70 71 <?php if (file_exists("../dataentry/js/".$arrHttp["base"].".js")) 72 echo "<script language=javascript src=".$arrHttp["base"].".js></script>\n"; 73 ?> 71 74 72 75 <script> … … 225 228 function ChangeSeq(ix,prefix){ 226 229 msgwin=window.open("","CHANGE","width=400, height=200, scrollbars=yes") 227 msgwin.document.writeln("<b><? echo $msgstr["bd"]."</b>: ". $arrHttp["base"]?>")230 msgwin.document.writeln("<b><?php echo $msgstr["bd"]."</b>: ". $arrHttp["base"]?>") 228 231 msgwin.document.writeln("<form name=cn method=post action=../dataentry/changeseq.php>") 229 232 msgwin.document.writeln("<input type=hidden name=base value=<?php echo $arrHttp["base"]?>>") -
sandbox/Guilda/htdocs/central/dataentry/toolbar_record.php
r759 r1077 1 1 <?php 2 3 2 echo "<div class=\"helper\" style=\"height:23px\">\n" ; 4 3 if (!isset($fmt_test)){ … … 80 79 case "buscar": 81 80 case "presentar_captura": 82 if (isset($_SESSION["permiso"]["CENTRAL_EDREC"]) or isset($_SESSION["permiso"]["CENTRAL_ALL"])) echo " <a href=\"javascript:top.Menu('editar')\" title=\"".$msgstr["m_editar"]."\"><img src=img/toolbarEdit.png alt=\"".$msgstr["m_editar"]."\" style=\"border:0;\"></a> \n"; 81 case "dup_record": 82 if (isset($_SESSION["permiso"]["CENTRAL_EDREC"]) or isset($_SESSION["permiso"]["CENTRAL_ALL"])) { 83 echo " <a href=\"javascript:top.Menu('editar')\" title=\"".$msgstr["m_editar"]."\"><img src=img/toolbarEdit.png alt=\"".$msgstr["m_editar"]."\" style=\"border:0;\"></a> \n"; 84 echo " <a href=\"javascript:top.Menu('dup_record')\" title=\"".$msgstr["m_copyrec"]."\"><img src=img/toolbarCopy.png alt=\"".$msgstr["m_copyrec"]."\" style=\"border:0;\"></a> \n"; 85 } 83 86 if (isset($_SESSION["permiso"]["CENTRAL_DELREC"]) or isset($_SESSION["permiso"]["CENTRAL_ALL"])) echo "<a href=\"javascript:top.Menu('eliminar')\" title=\"".$msgstr["m_eliminar"]."\"><img src=img/toolbarDelete.png alt=\"".$msgstr["m_eliminar"]."\" style=\"border:0;\"></a> \n"; 84 87 if (isset($_SESSION["permiso"]["CENTRAL_Z3950CAT"]) or isset($_SESSION["permiso"]["CENTRAL_ALL"])) echo "<a href=\"javascript:top.Menu('edit_Z3950')\" title=\"Z39.50\"><img src=img/z3950.png alt=\"Z39.50\" style=\"border:0;\"></a>\n"; -
sandbox/Guilda/htdocs/central/dataentry/wxis/loans/prestamo_disponibilidad.xis
r206 r1077 27 27 </flow> 28 28 29 <!-- Se busca el libro en la base de datos para ver el n� de ejemplares -->30 <!-- Si activa desde un usuario la expresi�e b�da se genera en el paso anterior -->31 29 32 30 <do task=search> 33 <parm name=db><pft> 'trans'</pft></parm>31 <parm name=db><pft>v5001</pft></parm> 34 32 <parm name=from><pft>v4000,"1"n4000</pft></parm> 35 33 <parm name=count><pft>v4001</pft></parm> … … 42 40 <field action=import tag=3000>3000</field> 43 41 <display> 44 <pft> if v1='P' then (v800^c'^'v800^n'^'v800^a,"/"v800^t'^'v800^p'^'v800^h'^'v800^o,'^'f(mfn,1,0)/) fi</pft>42 <pft></pft> 45 43 </display> 46 44 </loop> -
sandbox/Guilda/htdocs/central/dataentry/wxis/z3950_cnv.xis
r351 r1077 9 9 <field action=cgi tag=3030>Pft</field> 10 10 <field action=cgi tag=9088>cttype</field> 11 <field action=cgi tag=8000>path_db</field> 11 <field action=cgi tag=1>path_db</field> 12 <parm name=cipar> 13 <pft>if p(v5015) then replace(s(cat(v5015)),'%path_database%',v1)/fi</pft> 14 </parm> 12 15 <display><pft></pft></display> 13 16 <display><pft>if p(v9088) then 'Content-type: text/html'/# fi</pft></display> -
sandbox/Guilda/htdocs/central/dataentry/z3950-01.php
r1007 r1077 372 372 while ($i < $max_hits && $number > 1) { 373 373 echo ' '; 374 if ($start != $i) { echo '<a href=z3950-01.php?'; 374 if ($start != $i) { 375 376 echo '<a href=z3950-01.php?'; 375 377 echo "start=$i&number=$number&reintentar=$intentos&"; 376 378 echo $host_url."^s$syntax^f$element"; … … 386 388 echo '</a>'; 387 389 } 388 $tope ++;390 $tope=$tope+1; 389 391 if ($tope>10){ 390 392 echo "<br>"; … … 400 402 </td></tr> 401 403 </table> 404 <input type=hidden name=marc> 402 405 </form> 403 406 </div></div> -
sandbox/Guilda/htdocs/central/dataentry/z3950.php
r1007 r1077 205 205 <?php 206 206 if (isset($arrHttp["Mfn"])) echo "<input type=hidden name=Mfn value=".$arrHttp["Mfn"].">\n"; //COPY TO AN EXISTENT RECORD 207 208 207 if (isset($arrHttp["test"])){ 209 208 echo "<input type=submit value='".$msgstr["cerrar"]."' onclick=javascript:self.close()>\n"; 210 209 echo "<input type=hidden name=test value=Y>\n"; 211 }else{ 212 echo "<input type=button value=\"".$msgstr["cerrar"]."\" onclick=\"javascript:top.Menu('same')\">"; 210 213 211 } 214 212 ?>
