#!/usr/bin/perl


use Pg;

require("../cgi-lib.pl");
require("./MenuPrincipal.lib");

&ReadParse;

$Error = $in{'Error'};   $Dependencia = $in{'Dependencia'};   $Subsistema = $in{'Subsistema'};
$Otro = $in {'Otro'};    $nombre = $in {'nombre'};            $area = $in {'area'};
$Area = $in {'Area'};    $Passwd = $in {'Passwd'};            $Ubica = $in {'Ubica'};

print "Content-type: text/html\n\n";

$conn = Pg::connectdb("dbname=directorio user=israeld password=Raia69*-+");

if ($conn->status != 0)
{  print "No hay conexion a la base de datos";
}
else
{
print " <html><head><title>Directorio</title> ";
print " <script type=\"text/javascript\" language=\"JavaScript1.2\" src=\"/israeld/Directorio/stm31.js\"></script>\n ";

print " <script language=\"JavaScript\"> ";
print " function manda(){ ";
print " document.forms[0].action=\"autenticacion.pl\";document.forms[0].submit();} ";

print " function choose(){ ";
print " document.forms[0].action=\"busqueda.pl\";document.forms[0].submit(); ";
print " } ";
print " </script> ";

print " </head> <BODY bgColor=aliceblue> ";

Encabezado();

print " <br> ";
}

if ($Error == 1)
{
	print " <script language=JavaScript> ";
	print " alert(\"Los datos ingresados son incorrectos. \n favor de intentarlo nuevamente\"); ";
	print " document.forms[0].elements[0].focus(); ";
	print " </script>";
}

print " <form action=\"busqueda.pl\"> ";

#Carga el combo de subsistema

Pg::doQuery ($conn, "SELECT distinct(subsistema) FROM datosbiblio WHERE bib_id > 0", \@arySubsist);

print " <p>&nbsp;</p> <table border=\"0\" width=\"70%\" align=\"center\"> ";
print " <tr> <td width=\"122\" bgcolor=\"#ACBED8\"><b>Subsistema</b> </td> <td width=\"219\" bgcolor=\"#C6DBF8\"> ";
print " <select name=\"Subsistema\" onChange=\"choose()\"> ";
print " <option value=\"\">---------------------</option> ";
print " <option value=\"Todos\">Todos</option> ";
$i = 0;
while ($i <= $#arySubsist)
{
	print " <option value=\"$arySubsist[$i][0]\">$arySubsist[$i][0]</option>";
	$i = $i + 1 ;
}
print " </select> </td> </tr> ";

#Termina de cargar el subsistema


#Carga el combo de dependencia

print " <tr> <td width=\"122\" bgcolor=\"#ACBED8\"><b> Dependencia </b> </td> ";
print " <td width=\"219\" bgcolor=\"#C6DBF8\"> ";
print " <select name=\"Dependencia\" onChange=\"choose()\"> ";
print " <option value=0>----------------</option> ";
print " <option value=999>Todas</option> ";
Pg::doQuery ($conn, "SELECT dep_id, nom_depen FROM datosdepen order by nom_depen", \@aryDepen);
$i = 1;
while ($i <= $#aryDepen)
{
      print " <option value=$aryDepen[$i][0]> $aryDepen[$i][1] </option> ";
      $i = $i + 1;
}
print " </select> </td> </tr> ";

# Termina de cargar dependencia

# carga en el combo ubicacion

print " <tr> <td width=\"122\" bgcolor=\"#ACBED8\"><b> Ubicacin </b> </td> ";
print " <td width=\"219\" bgcolor=\"#C6DBF8\"> ";
print " <select name=\"Ubica\" onChange=\"choose()\"> ";
print " <option value=\"0\">----------------</option> ";
print " <option value=\"1\">Ciudad Universitaria</option> ";
print " <option value=\"2\">Ciudad de Mxico</option> ";
print " <option value=\"3\">Zona Metropolitana</option> ";
print " <option value=\"4\">Foraneas</option> ";
print " </select> </td> </tr></table> ";

#Termina de cargar ubicacion

print " <table border=\"0\" width=\"70%\" align=\"center\"> ";
print " <tr> <td width=\"122\" bgcolor=\"#ACBED8\"><b> Buscar por:<b> </td> ";
print " <td bgcolor=\"#C6DBF8\"> ";
print " <select name=\"Otro\" > ";
print " <option value=\"0\">----------------</option> ";
print " <option value=\"1\"> Dependencia </option> ";
print " <option value=\"2\"> Biblioteca </option> ";
print " <option value=\"3\"> Clave dgb/hx</option> ";
print " <option value=\"4\"> Funcionario/Enlace  </option> ";
print " <option value=\"5\"> Libre  </option> ";
print " </select> </td> ";
print "	<td bgcolor=\"#C6DBF8\"><input type=\"text\" name=\"nombre\" size=\"30\" maxlength=\"30\"> </td> </tr> ";
print " </table><br><br> ";


if($Subsistema ne "")
{
	if($Subsistema eq "Todos")
	{
		  Pg::doQuery ($conn, "SELECT datosbiblio.bib_id, datosbiblio.control_hx, datosbiblio.control_dgb,
                       datosdepen.nom_depen, datosbiblio.nombre, direccion.localidad, direccion.municipio, direccion.estado
                       FROM datosbiblio, direccion, datosdepen
                       WHERE datosbiblio.bib_id = direccion.bib_id
                       AND direccion.dep_id = datosdepen.dep_id
                       AND direccion.bib_id > 0
                       AND datosbiblio.subsistema != ''
		       ORDER BY datosdepen.nom_depen ", \@aryBiblioD);
	}
	else
	{
                  Pg::doQuery ($conn, "SELECT datosbiblio.bib_id, datosbiblio.control_hx, datosbiblio.control_dgb,
                       datosdepen.nom_depen, datosbiblio.nombre, direccion.localidad, direccion.municipio, direccion.estado
                       FROM datosbiblio, direccion, datosdepen
                       WHERE datosbiblio.bib_id = direccion.bib_id
                       AND direccion.dep_id = datosdepen.dep_id
                       AND direccion.bib_id > 0
                       AND datosbiblio.subsistema = '$Subsistema'
                       ORDER BY datosdepen.nom_depen ", \@aryBiblioD);
	}

  $num = $#aryBiblioD;
  print " <center> <b>Bsqueda por Subsistema </b><br><br>  </center> ";
  $num = $num+1;
  print " <center><b>Bibliotecas recuperadas: $num </b></center><br><br> ";

  $i = 0;
   while ($i <= $#aryBiblioD)
   {
        print " <table align=\"center\" border=\"0\" width=\"70%\"> ";
	if($color == 1)
	{
        print " <tr><td width=\"5%\" bgcolor=\"#D7D9BF\"><input type=\"radio\" value=\"$aryBiblioD[$i][0]\" name=\"bib_id\" onClick=\"manda()\"></td> ";
        print " <td bgcolor=\"#B6C7E5\"><b> Identificador : </b> $aryBiblioD[$i][1] / $aryBiblioD[$i][2] <br>  ";
        #print " <b> Localizacin: </b> $i <br> ";
	print " <b> Dependencia : </b> $aryBiblioD[$i][3] <br> ";
        print " <b> Biblioteca : </b> $aryBiblioD[$i][4] </td> ";
        print " </tr> ";
        print " </table><br> ";
	$color = 0;
	}
	else
	{
        print " <tr><td width=\"5%\" bgcolor=\"#B6C7E5\" ><input type=\"radio\" value=\"$aryBiblioD[$i][0]\" name=\"bib_id\" onClick=\"manda()\"></td> ";
        print " <td bgcolor=\"#D7D9BF\"><b> Identificador : </b> $aryBiblioD[$i][1] / $aryBiblioD[$i][2] <br>  ";
        #print " <b> Localizacin: </b> $i <br> ";
	print " <b> Dependencia : </b> $aryBiblioD[$i][3] <br> ";
        print " <b> Biblioteca : </b> $aryBiblioD[$i][4] </td> ";
        print " </tr> ";
        print " </table><br> ";
	$color = 1;
	}
        $i = $i + 1;
   }
}

elsif($Dependencia > 0)
{
  if($Dependencia == 999)
  {
  Pg::doQuery ($conn, "SELECT datosbiblio.bib_id, datosbiblio.control_hx, datosbiblio.control_dgb,
                              datosdepen.nom_depen, datosbiblio.nombre
                       FROM datosbiblio, direccion, datosdepen
                       WHERE datosbiblio.bib_id = direccion.bib_id
                       AND direccion.dep_id = datosdepen.dep_id
                       AND direccion.bib_id > 0
                       ORDER BY datosdepen.nom_depen", \@aryBiblioD);
  }
  else
  {
  Pg::doQuery ($conn, "SELECT datosbiblio.bib_id, datosbiblio.control_hx, datosbiblio.control_dgb,
                              datosdepen.nom_depen, datosbiblio.nombre
                       FROM datosbiblio, direccion, datosdepen
                       WHERE datosbiblio.bib_id = direccion.bib_id
                       AND direccion.dep_id = datosdepen.dep_id
                       AND direccion.bib_id > 0
                       AND direccion.subdep_id >= 0
                       AND direccion.dep_id = $Dependencia
                       ORDER BY datosdepen.nom_depen", \@aryBiblioD);
  }
  $num = $#aryBiblioD + 1;
  print " <center><b>Bsqueda por Dependencia</b></center><br> ";
  print " <center><b>Bibliotecas recuperadas: $num</b></center><br><br> ";
  $i = 0;
   while ($i <= $#aryBiblioD)
   {
        print " <table align=\"center\" border=\"0\" width=\"70%\"> ";
       if($color == 1)
        {
        print " <tr><td width=\"5%\" bgcolor=\"#D7D9BF\"><input type=\"radio\" value=\"$aryBiblioD[$i][0]\" name=\"bib_id\" onClick=\"manda()\"></td> ";
        print " <td bgcolor=\"#B6C7E5\"><b> Identificador : </b> $aryBiblioD[$i][1] / $aryBiblioD[$i][2] <br>  ";
        print " <b> Dependencia :</b> $aryBiblioD[$i][3] <br> ";
        print " <b> Biblioteca: </b >$aryBiblioD[$i][4] </td> ";
        print " </tr> ";
        print " </table><br> ";
	$color = 0;
	}
	else
	{
        print " <tr><td width=\"5%\" bgcolor=\"#B6C7E5\"><input type=\"radio\" value=\"$aryBiblioD[$i][0]\" name=\"bib_id\" onClick=\"manda()\"></td> ";
        print " <td bgcolor=\"#D7D9BF\"><b> Identificador : </b> $aryBiblioD[$i][1] / $aryBiblioD[$i][2] <br>  ";
        print " <b> Dependencia : </b> $aryBiblioD[$i][3] <br> ";
        print " <b> Biblioteca : </b> $aryBiblioD[$i][4] </td> ";
        print " </tr> ";
        print " </table><br> ";
	$color = 1;
	}
        $i = $i + 1;
   }

}

# Para la ubicacion

elsif($Ubica ne 0)
{
if ($Ubica eq 1) 
{
Pg::doQuery ($conn, "SELECT datosbiblio.bib_id, datosbiblio.control_hx, datosbiblio.control_dgb,
                              datosdepen.nom_depen, datosbiblio.nombre, direccion.localidad, direccion.municipio
         			FROM datosbiblio, direccion, datosdepen
                               WHERE datosbiblio.bib_id = direccion.bib_id
                               AND direccion.dep_id = datosdepen.dep_id
                               AND direccion.bib_id > 0
                               AND direccion.localidad= 'Ciudad Universitaria'
                               ORDER BY datosdepen.nom_depen ", \@aryBiblioD);
}
elsif($Ubica eq 2)
{
Pg::doQuery ($conn, "SELECT datosbiblio.bib_id, datosbiblio.control_hx, datosbiblio.control_dgb,
                              datosdepen.nom_depen, datosbiblio.nombre, direccion.localidad, direccion.municipio
                                FROM datosbiblio, direccion, datosdepen
                               WHERE datosbiblio.bib_id = direccion.bib_id
                               AND direccion.dep_id = datosdepen.dep_id
                               AND direccion.bib_id > 0
                               AND (direccion.estado = 'D.F.' AND direccion.localidad != 'Ciudad Universitaria')
                               ORDER BY datosdepen.nom_depen ", \@aryBiblioD);
}
elsif($Ubica eq 3)
{
Pg::doQuery ($conn, "SELECT datosbiblio.bib_id, datosbiblio.control_hx, datosbiblio.control_dgb,
                              datosdepen.nom_depen, datosbiblio.nombre, direccion.localidad, direccion.municipio
                                FROM datosbiblio, direccion, datosdepen
                               WHERE datosbiblio.bib_id = direccion.bib_id
                               AND direccion.dep_id = datosdepen.dep_id
                               AND direccion.bib_id > 0
                               AND (direccion.estado = 'D.F.' OR direccion.estado = 'Estado de Mxico')
                               AND direccion.localidad != 'Ciudad Universitaria' 
                               ORDER BY datosdepen.nom_depen ", \@aryBiblioD);
}
elsif($Ubica eq 4)
{
Pg::doQuery ($conn, "SELECT datosbiblio.bib_id, datosbiblio.control_hx, datosbiblio.control_dgb,
                              datosdepen.nom_depen, datosbiblio.nombre, direccion.localidad, direccion.municipio
                                FROM datosbiblio, direccion, datosdepen
                               WHERE datosbiblio.bib_id = direccion.bib_id
                               AND direccion.dep_id = datosdepen.dep_id
                               AND direccion.bib_id > 0
                               AND (direccion.estado != 'D.F.' OR direccion.estado = 'Estado de Mxico')
                               ORDER BY datosdepen.nom_depen ", \@aryBiblioD);
}

$num = $#aryBiblioD + 1;
  print " <center><b>Bsqueda por Ubicacin</b></center><br> ";
  print " <center><b>Bibliotecas recuperadas: $num</b></center><br><br> ";
  $i = 0;
   while ($i <= $#aryBiblioD)
   {
        print " <table align=\"center\" border=\"0\" width=\"70%\"> ";
       if($color == 1)
        {
        print " <tr><td width=\"5%\" bgcolor=\"#D7D9BF\"><input type=\"radio\" value=\"$aryBiblioD[$i][0]\" name=\"bib_id\" onClick=\"manda()\"></td> ";
        print " <td bgcolor=\"#B6C7E5\"><b> Identificador : </b> $aryBiblioD[$i][1] / $aryBiblioD[$i][2] <br>  ";
        print " <b> Dependencia :</b> $aryBiblioD[$i][3] <br> ";
        print " <b> Biblioteca: </b >$aryBiblioD[$i][4] <br> ";
        print " <b> Ubicacin: </b >$aryBiblioD[$i][5] / $aryBiblioD[$i][6] </td> ";
        print " </tr> ";
        print " </table><br> ";
        $color = 0;
        }
        else
        {
        print " <tr><td width=\"5%\" bgcolor=\"#B6C7E5\"><input type=\"radio\" value=\"$aryBiblioD[$i][0]\" name=\"bib_id\" onClick=\"manda()\"></td> ";
        print " <td bgcolor=\"#D7D9BF\"><b> Identificador : </b> $aryBiblioD[$i][1] / $aryBiblioD[$i][2] <br>  ";
        print " <b> Dependencia : </b> $aryBiblioD[$i][3] <br> ";
        print " <b> Biblioteca : </b> $aryBiblioD[$i][4] <br> ";
        print " <b> Ubicacin: </b >$aryBiblioD[$i][5] / $aryBiblioD[$i][6] </td> ";
        print " </tr> ";
        print " </table><br> ";
        $color = 1;
        }
        $i = $i + 1;
   }
}

# Termina para la ubicacion

# Para buscar por palabra

elsif($Otro > 0)
{
   if($Otro eq 1)
   {
	  Pg::doQuery ($conn, "SELECT datosbiblio.bib_id, datosbiblio.control_hx, datosbiblio.control_dgb,
                                      datosdepen.nom_depen, datosbiblio.nombre
                               FROM datosbiblio, direccion, datosdepen
                               WHERE datosbiblio.bib_id = direccion.bib_id
                               AND direccion.dep_id = datosdepen.dep_id
                               AND direccion.bib_id > 0
			       AND TRANSLATE(UPPER(datosdepen.nom_depen), '', 'AEIOU') LIKE
				   TRANSLATE(UPPER('%$nombre%'), '', 'AEIOU') 
			       ORDER BY datosdepen.nom_depen ", \@aryBiblioD);
          $num = $#aryBiblioD + 1;
          print " <center><b>Bsqueda por Dependencia</b></center><br> ";
          print " <center><b>Bibliotecas recuperadas: $num</b></center><br><br> ";
          $i = 0;
          while ($i <= $#aryBiblioD)
          {
	    if($color == 1)
            {

              print " <table align=\"center\" border=\"0\" width=\"70%\"> ";
              print " <tr><td width=\"5%\" bgcolor=\"#D7D9BF\"><input type=\"radio\" value=\"$aryBiblioD[$i][0]\" name=\"bib_id\"i onClick=\"manda()\"></td> ";
              print " <td bgcolor=\"#B6C7E5\"><b> Identificador : </b> $aryBiblioD[$i][1] / $aryBiblioD[$i][2] <br>  ";
              print " <b> Dependencia : </b>$aryBiblioD[$i][3] <br> ";
              print " <b> Biblioteca : </b>$aryBiblioD[$i][4] </td> ";
              print " </tr> ";
              print " </table><br> ";
	      $color = 0;
	    }
	    else
	    {
              print " <table align=\"center\" border=\"0\" width=\"70%\"> ";
              print " <tr><td width=\"5%\" bgcolor=\"#B6C7E5\"><input type=\"radio\" value=\"$aryBiblioD[$i][0]\" name=\"bib_id\"i onClick=\"manda()\"></td> ";
              print " <td bgcolor=\"#D7D9BF\"><b> Identificador : </b> $aryBiblioD[$i][1] / $aryBiblioD[$i][2] <br>  ";
              print " <b> Dependencia : </b> $aryBiblioD[$i][3] <br> ";
              print " <b> Biblioteca : </b> $aryBiblioD[$i][4] </td> ";
              print " </tr> ";
              print " </table><br> ";
	      $color = 1;
	    }
              $i = $i + 1;
        }
   }
   elsif($Otro eq 2)
   {
          Pg::doQuery ($conn, "SELECT datosbiblio.bib_id, datosbiblio.control_hx, datosbiblio.control_dgb,
                                      datosdepen.nom_depen, datosbiblio.nombre
                               FROM datosbiblio, direccion, datosdepen
                               WHERE datosbiblio.bib_id = direccion.bib_id
                               AND direccion.dep_id = datosdepen.dep_id
                               AND direccion.bib_id > 0
			       AND TRANSLATE(UPPER(datosbiblio.nombre), '', 'AEIOU') LIKE
                                   TRANSLATE(UPPER('%$nombre%'), '', 'AEIOU')
			       ORDER BY datosdepen.nom_depen ", \@aryBiblioD);
          $num = $#aryBiblioD + 1;
          print " <center><b>Bsqueda por Nombre de Biblioteca</b></center><br> ";
          print " <center><b>Bibliotecas Recuperadas: $num</b></center><br><br> ";
          $i = 0;
          while ($i <= $#aryBiblioD)
          {
            if($color == 1)
            {
              print " <table align=\"center\" border=\"0\" width=\"70%\"> ";
              print " <tr><td width=\"5%\" bgcolor=\"#D7D9BF\"><input type=\"radio\" value=\"$aryBiblioD[$i][0]\" name=\"bib_id\"i onClick=\"manda()\"></td> ";
              print " <td bgcolor=\"#B6C7E5\"><b> Identificador : </b> $aryBiblioD[$i][1] / $aryBiblioD[$i][2] <br>  ";
              print " <b> Dependencia : </b> $aryBiblioD[$i][3] <br> ";
              print " <b> Biblioteca : </b> $aryBiblioD[$i][4] </td> ";
              print " </tr> ";
              print " </table><br> ";
	      $color = 0;
	    }
	    else
	    {
              print " <table align=\"center\" border=\"0\" width=\"70%\"> ";
              print " <tr><td width=\"5%\" bgcolor=\"#B6C7E5\"><input type=\"radio\" value=\"$aryBiblioD[$i][0]\" name=\"bib_id\" onClick=\"manda()\"></td> ";
              print " <td bgcolor=\"#D7D9BF\"><b> Identificador : </b> $aryBiblioD[$i][1] / $aryBiblioD[$i][2] <br>  ";
              print " <b> Dependencia : </b> $aryBiblioD[$i][3] <br> ";
              print " <b> Biblioteca : </b> $aryBiblioD[$i][4] </td> ";
              print " </tr> ";
              print " </table><br> ";
	      $color = 1;
	    } 
              $i = $i + 1;
          }
   }
   elsif($Otro eq 3)
   {
          Pg::doQuery ($conn, "SELECT datosbiblio.bib_id, datosbiblio.control_hx, datosbiblio.control_dgb,
                                      datosdepen.nom_depen, datosbiblio.nombre
                               FROM datosbiblio, direccion, datosdepen
                               WHERE datosbiblio.bib_id = direccion.bib_id
                               AND direccion.dep_id = datosdepen.dep_id
                               AND direccion.bib_id > 0
                               AND (datosbiblio.control_dgb='$nombre' OR datosbiblio.control_hx= '$nombre')
			       ORDER BY datosdepen.nom_depen", \@aryBiblioD);
          $num = $#aryBiblioD + 1;
          print " <center><b>Bsqueda por Clave</b></center><br> ";
          print " <center><b>Bibliotecas Recuperadas: $num</b></center><br><br> ";
          $i = 0;
          while ($i <= $#aryBiblioD)
          {
                if($color == 1)
                {
                        $a = "D7D9BF";
                        $b = "B6C7E5";
                        $color = 0;
                }
                else
                {
                        $b = "D7D9BF";
                        $a = "B6C7E5";
                        $color = 1;
                }

              print " <table align=\"center\" border=\"0\" width=\"70%\"> ";
              print " <tr><td width=\"5%\" bgcolor=\"#$a\"><input type=\"radio\" value=\"$aryBiblioD[$i][0]\" name=\"bib_id\" onClick=\"manda()\"></td> ";
              print " <td bgcolor=\"#$b\"><b> Identificador : </b> $aryBiblioD[$i][1] / $aryBiblioD[$i][2] <br>  ";
              print " <b>Dependencia :</b> $aryBiblioD[$i][3] <br> ";
              print " <b>Biblioteca : </b> $aryBiblioD[$i][4] </td> ";
              print " </tr> ";
              print " </table><br> ";
              $i = $i + 1;
          }
   }
   elsif($Otro = 4)
   {
          Pg::doQuery ($conn, "SELECT datosbiblio.bib_id, datosbiblio.control_hx, datosbiblio.control_dgb,
                                      datosdepen.nom_depen, datosbiblio.nombre, datospersona.grado,
				      datospersona.nombre, persona.cargo
                               FROM datosbiblio, direccion, datosdepen, persona, datospersona
                               WHERE datosbiblio.bib_id = direccion.bib_id
                               AND direccion.dep_id = datosdepen.dep_id
			       AND datosbiblio.bib_id = persona.bib_id
			       AND persona.per_id = datospersona.per_id
                               AND direccion.bib_id > 0
			       AND TRANSLATE(UPPER(datospersona.nombre), '', 'AEIOU') LIKE
                                   TRANSLATE(UPPER('%$nombre%'), '', 'AEIOU')
			       ORDER BY datosdepen.nom_depen  ", \@aryBiblioD);
          $num = $#aryBiblioD + 1;
          print " <center><b>Bsqueda por Funcionario</b></center><br> ";
          print " <center><b>Bibliotecas Recuperadas: $num</b></center><br><br> ";
          $i = 0;
          while ($i <= $#aryBiblioD)
          {
		if($color == 1)
		{
			$a = "D7D9BF";
			$b = "B6C7E5";
			$color = 0;
		}
	 	else
		{
			$b = "D7D9BF";
                        $a = "B6C7E5";
			$color = 1;
		}
              print " <table align=\"center\" border=\"0\" width=\"70%\"> ";
              print " <tr><td width=\"5%\" bgcolor=\"#$a\"><input type=\"radio\" value=\"$aryBiblioD[$i][0]\" name=\"bib_id\" onClick=\"manda()\"></td> ";
              print " <td bgcolor=\"#$b\"><b> Identificador : </b> $aryBiblioD[$i][1] / $aryBiblioD[$i][2] <br>  ";
              print " <b>Dependencia : </b>  $aryBiblioD[$i][3] <br> ";
              print " <b>Biblioteca : </b> $aryBiblioD[$i][4] ";
	      print " <table width=\"100%\"><tr><td align=\"left\">$aryBiblioD[$i][5]$aryBiblioD[$i][6]</td> ";
	      print " <td align=\"right\"> ";
	      if($aryBiblioD[$i][7] == 1)
	      { print "Director(a)"; }
	      elsif($aryBiblioD[$i][7] == 2)
	      { print "Jefe(a) Unidad Admva"; }
              elsif($aryBiblioD[$i][7] == 3)
              { print "Jefe(a) Area de Presupuesto "; }
              elsif($aryBiblioD[$i][7] == 4)
              { print "Coordinador(a)"; }
              elsif($aryBiblioD[$i][7] == 5)
              { print "Responsable de la Biblioteca"; }
              elsif($aryBiblioD[$i][7] == 6)
              { print "Responsable de Hemeroteca"; }
              elsif($aryBiblioD[$i][7] == 7)
              { print "Responsable de Procesos Tcnicos"; }	      
	      print " </td></table> ";
              print " </td></tr> ";
              print " </table><br> ";
              $i = $i + 1;
          }
    }

elsif($Otro = 5)

   {
          
	Pg::doQuery ($conn, "SELECT datosbiblio.bib_id, datosbiblio.control_hx, datosbiblio.control_dgb,
                                      datosdepen.nom_depen, datosbiblio.nombre
                               FROM datosbiblio, direccion, datosdepen
                               WHERE datosbiblio.bib_id = direccion.bib_id
                               AND direccion.dep_id = datosdepen.dep_id
                               AND direccion.bib_id > 0
                               AND (datosbiblio.control_dgb='$nombre' OR datosbiblio.control_hx= '$nombre')
                               ORDER BY datosdepen.nom_depen", \@aryBiblioD);
          $num = $#aryBiblioD + 1;
          print " <center><b>Bsqueda por Clave</b></center><br> ";
          print " <center><b>Bibliotecas Recuperadas: $num</b></center><br><br> ";
          $i = 0;
          while ($i <= $#aryBiblioD)
          {
                if($color == 1)
                {
                        $a = "D7D9BF";
                        $b = "B6C7E5";
                        $color = 0;
                }
                else
                {
                        $b = "D7D9BF";
                        $a = "B6C7E5";
                        $color = 1;
                }

              print " <table align=\"center\" border=\"0\" width=\"70%\"> ";
              print " <tr><td width=\"5%\" bgcolor=\"#$a\"><input type=\"radio\" value=\"$aryBiblioD[$i][0]\" name=\"bib_id\" onClick=\"manda()\"></td> ";
              print " <td bgcolor=\"#$b\"><b> Identificador : </b> $aryBiblioD[$i][1] / $aryBiblioD[$i][2] <br>  ";
              print " <b>Dependencia :</b> $aryBiblioD[$i][3] <br> ";
              print " <b>Biblioteca : </b> $aryBiblioD[$i][4] </td> ";
              print " </tr> ";
              print " </table><br> ";
              $i = $i + 1;
          }


	Pg::doQuery ($conn, "SELECT datosbiblio.bib_id, datosbiblio.control_hx, datosbiblio.control_dgb,
                                      datosdepen.nom_depen, datosbiblio.nombre, datospersona.grado,
                                      datospersona.nombre, persona.cargo
                               FROM datosbiblio, direccion, datosdepen, persona, datospersona
                               WHERE datosbiblio.bib_id = direccion.bib_id
                               AND direccion.dep_id = datosdepen.dep_id
                               AND datosbiblio.bib_id = persona.bib_id
                               AND persona.per_id = datospersona.per_id
                               AND direccion.bib_id > 0
                               AND TRANSLATE(UPPER(datospersona.nombre), '', 'AEIOU') LIKE
                                   TRANSLATE(UPPER('%$nombre%'), '', 'AEIOU')
                               ORDER BY datosdepen.nom_depen  ", \@aryBiblioD);
          $num = $#aryBiblioD + 1;
          print " <center><b>Bsqueda Libre</b></center><br> ";
          print " <center><b>Bibliotecas Recuperadas: $num</b></center><br><br> ";
          $i = 0;
          while ($i <= $#aryBiblioD)
          {
                if($color == 1)
                {
                        $a = "D7D9BF";
                        $b = "B6C7E5";
                        $color = 0;
                }
                else
                {
                        $b = "D7D9BF";
                        $a = "B6C7E5";
                        $color = 1;
                }
              print " <table align=\"center\" border=\"0\" width=\"70%\"> ";
              print " <tr><td width=\"5%\" bgcolor=\"#$a\"><input type=\"radio\" value=\"$aryBiblioD[$i][0]\" name=\"bib_id\" onClick=\"manda()\"></td> ";
              print " <td bgcolor=\"#$b\"><b> Identificador : </b> $aryBiblioD[$i][1] / $aryBiblioD[$i][2] <br>  ";
              print " <b>Dependencia : </b>  $aryBiblioD[$i][3] <br> ";
              print " <b>Biblioteca : </b> $aryBiblioD[$i][4] ";
              print " <table width=\"100%\"><tr><td align=\"left\">$aryBiblioD[$i][5]$aryBiblioD[$i][6]</td> ";
              print " <td align=\"right\"> ";
              if($aryBiblioD[$i][7] == 1)
              { print "Director(a)"; }
              elsif($aryBiblioD[$i][7] == 2)
              { print "Jefe(a) Unidad Admva"; }
              elsif($aryBiblioD[$i][7] == 3)
              { print "Jefe(a) Area de Presupuesto "; }
              elsif($aryBiblioD[$i][7] == 4)
              { print "Coordinador(a)"; }
              elsif($aryBiblioD[$i][7] == 5)
              { print "Responsable de la Biblioteca"; }
              elsif($aryBiblioD[$i][7] == 6)
              { print "Responsable de Hemeroteca"; }
              elsif($aryBiblioD[$i][7] == 7)
              { print "Responsable de Procesos Tcnicos"; }
              print " </td></table> ";
              print " </td></tr> ";
              print " </table><br> ";
              $i = $i + 1;
          }
    }
}

print " <input type=\"hidden\" value=\"$area\" name=\"area\"> <input type=\"hidden\" value=\"$Passwd\" name=\"Passwd\">  ";
print " <input type=\"hidden\" value=\"$area\" name=\"Area\">"; 
print " </form><br><br><center> <a href=\"Index.pl\"><img border=\"0\" src=\"/israeld/Directorio/Regresar.gif\"></a> </form> ";
print " </center></form></body></html> ";
