sub Encabezado()
{

$NB=~s/"/\'/g;
print " <TITLE>Sistema Bibliotecario de la UNAM</TITLE></HEAD> ";
print " <BODY  bgColor=aliceblue> ";
print " <TABLE BORDER=\"0\" ALIGN=\"center\"><TR> ";
print " <TD><a href=\"http://www.unam.mx\"><IMG SRC=\"/Directorio/images/encabezadounam.jpg\" BORDER=\"0\"  NAME=\"\" ALT=\"UNAM\"></a></TD></TR> ";

print " <TR><TD bgcolor=\"#FFCC33\"> ";

        print " <table align=\"center\" border=\"0\" width=\"100%\"> ";
        print " <tr><td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td><td bgcolor=\"#FFCC33\" align=\"center\"> ";


print " </td><td align=\"right\">  $dgb / $hx </td></tr></table> ";

print " </TD></TR></TABLE> ";
$ND=~s/'/"/g;
$NB=~s/'/"/g;print " <table width=\"95%\" border=\"0\" align=\"center\"><b><tr><td width=\"60%\"><b> $ND </b></td><td width=\"40%\" align=\"right\"><b>$NB </b></div></td></tr></table> ";

}


sub DatosPropios6()
{
print " <form action=\"UpdtDatosPropios1.pl\"> ";
print " <table width=\"65%\" border=\"0\" align=\"center\"><tr> ";
print " <td width=\"40%\" bgcolor=\"#ACBED8\"><b>Instituci&oacute;n</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"> <input type=\"text\" size=\"50\" value=\"$aryDDepen[0][1]\" name=\"num1\">  </td></tr>";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Siglas de la Instituci&oacute;n</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDDepen[0][2]\" name=\"num2\"></td></tr> ";
$aryDDepen[0][3]=~s/"/'/g;
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Dependencia</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDDepen[0][3]\" name=\"num3\"> </td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Siglas Dependencia</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDDepen[0][4]\" name=\"num4\"> </td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Subdependencia</td></b><td width=\"60%\" bgcolor=\"#C6DBF8\"> <input type=\"text\" size=\"50\" value=\"$aryDDepen[0][5]\" name=\"num5\">  </td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>A&ntilde;o fundaci&oacute;n</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDDepen[0][6]\" name=\"num6\" onBlur=\"revisaEntero(5)\"> </td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Objetivo</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDDepen[0][10]\" name=\"num10\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>P&aacute;gina web</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDDepen[0][7]\" name=\"num7\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Observaciones</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDDepen[0][8]\" name=\"num8\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Observaciones Subdirecci&oacuten</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\"  value=\"$aryDDepen[0][9]\" name=\"num9\"></td></tr> ";

print " </table> ";
print " <input type=\"hidden\" value=\"$area\" name=\"area\"> ";
print " <input type=\"hidden\" value=\"$ND\" name=\"ND\"> ";
print " <input type=\"hidden\" value=\"$NB\" name=\"NB\"> ";
print " <input type=\"hidden\" value=\"$bib_id\" name=\"bib_id\"> ";
print " <input type=\"hidden\" value=\"$dir_id\" name=\"dir_id\"> ";
print " <input type=\"hidden\" value=\"$dep_id\" name=\"dep_id\"> ";
print " <input type=\"hidden\" value=\"$subdep_id\" name=\"subdep_id\"> ";
print " <input type=\"hidden\" value=\"$dgb\" name=\"dgb\"> ";
print " <input type=\"hidden\" value=\"$hx\" name=\"hx\"> ";
print " <input type=\"hidden\" value=\"$Passwd\" name=\"Passwd\"> ";
print " </form> ";
}

sub Direccion6()
{
print " <form action=\"UpdtDireccion1.pl\" >";
print "<p align=\"center\"><b>Direcci&oacute;n</b></p> <form> ";
print "  <table width=\"60%\" border=\"0\" align=\"center\"> ";
print " <tr><td width=\"43%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Ubicaci&oacuten</b></td> ";
print " <td width=\"57%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDir[0][4]\" name=\"arg1\"></td></tr>";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Localidad</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDir[0][5]\" name=\"arg2\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Municipio</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDir[0][6]\" name=\"arg3\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Ciudad</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDir[0][7]\" name=\"arg4\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Entidad Federativa</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDir[0][8]\" name=\"arg5\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Pa&iacute;s</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDir[0][9]\" name=\"arg6\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>C&oacute;digo Postal</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDir[0][11]\" name=\"arg7\" ></td></tr>";
print " </table> ";

print " <p align=\"center\"><b>Apartado Postal</b></p><form> ";
print " <table width=\"60%\" border=\"0\" align=\"center\"> ";
print " <tr><td width=\"43%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Apartado Postal</b></td><td width=\"57%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryApdoPost[0][6]\" name=\"argApdo\"></td></tr> ";
print " <tr><td width=\"43%\" bgcolor=\"#ACBED8\"><b>Localidad</b></td><td width=\"57%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryApdoPost[0][4]\" name=\"arg11\"></td></tr> ";
print " <tr><td width=\"43%\" bgcolor=\"#ACBED8\"><b>Municipio</b></td><td width=\"57%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryApdoPost[0][5]\" name=\"arg12\"></td></tr>";
print " <tr><td width=\"43%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Ciudad</b></td><td width=\"57%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryApdoPost[0][2]\" name=\"arg9\"></td></tr> ";
print " <tr><td width=\"43%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Pais</b></td><td width=\"57%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryApdoPost[0][3]\" name=\"arg10\"></td></tr> ";
print " <tr><td width=\"43%\" height=\"28\" bgcolor=\"#ACBED8\"><b>C&oacute;digo Postal</b></td><td width=\"57%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryApdoPost[0][1]\" name=\"arg8\" ></td></tr> ";
print " <tr><td width=\"43%\" bgcolor=\"#ACBED8\"><b>Observaciones</b></td><td width=\"57%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDir[0][12]\" name=\"arg13\"></td></tr> ";
print " <tr><td width=\"43%\" bgcolor=\"#ACBED8\"><b>Observaciones Subdirecci&acuteon</b></td><td width=\"57%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDir[0][13]\" name=\"arg14\"></td></tr> "
;

print " </table> ";

$NB=~s/"/'/g;
$ND=~s/"/'/g;
print " <input type=\"hidden\" value=\"$area\" name=\"area\"> ";
print " <input type=\"hidden\" value=\"$ND\" name=\"ND\"> ";
print " <input type=\"hidden\" value=\"$NB\" name=\"NB\"> ";
print " <input type=\"hidden\" value=\"$bib_id\" name=\"bib_id\"> ";
print " <input type=\"hidden\" value=\"$dir_id\" name=\"dir_id\"> ";
print " <input type=\"hidden\" value=\"$dep_id\" name=\"dep_id\"> ";
print " <input type=\"hidden\" value=\"$subdep_id\" name=\"subdep_id\"> ";
print " <input type=\"hidden\" value=\"$aryDir[0][0]\" name=\"direccion\"> ";
print " <input type=\"hidden\" value=\"$aryApdoPost[0][0]\" name=\"apartado\"> ";
print " <input type=\"hidden\" value=\"$dgb\" name=\"dgb\"> ";
print " <input type=\"hidden\" value=\"$hx\" name=\"hx\"> ";
print " <input type=\"hidden\" value=\"$Passwd\" name=\"Passwd\"> ";
print " </form> ";

}

sub Autoridades6()
{

print " <form action=\"UpdtAutoridades1.pl\"> ";
print " <p align=\"center\"><b>Autoridades</b></p><form> ";
print " <table width=\"65%\" border=\"0\" align=\"center\"> ";
print " <tr><td width=\"40%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Director(a)</b></td><td width=\"60%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer1[0][1]\" name=\"arg1\"> <input type=\"text\" size=\"50\" value=\"$aryPer1[0][2]\" name=\"arg2\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Tel&eacute;fono</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer1[0][3]\" name=\"arg3\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer1[0][4]\" name=\"arg4\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer1[0][5]\" name=\"arg5\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Fax</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer1[0][6]\" name=\"arg6\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer1[0][7]\" name=\"arg7\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>E-mail</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer1[0][8]\" name=\"arg8\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer1[0][9]\" name=\"arg9\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Horario</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer1[0][10]\" name=\"arg29\"> ";
print "</table><br> ";

print " <table width=\"65%\" border=\"0\" align=\"center\"> ";
print " <tr><td width=\"40%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Jefe(a) Unidad Administrativa</b></td><td width=\"60%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer2[0][1]\" name=\"arg10\"> <input type=\"text\" size=\"50\" value=\"$aryPer2[0][2]\" name=\"arg11\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Tel&eacute;fono</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer2[0][3]\" name=\"arg12\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer2[0][4]\" name=\"arg13\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer2[0][5]\" name=\"arg14\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Fax</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer2[0][6]\" name=\"arg15\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer2[0][7]\" name=\"arg16\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>E-mail</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer2[0][8]\" name=\"arg17\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer2[0][9]\" name=\"arg18\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Horario</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"tex
t\" size=\"50\" value=\"$aryPer2[0][10]\" name=\"arg30\"> ";
print "</table><br> ";


print " <table width=\"65%\" border=\"0\" align=\"center\"> ";
print " <tr><td width=\"40%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Jefe(a) Area de Presupuesto</b></td><td width=\"60%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer3[0][1]\" name=\"arg19\"> <input type=\"text\" size=\"50\" value=\"$aryPer3[0][2]\" name=\"arg20\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Tel&eacute;fono</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer3[0][3]\" name=\"arg21\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer3[0][4]\" name=\"arg22\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer3[0][5]\" name=\"arg23\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Fax</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer3[0][6]\" name=\"arg24\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer3[0][7]\" name=\"arg25\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>E-mail</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer3[0][8]\" name=\"arg26\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer3[0][9]\" name=\"arg27\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Horario</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"tex
t\" size=\"50\" value=\"$aryPer3[0][10]\" name=\"arg31\"> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Observaciones </b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer3[0][11]\" name=\"arg35\"> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Observaciones Subdirecci&oacuten </b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer3[0][12]\" name=\"arg36\"> ";
print "</table>";

$NB=~s/"/'/g;
$ND=~s/"/'/g;
print " <input type=\"hidden\" value=\"$area\" name=\"area\"> ";
print " <input type=\"hidden\" value=\"$ND\" name=\"ND\"> ";
print " <input type=\"hidden\" value=\"$NB\" name=\"NB\"> ";
print " <input type=\"hidden\" value=\"$bib_id\" name=\"bib_id\"> ";
print " <input type=\"hidden\" value=\"$dir_id\" name=\"dir_id\"> ";
print " <input type=\"hidden\" value=\"$dep_id\" name=\"dep_id\"> ";
print " <input type=\"hidden\" value=\"$subdep_id\" name=\"subdep_id\"> ";
print " <input type=\"hidden\" value=\"$aryPer1[0][0]\" name=\"per_id1\"> ";
print " <input type=\"hidden\" value=\"$aryPer2[0][0]\" name=\"per_id2\"> ";
print " <input type=\"hidden\" value=\"$aryPer3[0][0]\" name=\"per_id3\"> ";
print " <input type=\"hidden\" value=\"$dgb\" name=\"dgb\"> ";
print " <input type=\"hidden\" value=\"$hx\" name=\"hx\"> ";
print " <input type=\"hidden\" value=\"$Passwd\" name=\"Passwd\"> ";
print " </form> ";

}

sub SubDatosPropios6()
{

print " <form action=\"UpdtSubDatosPropios1.pl\"> ";
print " <table width=\"65%\" border=\"0\" align=\"center\"><tr> ";
print " <td width=\"40%\" bgcolor=\"#ACBED8\"><b>Nombre de la Sub Dependencia</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"> <input type=\"text\" size=\"50\" value=\"$arySubDepen[0][2]\" name=\"num2\">  </td></tr>";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Siglas</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$arySubDepen[0][3]\" name=\"num3\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>A&ntilde;o fundaci&oacute;n</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$arySubDepen[0][4]\" name=\"num4\" onBlur=\"revisaEntero(2)\"> </td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>P&aacute;gina web</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$arySubDepen[0][5]\" name=\"num5\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Observaciones</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$arySubDepen[0][6]\" name=\"num6\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Observaciones Subdireccin</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$arySubDepen[0][7]\" name=\"num7\"></td></tr> ";

print " </table> ";
print " <input type=\"hidden\" value=\"$area\" name=\"area\"> ";
print " <input type=\"hidden\" value=\"$ND\" name=\"ND\"> ";
print " <input type=\"hidden\" value=\"$NB\" name=\"NB\"> ";
print " <input type=\"hidden\" value=\"$bib_id\" name=\"bib_id\"> ";
print " <input type=\"hidden\" value=\"$dir_id\" name=\"dir_id\"> ";
print " <input type=\"hidden\" value=\"$dep_id\" name=\"dep_id\"> ";
print " <input type=\"hidden\" value=\"$subdep_id\" name=\"subdep_id\"> ";
print " <input type=\"hidden\" value=\"$dgb\" name=\"dgb\"> ";
print " <input type=\"hidden\" value=\"$hx\" name=\"hx\"> ";
print " <input type=\"hidden\" value=\"$Passwd\" name=\"Passwd\"> ";
print " </form> ";
}

sub SubDireccion6()
{

print " <form action=\"UpdtSubDireccion1.pl\" >";
print "<p align=\"center\"><b> Sub Direcci&oacute;n</b></p> <form> ";
print "  <table width=\"60%\" border=\"0\" align=\"center\"> ";
print " <tr><td width=\"43%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Ubicaci&oacuten</b></td> ";
print " <td width=\"57%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$arySubDir[0][4]\" name=\"arg1\"></td></tr>";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Localidad</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$arySubDir[0][5]\" name=\"arg2\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Municipio</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$arySubDir[0][6]\" name=\"arg3\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Ciudad</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$arySubDir[0][7]\" name=\"arg4\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Entidad Federativa</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$arySubDir[0][8]\" name=\"arg5\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Pa&iacute;s</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$arySubDir[0][9]\" name=\"arg6\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>C&oacute;digo Postal</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$arySubDir[0][11]\" name=\"arg7\" ></td></tr>";
print " </table> ";

print " <p align=\"center\"><b>Apartado Postal</b></p><form> ";
print " <table width=\"60%\" border=\"0\" align=\"center\"> ";
print " <tr><td width=\"43%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Apartado Postal</b></td><td width=\"57%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$arySubApdo[0][6]\" name=\"argApdo\" onBlur=\"revisaEntero(7)\"></td></tr> ";
print " <tr><td width=\"43%\" bgcolor=\"#ACBED8\"><b>Localidad</b></td><td width=\"57%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$arySubApdo[0][4]\" name=\"arg11\"></td></tr> ";
print " <tr><td width=\"43%\" bgcolor=\"#ACBED8\"><b>Municipio</b></td><td width=\"57%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$arySubApdo[0][5]\" name=\"arg12\"></td></tr>";
print " <tr><td width=\"43%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Ciudad</b></td><td width=\"57%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$arySubApdo[0][2]\" name=\"arg9\"></td></tr> ";
print " <tr><td width=\"43%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Pais</b></td><td width=\"57%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$arySubApdo[0][3]\" name=\"arg10\"></td></tr> ";
print " <tr><td width=\"43%\" height=\"28\" bgcolor=\"#ACBED8\"><b>C&oacute;digo Postal</b></td><td width=\"57%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$arySubApdo[0][1]\" name=\"arg8\" ></td></tr> ";
print " <tr><td width=\"43%\" bgcolor=\"#ACBED8\"><b>Observaciones</b></td><td width=\"57%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$arySubDir[0][12]\" name=\"arg13\"></td></tr> ";
print " <tr><td width=\"43%\" bgcolor=\"#ACBED8\"><b>Observaciones Subdirecci&acuteon</b></td><td width=\"57%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$arySubDir[0][13]\" name=\"arg13s\"></td></tr> "
;

print " </table> ";

$NB=~s/"/'/g;
$ND=~s/"/'/g;
print " <input type=\"hidden\" value=\"$area\" name=\"area\"> ";
print " <input type=\"hidden\" value=\"$ND\" name=\"ND\"> ";
print " <input type=\"hidden\" value=\"$NB\" name=\"NB\"> ";
print " <input type=\"hidden\" value=\"$bib_id\" name=\"bib_id\"> ";
print " <input type=\"hidden\" value=\"$dir_id\" name=\"dir_id\"> ";
print " <input type=\"hidden\" value=\"$dep_id\" name=\"dep_id\"> ";
print " <input type=\"hidden\" value=\"$subdep_id\" name=\"subdep_id\"> ";
print " <input type=\"hidden\" value=\"$arySubDir[0][0]\" name=\"direccion\"> ";
print " <input type=\"hidden\" value=\"$arySubApdo[0][0]\" name=\"apartado\"> ";
print " <input type=\"hidden\" value=\"$dgb\" name=\"dgb\"> ";
print " <input type=\"hidden\" value=\"$hx\" name=\"hx\"> ";
print " <input type=\"hidden\" value=\"$Passwd\" name=\"Passwd\"> ";
print " </form> ";

}

sub SubAutoridades6()
{

print " <form action=\"UpdtSubAutoridades1.pl\"> ";
print " <p align=\"center\"><b>Autoridades</b></p><form> ";
print " <table width=\"65%\" border=\"0\" align=\"center\"> ";
print " <tr><td width=\"40%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Director(a)</b></td><td width=\"60%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer8[0][1]\" name=\"arg1\"> <input type=\"text\" size=\"50\" value=\"$aryPer8[0][2]\" name=\"arg2\"></td></tr> ";

print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Tel&eacute;fono</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer8[0][3]\" name=\"arg3\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer8[0][4]\" name=\"arg4\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer8[0][5]\" name=\"arg5\"></td></tr> ";

print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Fax</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer8[0][6]\" name=\"arg6\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer8[0][7]\" name=\"arg7\"></td></tr> ";

print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>E-mail</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer8[0][8]\" name=\"arg8\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer8[0][9]\" name=\"arg9\"></td></tr> ";

print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Horario</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer8[0][10]\" name=\"arg29\"> ";

print "</table><br> ";

print " <table width=\"65%\" border=\"0\" align=\"center\"> ";

print " <tr><td width=\"40%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Jefe(a) Unidad Administrativa</b></td><td width=\"60%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer9[0][1]\" name=\"arg10\"> <input type=\"text\" size=\"50\" value=\"$aryPer9[0][2]\" name=\"arg11\"></td></tr> ";

print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Tel&eacute;fono</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer9[0][3]\" name=\"arg12\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer9[0][4]\" name=\"arg13\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer9[0][5]\" name=\"arg14\"></td></tr> ";

print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Fax</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer9[0][6]\" name=\"arg15\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer9[0][7]\" name=\"arg16\"></td></tr> ";

print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>E-mail</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer9[0][8]\" name=\"arg17\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer9[0][9]\" name=\"arg18\"></td></tr> ";

print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Horario</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"tex
t\" size=\"50\" value=\"$aryPer9[0][10]\" name=\"arg30\"> ";

print "</table><br> ";

print " <table width=\"65%\" border=\"0\" align=\"center\"> ";
print " <tr><td width=\"40%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Jefe(a) Area de Presupuesto</b></td><td width=\"60%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer10[0][1]\" name=\"arg19\"> <input type=\"text\" size=\"50\" value=\"$aryPer10[0][2]\" name=\"arg20\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Tel&eacute;fono</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer10[0][3]\" name=\"arg21\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer10[0][4]\" name=\"arg22\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer10[0][5]\" name=\"arg23\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Fax</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer10[0][6]\" name=\"arg24\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer10[0][7]\" name=\"arg25\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>E-mail</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer10[0][8]\" name=\"arg26\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer10[0][9]\" name=\"arg27\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Horario</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer10[0][10]\" name=\"arg31\"> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Observaciones</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer10[0][11]\" name=\"arg28\"> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Observaciones Subdirecci&oacuten</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer10[0][12]\" name=\"arg32\"> ";
print "</table>";
$NB=~s/"/'/g;
$ND=~s/"/'/g;
print " <input type=\"hidden\" value=\"$area\" name=\"area\"> ";
print " <input type=\"hidden\" value=\"$ND\" name=\"ND\"> ";
print " <input type=\"hidden\" value=\"$NB\" name=\"NB\"> ";
print " <input type=\"hidden\" value=\"$bib_id\" name=\"bib_id\"> ";
print " <input type=\"hidden\" value=\"$dir_id\" name=\"dir_id\"> ";
print " <input type=\"hidden\" value=\"$dep_id\" name=\"dep_id\"> ";
print " <input type=\"hidden\" value=\"$subdep_id\" name=\"subdep_id\"> ";
print " <input type=\"hidden\" value=\"$aryPer8[0][0]\" name=\"per_id1\"> ";
print " <input type=\"hidden\" value=\"$aryPer9[0][0]\" name=\"per_id2\"> ";
print " <input type=\"hidden\" value=\"$aryPer10[0][0]\" name=\"per_id3\"> ";
print " <input type=\"hidden\" value=\"$dgb\" name=\"dgb\"> ";
print " <input type=\"hidden\" value=\"$hx\" name=\"hx\"> ";
print " <input type=\"hidden\" value=\"$Passwd\" name=\"Passwd\"> ";
print " </form> ";

}

sub BibDatosPropios6()
{
print " <p align=\"center\"><b>Datos Propios</b></p><form action=\"UpdtBibDatosPropios1.pl\"> ";
print " <table width=\"65%\" border=\"0\" align=\"center\"> ";
$aryDatosBib[0][1]=~s/"/'/g;
print " <tr><td width=\"44%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Nombre</b></td><td width=\"56%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][1]\" name=\"arg1\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\">Nombre Abreviado</td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][2]\" name=\"arg2\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Adscripci&oacute;n de la que dependencia</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][3]\" name=\"arg3\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Subsistema</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][4]\" name=\"arg4\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>A&ntilde;o de fundaci&oacute;n</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][5]\" name=\"arg5\" onBlur=\"revisaEntero(4)\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Objetivo</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\">&nbsp;<input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][27]\" name=\"arg25\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Referencia hist&oacute;rica</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][6]\" name=\"arg6\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>P&aacute;gina Web</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\">&nbsp;<input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][7]\" name=\"arg7\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Contacto Biblioteca</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\">&nbsp;<input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][33]\" name=\"arg100\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Ariel</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\">&nbsp;<input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][32]\" name=\"arg29\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Clave DGB</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][8]\" name=\"arg8\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Clave MARC</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][9]\" name=\"arg9\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Clave Hexadecimal</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][10]\" name=\"arg10\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Status</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][11]\" name=\"arg11\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Catalogo libros</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\">&nbsp;<input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][29]\" name=\"arg26\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Catalogo revistas</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\">&nbsp;<input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][30]\" name=\"arg27\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Catalogo mapas</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\">&nbsp;<input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][31]\" name=\"arg28\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>C&oacute;d. Program&aacute;tico de Libros</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][12]\" name=\"arg12\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>C&oacute;d. Program&aacute;tico de Revistas</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][13]\" name=\"arg13\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Presupuesto Partida 521 asignado</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][14]\" name=\"arg14\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Presupuesto Partida 521 ejercido</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][15]\" name=\"arg15\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Presupuesto Partida 523 asignado</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][16]\" name=\"arg16\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Presupuesto Partida 523 ejercido</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][17]\" name=\"arg17\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Presupuesto Partida 421 asignado</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][18]\" name=\"arg18\"></td></tr>";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Presupuesto Partida 421 ejercido</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][19]\" name=\"arg19\"></td></tr>";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Presupuesto para encuadernaci&oacute;n asignado</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][20]\" name=\"arg20\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Presupuesto para encuadernaci&oacute;n ejercido</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][21]\" name=\"arg21\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\">Mapa</td><td width=\"56%\" bgcolor=\"#C6DBF8\"><a href=\"http://www.mapa.unam.mx \"> Ver Mapa</a></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Superficie de la biblioteca (m2)</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][22]\" name=\"arg22\" onBlur=\"revisaEntero(27)\"></td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Observaciones</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][23]\" name=\"arg23\"> </td></tr> ";
print " <tr><td width=\"44%\" bgcolor=\"#ACBED8\"><b>Observaciones Subdirecci&oacuten</b></td><td width=\"56%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDatosBib[0][24]\" name=\"arg24\"> </td></tr> ";

print " </table> ";

$NB=~s/"/'/g;
$ND=~s/"/'/g;
print " <input type=\"hidden\" value=\"$area\" name=\"area\"> ";
print " <input type=\"hidden\" value=\"$ND\" name=\"ND\"> ";
print " <input type=\"hidden\" value=\"$NB\" name=\"NB\"> ";
print " <input type=\"hidden\" value=\"$bib_id\" name=\"bib_id\"> ";
print " <input type=\"hidden\" value=\"$dir_id\" name=\"dir_id\"> ";
print " <input type=\"hidden\" value=\"$dep_id\" name=\"dep_id\"> ";
print " <input type=\"hidden\" value=\"$subdep_id\" name=\"subdep_id\"> ";
print " <input type=\"hidden\" value=\"$dgb\" name=\"dgb\"> ";
print " <input type=\"hidden\" value=\"$hx\" name=\"hx\"> ";
print " <input type=\"hidden\" value=\"$Passwd\" name=\"Passwd\"> ";
print " </form> ";

}

sub BibDireccion1()
{

print " <p align=\"center\"><b>Direcci&oacute;n</b></p><form action=\"UpdtBibDireccion1.pl\"> ";
print " <form action=\"UpdtBibDireccion1.pl\"><table width=\"65%\" border=\"0\" align=\"center\"> ";
print " <tr><td width=\"43%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Ubicaci&oacuten</b></td><td width=\"57%\" height=\"28\" bgcolor=\"#C6DBF8\"> <input type=\"text\" size=\"50\" value=\"$aryDir1[0][4]\" name=\"arg1\">  </td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Localidad</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"> <input type=\"text\" size=\"50\" value=\"$aryDir1[0][5]\" name=\"arg2\"> </td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Municipio</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"> <input type=\"text\" size=\"50\" value=\"$aryDir1[0][6]\" name=\"arg3\"> </td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Ciudad</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"> <input type=\"text\" size=\"50\" value=\"$aryDir1[0][7]\" name=\"arg4\"> </td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Estado o Provincia</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"> <input type=\"text\" size=\"50\" value=\"$aryDir1[0][8]\" name=\"arg5\"> </td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Pa&iacute;s</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"> <input type=\"text\" size=\"50\" value=\"$aryDir1[0][9]\" name=\"arg6\"> </td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>C&oacute;digo Postal</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDir1[0][11]\" name=\"arg7\" >  </td></tr> ";

print " </table> ";

print " <p align=\"center\"><b>Apartado Postal</b></p> ";
print " <table width=\"50%\" border=\"0\" align=\"center\"> ";
print " <tr><td width=\"43%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Apartado Postal</b></td><td width=\"57%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryCP[0][6]\" name=\"arg8\" onBlur=\"revisaEntero(7)\"></td></tr> ";
print " <tr><td width=\"43%\" bgcolor=\"#ACBED8\"><b>Localidad</b></td><td width=\"57%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryCP[0][4]\" name=\"arg9\"></td></tr> ";
print " <tr><td width=\"43%\" bgcolor=\"#ACBED8\"><b>Municipio</b></td><td width=\"57%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryCP[0][5]\" name=\"arg10\"></td></tr> ";
print " <tr><td width=\"43%\" bgcolor=\"#ACBED8\"><b>Cuidad</b></td><td width=\"57%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryCP[0][2]\" name=\"arg11\"></td></tr> ";
print " <tr><td width=\"43%\" bgcolor=\"#ACBED8\"><b>Pa&iacute;s</b></td><td width=\"57%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryCP[0][3]\" name=\"arg12\"></td></tr> ";
print " <tr><td width=\"43%\" height=\"28\" bgcolor=\"#ACBED8\"><b>C&oacute;digo Postal</b></td><td width=\"57%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryCP[0][1]\" name=\"arg14\" ></td></tr> ";
print " <tr><td width=\"43%\" bgcolor=\"#ACBED8\"><b>Observaciones</b></td><td width=\"57%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDir1[0][12]\" name=\"arg13\"></td></tr> ";
print " <tr><td width=\"43%\" bgcolor=\"#ACBED8\"><b>Observaciones Subdirecci&oacuten</b></td><td width=\"57%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryDir1[0][13]\" name=\"arg15\"></td></tr> ";
print " </table> ";

$NB=~s/"/'/g;
$ND=~s/"/'/g;
print " <input type=\"hidden\" value=\"$area\" name=\"area\"> ";
print " <input type=\"hidden\" value=\"$ND\" name=\"ND\"> ";
print " <input type=\"hidden\" value=\"$NB\" name=\"NB\"> ";
print " <input type=\"hidden\" value=\"$bib_id\" name=\"bib_id\"> ";
print " <input type=\"hidden\" value=\"$dir_id\" name=\"dir_id\"> ";
print " <input type=\"hidden\" value=\"$dep_id\" name=\"dep_id\"> ";
print " <input type=\"hidden\" value=\"$subdep_id\" name=\"subdep_id\"> ";
print " <input type=\"hidden\" value=\"$aryDir1[0][0]\" name=\"direccion\"> ";
print " <input type=\"hidden\" value=\"$aryDir1[0][10]\" name=\"apartado\"> ";
print " <input type=\"hidden\" value=\"$dgb\" name=\"dgb\"> ";
print " <input type=\"hidden\" value=\"$hx\" name=\"hx\"> ";
print " <input type=\"hidden\" value=\"$Passwd\" name=\"Passwd\"> ";
}


sub BibRespEnlace1()
{
	print "1";
}

sub BibRespEnlace2()
{
        print "1";
}

sub BibRespEnlace3()
{
        print "1";
}

sub BibRespEnlace4()
{
        print "1";
}

sub BibRespEnlace5()
{
        print "1";
}

sub BibRespEnlace6()
{
print " <form action=\"UpdtBibRespEnlace1.pl\"> ";
print " <p align=\"center\"><b>Autoridades</b></p><form> ";
print " <table width=\"65%\" border=\"0\" align=\"center\"> ";

print " <tr><td width=\"40%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Coordinador(a)</b></td><td width=\"60%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer4[0][1]\" name=\"arg1\"> <input type=\"text\" size=\"50\" value=\"$aryPer4[0][2]\" name=\"arg2\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Tel&eacute;fono</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer4[0][3]\" name=\"arg3\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer4[0][4]\" name=\"arg4\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer4[0][5]\" name=\"arg5\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Fax</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer4[0][6]\" name=\"arg6\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer4[0][7]\" name=\"arg7\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>E-mail</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer4[0][8]\" name=\"arg8\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer4[0][9]\" name=\"arg9\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Horario</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer4[0][10]\" name=\"arg10\"></td></tr> ";
print "</table><br> ";

print " <table width=\"65%\" border=\"0\" align=\"center\"> ";
print " <tr><td width=\"40%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Responsable de la Biblioteca</b></td><td width=\"60%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer5[0][1]\" name=\"arg11\"> <input type=\"text\" size=\"50\" value=\"$aryPer5[0][2]\" name=\"arg12\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Tel&eacute;fono</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer5[0][3]\" name=\"arg13\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer5[0][4]\" name=\"arg14\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer5[0][5]\" name=\"arg15\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Fax</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer5[0][6]\" name=\"arg16\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer5[0][7]\" name=\"arg17\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>E-mail</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer5[0][8]\" name=\"arg18\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer5[0][9]\" name=\"arg19\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Horario</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer5[0][10]\" name=\"arg20\"></td></tr> ";
print "</table><br> ";

print " <table width=\"65%\" border=\"0\" align=\"center\"> ";
print " <tr><td width=\"40%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Responsable de Hemeroteca</b></td><td width=\"60%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer6[0][1]\" name=\"arg21\"> <input type=\"text\" size=\"50\" value=\"$aryPer6[0][2]\" name=\"arg22\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Tel&eacute;fono</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer6[0][3]\" name=\"arg23\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer6[0][4]\" name=\"arg24\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer6[0][5]\" name=\"arg25\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Fax</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer6[0][6]\" name=\"arg26\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer6[0][7]\" name=\"arg27\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>E-mail</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer6[0][8]\" name=\"arg28\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer6[0][9]\" name=\"arg29\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Horario</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer6[0][10]\" name=\"arg30\"></td></tr> ";
print "</table><br>";

print " <table width=\"65%\" border=\"0\" align=\"center\"> ";
print " <tr><td width=\"40%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Responsable de Procesos T&eacute;cnicos</b></td><td width=\"60%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer7[0][1]\" name=\"arg31\"> <input type=\"text\" size=\"50\" value=\"$aryPer7[0][2]\" name=\"arg32\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Tel&eacute;fono</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer7[0][3]\" name=\"arg33\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer7[0][4]\" name=\"arg34\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer7[0][5]\" name=\"arg35\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Fax</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer7[0][6]\" name=\"arg36\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer7[0][7]\" name=\"arg37\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>E-mail</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer7[0][8]\" name=\"arg38\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer7[0][9]\" name=\"arg39\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Horario</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer7[0][10]\" name=\"arg40\"></td></tr> ";
print "</table><br>";

print " <table width=\"65%\" border=\"0\" align=\"center\"> ";
print " <tr><td width=\"40%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Responsable de Consulta</b></td><td width=\"60%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer11[0][1]\" name=\"arg41\"> <input type=\"text\" size=\"50\" value=\"$aryPer11[0][2]\" name=\"arg42\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Tel&eacute;fono</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer11[0][3]\" name=\"arg43\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer11[0][4]\" name=\"arg44\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer11[0][5]\" name=\"arg45\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Fax</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer11[0][6]\" name=\"arg46\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer11[0][7]\" name=\"arg47\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>E-mail</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer11[0][8]\" name=\"arg48\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer11[0][9]\" name=\"arg49\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Horario</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer11[0][10]\" name=\"arg50\"></td></tr> ";
print "</table><br>";

print " <table width=\"65%\" border=\"0\" align=\"center\"> ";
print " <tr><td width=\"40%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Responsable de Servicios al Pu&acute;blico</b></td><td width=\"60%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer12[0][1]\" name=\"arg51\"> <input type=\"text\" size=\"50\" value=\"$aryPer12[0][2]\" name=\"arg52\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Tel&eacute;fono</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer12[0][3]\" name=\"arg53\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer12[0][4]\" name=\"arg54\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer12[0][5]\" name=\"arg55\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Fax</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer12[0][6]\" name=\"arg56\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer12[0][7]\" name=\"arg57\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>E-mail</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer12[0][8]\" name=\"arg58\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer12[0][9]\" name=\"arg59\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Horario</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer12[0][10]\" name=\"arg60\"></td></tr> ";
print "</table><br>";

print " <table width=\"65%\" border=\"0\" align=\"center\"> ";
print " <tr><td width=\"40%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Circulaci&oacute;n</b></td><td width=\"60%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer13[0][1]\" name=\"arg61\"> <input type=\"text\" size=\"50\" value=\"$aryPer13[0][2]\" name=\"arg62\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Tel&eacute;fono</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer13[0][3]\" name=\"arg63\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer13[0][4]\" name=\"arg64\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer13[0][5]\" name=\"arg65\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Fax</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer13[0][6]\" name=\"arg66\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer13[0][7]\" name=\"arg67\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>E-mail</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer13[0][8]\" name=\"arg68\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer13[0][9]\" name=\"arg69\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Horario</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer13[0][10]\" name=\"arg70\"></td></tr> ";
print "</table><br>";

print " <table width=\"65%\" border=\"0\" align=\"center\"> ";
print " <tr><td width=\"40%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Otros 1</b></td><td width=\"60%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer14[0][1]\" name=\"arg71\"> <input type=\"text\" size=\"50\" value=\"$aryPer14[0][2]\" name=\"arg72\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Tel&eacute;fono</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer14[0][3]\" name=\"arg73\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer14[0][4]\" name=\"arg74\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer14[0][5]\" name=\"arg75\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Fax</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer14[0][6]\" name=\"arg76\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer14[0][7]\" name=\"arg77\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>E-mail</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer14[0][8]\" name=\"arg78\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer14[0][9]\" name=\"arg79\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Horario</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer14[0][10]\" name=\"arg80\"></td></tr> ";
print "</table><br>";

print " <table width=\"65%\" border=\"0\" align=\"center\"> ";
print " <tr><td width=\"40%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Otros 2</b></td><td width=\"60%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer15[0][1]\" name=\"arg81\"> <input type=\"text\" size=\"50\" value=\"$aryPer15[0][2]\" name=\"arg82\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Tel&eacute;fono</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer15[0][3]\" name=\"arg83\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer15[0][4]\" name=\"arg84\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer12[0][5]\" name=\"arg85\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Fax</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer15[0][6]\" name=\"arg86\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer15[0][7]\" name=\"arg87\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>E-mail</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer15[0][8]\" name=\"arg88\"> <br> <input type=\"text\" size=\"50\" value=\"$aryPer15[0][9]\" name=\"arg89\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Horario</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer15[0][10]\" name=\"arg90\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Observaciones</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer4[0][11]\" name=\"arg91\"></td></tr> ";
print " <tr><td width=\"40%\" bgcolor=\"#ACBED8\"><b>Observaciones Subdirecci&oacuten</b></td><td width=\"60%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryPer4[0][12]\" name=\"arg92\"></td></tr> ";
print "</table><br>";

$NB=~s/"/'/g;
$ND=~s/"/'/g;
print " <input type=\"hidden\" value=\"$area\" name=\"area\"> ";
print " <input type=\"hidden\" value=\"$ND\" name=\"ND\"> ";
print " <input type=\"hidden\" value=\"$NB\" name=\"NB\"> ";
print " <input type=\"hidden\" value=\"$bib_id\" name=\"bib_id\"> ";
print " <input type=\"hidden\" value=\"$dir_id\" name=\"dir_id\"> ";
print " <input type=\"hidden\" value=\"$dep_id\" name=\"dep_id\"> ";
print " <input type=\"hidden\" value=\"$subdep_id\" name=\"subdep_id\"> ";
print " <input type=\"hidden\" value=\"$aryPer4[0][0]\" name=\"per_id4\"> ";
print " <input type=\"hidden\" value=\"$aryPer5[0][0]\" name=\"per_id5\"> ";
print " <input type=\"hidden\" value=\"$aryPer6[0][0]\" name=\"per_id6\"> ";
print " <input type=\"hidden\" value=\"$aryPer7[0][0]\" name=\"per_id7\"> ";
print " <input type=\"hidden\" value=\"$aryPer8[0][0]\" name=\"per_id8\"> ";
print " <input type=\"hidden\" value=\"$aryPer9[0][0]\" name=\"per_id9\"> ";
print " <input type=\"hidden\" value=\"$aryPer10[0][0]\" name=\"per_id10\"> ";
print " <input type=\"hidden\" value=\"$aryPer11[0][0]\" name=\"per_id11\"> ";
print " <input type=\"hidden\" value=\"$aryPer12[0][0]\" name=\"per_id12\"> ";
print " <input type=\"hidden\" value=\"$aryPer13[0][0]\" name=\"per_id13\"> ";
print " <input type=\"hidden\" value=\"$aryPer14[0][0]\" name=\"per_id14\"> ";
print " <input type=\"hidden\" value=\"$aryPer15[0][0]\" name=\"per_id15\"> ";
print " <input type=\"hidden\" value=\"$dgb\" name=\"dgb\"> ";
print " <input type=\"hidden\" value=\"$hx\" name=\"hx\"> ";
print " <input type=\"hidden\" value=\"$Passwd\" name=\"Passwd\"> ";
print " </form> ";

}


sub BibRecHum1()
{

print " <p align=\"center\"> <b>Recursos Humanos</b> </p><form action=\"UpdtBibRecHum1.pl\"> ";
print " <table width=\"40%\" border=\"0\" align=\"center\"> ";

print " <tr><td width=\"68%\" bgcolor=\"#ACBED8\"><b>Acad&eacute;micos</b></td><td width=\"32%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"10\" value=\"$aryRecH[0][1]\" name=\"arg1\" onBlur=\"revisaEntero(0)\"></td></tr> ";
print " <tr><td width=\"68%\" bgcolor=\"#ACBED8\"><b>Administrativos</b></td><td width=\"32%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"10\" value=\"$aryRecH[0][2]\" name=\"arg2\" onBlur=\"revisaEntero(1)\"></td></tr> ";
print " <tr><td width=\"68%\" bgcolor=\"#ACBED8\"><b>Honorarios</b></td><td width=\"32%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"10\" value=\"$aryRecH[0][3]\" name=\"arg3\" onBlur=\"revisaEntero(2)\"></td></tr> ";
print " <tr><td width=\"68%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Total de Personal</b> </td><td width=\"32%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"10\" value=\"$aryRecH[0][4]\" name=\"arg4\" onBlur=\"revisaEntero(3)\"></td></tr> ";
print " <tr><td width=\"68%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Observaciones</b></td><td width=\"32%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"10\" value=\"$aryRecH[0][5]\" name=\"arg5\"></td></tr> ";
print " <tr><td width=\"68%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Observaciones Subdirecci&oacuten</b></td><td width=\"32%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"10\" value=\"$aryRecH[0][6]\" name=\"arg6\"></td></tr> ";
print " </table> ";

$NB=~s/"/'/g;
$ND=~s/"/'/g;
print " <input type=\"hidden\" value=\"$area\" name=\"area\"> ";
print " <input type=\"hidden\" value=\"$ND\" name=\"ND\"> ";
print " <input type=\"hidden\" value=\"$NB\" name=\"NB\"> ";
print " <input type=\"hidden\" value=\"$bib_id\" name=\"bib_id\"> ";
print " <input type=\"hidden\" value=\"$dir_id\" name=\"dir_id\"> ";
print " <input type=\"hidden\" value=\"$dep_id\" name=\"dep_id\"> ";
print " <input type=\"hidden\" value=\"$subdep_id\" name=\"subdep_id\"> ";
print " <input type=\"hidden\" value=\"$dgb\" name=\"dgb\"> ";
print " <input type=\"hidden\" value=\"$hx\" name=\"hx\"> ";
print " <input type=\"hidden\" value=\"$Passwd\" name=\"Passwd\"> ";
print " </form> ";

}

sub BibRecHum2()
{

}


sub BibRecHum3()
{

}

sub BibRecHum4()
{

}

sub BibRecHum5()
{

}


sub BibColec1()
{
}

sub BibColec2()
{
}

sub BibColec3()
{
}

sub BibColec4()
{
}

sub BibColec5()
{
}

sub BibColec6()
{

print " <p align=\"center\"> <b>Colecciones</b> </p><form action=\"UpdtBibColecciones1.pl\"> ";
print " <table width=\"65%\" border=\"0\" align=\"center\"> ";

print " <tr><td width=\"52%\" height=\"28\" bgcolor=\"#ACBED8\"><b>T&iacute;tulos de Libros</b></td><td width=\"48%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryColec[0][1]\" name=\"arg1\" onBlur=\"revisaEntero(0)\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Vol&uacute;menes de Libros</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryColec[0][2]\" name=\"arg2\" onBlur=\"revisaEntero(1)\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>T&iacute;tulos de Publicaciones Peri&oacute;dicas</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryColec[0][3]\" name=\"arg3\" onBlur=\"revisaEntero(2)\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Fasciculos Publicaciones Peri&oacute;dicas</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryColec[0][4]\" name=\"arg4\" onBlur=\"revisaEntero(3)\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>T&iacute;tulos de Tesis</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryColec[0][5]\" name=\"arg5\" onBlur=\"revisaEntero(4)\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Vol&uacute;menes de Tesis</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryColec[0][6]\" name=\"arg6\" onBlur=\"revisaEntero(5)\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Otros Materiales Documentales</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryColec[0][7]\" name=\"arg7\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Usuarios potenciales</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryColec[0][8]\" name=\"arg8\" onBlur=\"revisaEntero(7)\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b> Asistentes </b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryColec[0][9]\" name=\"arg9\" onBlur=\"revisaEntero(8)\"></td></tr> ";
#print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Otro</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryColec[0][10]\" name=\"arg10\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>&Aacute;reas del conocimiento</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryColec[0][11]\" name=\"arg11\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Cobertura Geogr&aacute;fica</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryColec[0][12]\" name=\"arg12\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Tematica</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryColec[0][13]\" name=\"arg13\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Carreras / L&iacute;neas de investigaci&oacute;n / Principales Actividades </b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryColec[0][14]\" name=\"arg14\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Idiomas de la colecci&oacute;n</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryColec[0][15]\" name=\"arg15\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Sistema de Clasificaci&oacute;n utilizada<b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryColec[0][16]\" name=\"arg16\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Observaciones</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryColec[0][17]\" name=\"arg17\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Observaciones Subdirecci&oacuten</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryColec[0][18]\" name=\"arg20\"></td></tr></table> ";


$NB=~s/"/'/g;
$ND=~s/"/'/g;
print " <input type=\"hidden\" value=\"$area\" name=\"area\"> ";
print " <input type=\"hidden\" value=\"$ND\" name=\"ND\"> ";
print " <input type=\"hidden\" value=\"$NB\" name=\"NB\"> ";
print " <input type=\"hidden\" value=\"$bib_id\" name=\"bib_id\"> ";
print " <input type=\"hidden\" value=\"$dir_id\" name=\"dir_id\"> ";
print " <input type=\"hidden\" value=\"$dep_id\" name=\"dep_id\"> ";
print " <input type=\"hidden\" value=\"$subdep_id\" name=\"subdep_id\"> ";
print " <input type=\"hidden\" value=\"$dgb\" name=\"dgb\"> ";
print " <input type=\"hidden\" value=\"$hx\" name=\"hx\"> ";
print " <input type=\"hidden\" value=\"$Passwd\" name=\"Passwd\"> ";
print " </form> ";

}

sub BibServ1()
{

}

sub BibServ2()
{

}

sub BibServ3()
{

}

sub BibServ4()
{

}

sub BibServ5()
{

}

sub BibServ6()
{

print " <p align=\"center\"> <b>Servicios</b> </p><form action=\"UpdtBibServicios1.pl\"> ";
print " <table width=\"65%\" border=\"0\" align=\"center\"> ";

print " <tr><td width=\"52%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Horario</b></td><td width=\"48%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryServ[0][1]\" name=\"arg1\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Acceso al Acervo</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"> <input type=\"text\" size=\"50\" value=\"$aryServ[0][2]\" name=\"arg2\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Material Documental para Pr&eacute;stamo</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryServ[0][3]\" name=\"arg3\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Servicios usuario</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryServ[0][4]\" name=\"arg4\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Fuentes Impresas</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryServ[0][5]\" name=\"arg5\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Fuentes Electr&oacute;nicas</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryServ[0][6]\" name=\"arg6\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Servicios de la Biblioteca </b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryServ[0][7]\" name=\"arg7\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Prestamo</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryServ[0][8]\" name=\"arg8\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Instrucci&oacute;n a Usuarios</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryServ[0][9]\" name=\"arg9\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Acceso a Internet</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryServ[0][10]\" name=\"arg10\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Acceso a Red UNAM</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryServ[0][11]\" name=\"arg11\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Acceso a productos y servicios de la DGB</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryServ[0][12]\" name=\"arg12\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Observaciones</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryServ[0][13]\" name=\"arg13\"></td></tr>";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Observaciones Subdirecci&oacuten</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryServ[0][14]\" name=\"arg14\"></td></tr></table>  ";

$NB=~s/"/'/g;
$ND=~s/"/'/g;
print " <input type=\"hidden\" value=\"$area\" name=\"area\"> ";
print " <input type=\"hidden\" value=\"$ND\" name=\"ND\"> ";
print " <input type=\"hidden\" value=\"$NB\" name=\"NB\"> ";
print " <input type=\"hidden\" value=\"$bib_id\" name=\"bib_id\"> ";
print " <input type=\"hidden\" value=\"$dir_id\" name=\"dir_id\"> ";
print " <input type=\"hidden\" value=\"$dep_id\" name=\"dep_id\"> ";
print " <input type=\"hidden\" value=\"$subdep_id\" name=\"subdep_id\"> ";
print " <input type=\"hidden\" value=\"$dgb\" name=\"dgb\"> ";
print " <input type=\"hidden\" value=\"$hx\" name=\"hx\"> ";
print " <input type=\"hidden\" value=\"$Passwd\" name=\"Passwd\"> ";
print " </form> ";

}

sub BibInfra1()
{
}

sub BibInfra2()
{
}

sub BibInfra3()
{
}

sub BibInfra4()
{
}

sub BibInfra5()
{
}

sub BibInfra6()
{

print " <p align=\"center\"> <b>Infraestructura Inform&aacute;tica</b> </p><form action=\"UpdtBibInfra1.pl\"> ";
print " <table width=\"50%\" border=\"0\" align=\"center\"> ";

print " <tr><td width=\"52%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Computadoras</b></td><td width=\"48%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryInfra[0][1]\" name=\"arg1\" onBlur=\"revisaEntero(0)\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Impresoras</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryInfra[0][3]\" name=\"arg3\" onBlur=\"revisaEntero(1)\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Servidores</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryInfra[0][4]\" name=\"arg4\" onBlur=\"revisaEntero(2)\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Software Utilizado</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryInfra[0][5]\" name=\"arg5\"></td></tr>";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Actividades Automatizadas</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryInfra[0][6]\" name=\"arg6\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Observaciones</b> </td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryInfra[0][7]\" name=\"arg7\"></td></tr>";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Observaciones Subdirecci&oacuten</b> </td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryInfra[0][8]\" name=\"arg8\"></td></tr></table> ";

$NB=~s/"/'/g;
$ND=~s/"/'/g;
print " <input type=\"hidden\" value=\"$area\" name=\"area\"> ";
print " <input type=\"hidden\" value=\"$ND\" name=\"ND\"> ";
print " <input type=\"hidden\" value=\"$NB\" name=\"NB\"> ";
print " <input type=\"hidden\" value=\"$bib_id\" name=\"bib_id\"> ";
print " <input type=\"hidden\" value=\"$dir_id\" name=\"dir_id\"> ";
print " <input type=\"hidden\" value=\"$dep_id\" name=\"dep_id\"> ";
print " <input type=\"hidden\" value=\"$subdep_id\" name=\"subdep_id\"> ";
print " <input type=\"hidden\" value=\"$dgb\" name=\"dgb\"> ";
print " <input type=\"hidden\" value=\"$hx\" name=\"hx\"> ";
print " <input type=\"hidden\" value=\"$Passwd\" name=\"Passwd\"> ";
print " </form> ";

}

sub BibNormat1()
{
}

sub BibNormat2()
{
}

sub BibNormat3()
{
}

sub BibNormat4()
{
}

sub BibNormat5()
{
}

sub BibNormat6()
{

print " <p align=\"center\"> <b>Normatividad</b> </p><form action=\"UpdtBibNormatividad1.pl\"> ";
print " <table width=\"50%\" border=\"0\" align=\"center\"> ";
print " <tr><td width=\"52%\" height=\"28\" bgcolor=\"#ACBED8\"><b>Comisi&oacute;n de Biliotecas</b></td><td width=\"48%\" height=\"28\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryNorm[0][1]\" name=\"arg1\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Reglamento de Biblioteca</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"> <input type=\"text\" size=\"50\" value=\"$aryNorm[0][2]\" name=\"arg2\">  </td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Manuales elaborados</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryNorm[0][3]\" name=\"arg3\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Observaciones</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryNorm[0][4]\" name=\"arg4\"></td></tr> ";
print " <tr><td width=\"52%\" bgcolor=\"#ACBED8\"><b>Observaciones Subdirecci&oacuten</b></td><td width=\"48%\" bgcolor=\"#C6DBF8\"><input type=\"text\" size=\"50\" value=\"$aryNorm[0][5]\" name=\"arg5\"></td></tr></table> ";


$NB=~s/"/'/g;
$ND=~s/"/'/g;
print " <input type=\"hidden\" value=\"$area\" name=\"area\"> ";
print " <input type=\"hidden\" value=\"$ND\" name=\"ND\"> ";
print " <input type=\"hidden\" value=\"$NB\" name=\"NB\"> ";
print " <input type=\"hidden\" value=\"$bib_id\" name=\"bib_id\"> ";
print " <input type=\"hidden\" value=\"$dir_id\" name=\"dir_id\"> ";
print " <input type=\"hidden\" value=\"$dep_id\" name=\"dep_id\"> ";
print " <input type=\"hidden\" value=\"$subdep_id\" name=\"subdep_id\"> ";
print " <input type=\"hidden\" value=\"$dgb\" name=\"dgb\"> ";
print " <input type=\"hidden\" value=\"$hx\" name=\"hx\"> ";
print " <input type=\"hidden\" value=\"$Passwd\" name=\"Passwd\"> ";
print " </form> ";

}

sub BibReporteGral1()
{
	DatosPropios1();
	Direccion1();
	Autoridades1();	
	BibDatosPropios1();
	BibDireccion1();
	BibClave1();
	BibRespEnlace1();
	BibRecHum1();
	BibColec1();
	BibServ1();
	BibInfra1();
	BibNormat1();
}
sub BibReporteGral2()
{

}
sub BibReporteGral3()
{

}
sub BibReporteGral4()
{

}
sub BibReporteGral5()
{

}

sub fecha()
{

my ($segundo,$minuto,$hora,$dia,$mes,$anio,$diaSemana) = (localtime(time))[0,1,2,3,4,5,6];

my @dias = ('Domingo','Lunes','Martes','Mircoles', 'Jueves','Viernes','Sbado');

my @meses = ('Enero','Febrero','Marzo','Abril','Mayo','Junio','Julio', 'Agosto','Septiembre','Octubre','Noviembre','Diciembre');

my $tiempo = sprintf("%02d:%02d:%02d",$hora,$minuto,$segundo);

$anio = substr($anio,1,2);

my $fecha = "$dias[$diaSemana] $dia de $meses[$mes] del $anio, a las $tiempo";

return $fecha;

}

1;
