$fp = file($db_path . "loans.dat");
$sel_base = "S";
?>
<table width=100% border=0>
<td width=150>
<label for="dataBases">
<strong><?php
echo $msgstr["basedatos"];
?>
</strong>
</label>
</td><td>
<select name=db>
<option></option>
<?php
$xselected = " selected";
foreach ($fp as $value) {
$value = trim($value);
$v = explode('|', $value);
//SE LEE EL PREFIJO PARA OBTENER EL NUMERO DE INVENTARIO DE LA BASE DE DATOS
LeerNumeroClasificacion($v[0]);
$pft_ni = LeerPft("loans_inventorynumber.pft", $v[0]);
$signa = LeerPft("loans_cn.pft", $v[0]);
$value .= "|" . $prefix_in . "|" . urlencode($pft_ni) . "|" . urlencode($signa);
echo "<option value='{$value}' {$xselected}>" . $v[1] . "</option>";
$xselected = "";
}
?>
</select>
</td>
</table>
//READ BASES.DAT TO FIND THOSE DATABASES IF NOT WORKING WITH COPIES DATABASES
$sel_base = "N";
if (file_exists($db_path . "loans.dat")) {
$fp = file($db_path . "loans.dat");
$sel_base = "S";
?>
<table width=100% border=0>
<td width=150>
<label for="dataBases">
<strong><?php
echo $msgstr["basedatos"];
?>
</strong>
</label>
</td><td>
<select name=db>
<option></option>
<?php
foreach ($fp as $value) {
$value = trim($value);
$v = explode('|', $value);
//SE LEE EL PREFIJO PARA OBTENER EL NUMERO DE CLASIFICACION DE LA BASE DE DATOS
$prefijo_nc = LeerNumeroClasificacion($v[0]);
$pft_nc = LeerPft("loans_cn.pft", $v[0]);
$value .= "|" . $prefijo_nc . "|" . urlencode($pft_nc);
echo "<option value='{$value}'>" . $v[1] . "</option>";
}
?>
</select>
</td>
</table>
