#!/usr/bin/perl


use OpenIsis;

$biblioteca{"BC"} = "Biblioteca Central";
$biblioteca{"BENF"} = "Biblioteca Enfermeria";
$biblioteca{"BDER"} = "Biblioteca Derecho";
$biblioteca{"BINF"} = "Biblioteca Informatica";
$biblioteca{"BCEF"} = "Biblioteca Ciencias Economicas y Financieras";
$biblioteca{"BBYF"} = "Biblioteca Bioquimica y Farmacia";
$biblioteca{"BAYF"} = "Biblioteca Agricolas y Forestales";
$biblioteca{"BPSI"} = "Biblioteca Psicologia";
$biblioteca{"BODT"} = "Biblioteca Odontologia";
$biblioteca{"BQMC"} = "Biblioteca Quimica";
$biblioteca{"BTEC"} = "Biblioteca Tecnologia";
$biblioteca{"BMED"} = "Biblioteca Medicina";
$biblioteca{"BP"}   = "Biblioteca Posgrado";
$biblioteca{"BTEA"} = "Biblioteca Alimentos";
$biblioteca{"BLM"}  = "Biblioteca Lenguas Modernas";

#configuracion de las bases de datos
$base1='db/union/union';
$base2='db/tesis/tesis';
$base3='db/refer/refer';

sub registros () {
 
 print "<tr valign=top ><td><b><font size=2>$n</font></b></td>
	         <td><font size=1>";		
		      
		print "<table border=0 width='100%' cellpadding=0 cellspacing=0 bordercolor=gray align=center>";
		
	            $linea = $row->{'1'};
		    print "<tr class=colb><td width='15%'><font size=2>Biblioteca<td><font size=2>", $linea->[0], " - ", $biblioteca{$linea->[0]};
		    $xbiblio = $biblioteca{$linea->[0]};
		    $biblioteca=$linea->[0];
	            
		    $linea = $row->{'3'}; 
		    $ubicacion = $linea->[0];
		    $ubicacion =~ s/\^b/\//g;
		    print "<tr class=colb><td><font size=2>Ubicacion<td><font size=2>", $ubicacion;
		    $xubica = $ubicacion;

	            #Sacar autores
		    $autores="";
		    $linea = $row->{'16'};
		    $autor=$linea->[0];
		    
		    for ($k=0; $k < 10; $k++){
                      if ($linea->[$k] ne ""){
		        if ($k eq 0){
			 $autores = $linea->[$k];
			}else{
			$autores =$autores."; ".$linea->[$k];
		        }
		      }
		    }  
		    #reemplazar roles en autores
		    $autores =~ s/\^rtrad/ (trad)/g; $autores =~ s/\^red/ (editor)/g;  $autores =~ s/\^rcomp/ (compilador)/g;
		    		    		    
		    if ($autores ne ""){ 
		      print "<tr class=colb valign=top><td><font size=2>Autor(es)<td><font size=2>", $autores;
		      $xautores = $autores;
		    }else{
		      $linea = $row->{'17'};
		      $autor = $linea->[0];
    		      print "<tr class=colb valign=top><td><font size=2>Autor inst.<td><font size=2>", $linea->[0],"</td></tr>";
		      $xautores = $linea->[0];
		    }
		    		    
	            $linea = $row->{'18'};
		    $titulo = $linea->[0];
		    		    
		    print "<tr class=colb valign=top><td><font size=2>Titulo<td><font size=2>", $linea->[0],"</td></tr>";
                     
		    # juntar inventario + codigo de la biblioteca   
		    $codigo = $row->{'7'};
		    $yid_libro = $codigo->[0];
		    
		    #muestra los inventario contruye un formulario
		    print "<form method=post action='/frida/biblioteca/prestamos_bbt1/'>";
		    
		    for ($k=0; $k < 40; $k++){
		      $inv=$codigo->[$k];
		      $inv =~ s/\^c/./g;
  		      $inv =~ s/\^b/./g;
		      $inv =~ s/\^v/./g;
		      $inv =~ s/\ //g;
		      $inv=~ s/\.  -/$cad2/g;
                      if ( $inv ne ""){
		        if ($k eq 0){
			  #print "<tr class=colb valign=top><td><font size=2>Inventario(s)<td><font size=2><input type=radio name=xid_libro value='".$inv."' checked>", $inv;
			  print "<tr class=colb valign=top><td><font size=2>Inventario(s)<td><font size=2><input type=radio name=xid_libro value='".$inv."' checked>",$inv;
			}else{
		          #print "<tr class=colb valign=top><td><font size=2>&nbsp<td><font size=2><input type=radio name=xid_libro value='".$inv."'>", $inv;
			  print "<tr class=colb valign=top><td><font size=2>&nbsp<td><font size=2><input type=radio name=xid_libro value='".$inv."'>", $inv;
			}
		      }
		    }
		    
	    
		    $linea = $row->{'41'};
		    print "<tr class=colb valign=top><td><font size=2>Fuente<td><font size=2>", $linea->[0], " ";
	            $linea = $row->{'39'}; print $linea->[0], ": ";
	            #$linea = $row->{'38'}; print $linea->[0], ", ";
	            $linea = $row->{'43'}; print $linea->[0], ", ";
		    $gestion=$linea->[0];
		    
	            $linea = $row->{'20'}; print $linea->[0], ". ";
	            $linea = $row->{'68'};
		    
		    if ($linea->[0] ne "") {
		      print "<tr class=colb valign=top><td><font size=2>Notas<td><font size=2>",  $linea->[0];
		    }
	            
		    $linea = $row->{'76'};
		    $auxiliar="";
		    
		    for ($k=0; $k < 10; $k++){
                      if ($linea->[$k] ne ""){
		        $auxiliar = $auxiliar." ".$linea->[$k];
		      }
		    }
		    
		    
		    print "<tr class=colb valign=top><td><font size=2>Temas<td><font size=2>", $auxiliar,"</td></tr>";
		    
		    $resumen = $row->{'72'};
		    $resumen2 = $resumen->[0];
		    
		    if ($resumen2 ne "") {  
		      $resumen2 = substr($resumen2,0,100);
		      print "<tr class=colb valign=top>
		             <td valign=top>Resumen
			     <td><font size=1>", $resumen2,"<font color=blue>...(mas)</font></font>";
		    }
		    
		    # fin del listado de inventarios
		    print "<input type=hidden name=nombrelib value='".$titulo."'>";
		    print "<input type=hidden name=sigtop value='".$ubicacion."'>";
		    print "<input type=hidden name=autor value='".$autor."'>";
		    print "<input type=hidden name=biblioteca value='".$biblioteca."'>";
		    print "<input type=hidden name=gestion value='".$gestion."'>";
		    
		    print "<tr class=colb>
		           <td><td><input type=submit value='Prestar' class=colbt>
			  ";
		    print "</form>";
                      	    
		    if ($resumen2 ne "") {  
		      $cad1=".<br><br>";
		      $cad2="<br><li>";
		    
		      $resumen = $row->{'72'};
		      $resumen2 = $resumen->[0];
		      $resumen2=~ s/\.  -/$cad2/g;
		      $resumen2=~ s/\.    -/$cad2/g;
		      $resumen2=~ s/\.    /$cad1/g;
		    
		      print "<form method=post action='/frida/biblioteca/ver_resumen/'>";
		      print "<tr class=colb>
		             <td><textarea name='resumen' cols=0 rows=0  style='visibility:hidden'>".$resumen2."</textarea>
			     <td><input type=submit value='Ver resumen' class=colbt>";
		      print "</td></td></tr></form>";	      		    
		      
		    }  
		    
		    #sacar las urls para textos compeltos
		    $url = $row->{'101'};
		    $folder="/frida/biblioteca/tesis/";
		    for ($m=0; $m < 20; $m++){
		      $url2=$url->[$m];
                      if ( $url2 ne ""){
		        $url2 =~ s/\^b/|/g;
		        $url2 =~ s/\^a//g;
		        ($cad3,$cad4) = split(/\|+/, $url2);
		        if ($m eq 0){
			
			 #<td><font size=1><a href='",$folder,$cad3,"' target='nuevo'>",$cad4,"</a></font>
 		          print "<tr class=colb valign=top>
			         <td><img src='/frida/_img/pdf.gif'>Texto completo
				 <td><font size=1><a href='/frida/biblioteca/cgi-bin/ver.php?direccion=",$folder,$cad3,"'>",$cad4,"</a></font>";
		        }else{	  
 		          print "<tr class=colb valign=top>
			         <td>&nbsp
				 <td><font size=1><a href='/frida/biblioteca/cgi-bin/ver.php?direccion=",$folder,$cad3,"'>", $cad4,"</a></font>";			   
		        }
		      }
		    }
	     
   	     print "<tr><td><font size=2>&nbsp";		    
  	     print "</td></tr></table>";
}


sub conectar{ #FUNCON PARA CONECTARSE A BASE DE DATOS ISIS
  local($base)=@_;
  OpenIsis::log(0,'');
  $db = OpenIsis::open($base);
}

print "Content-type: text/html\n\n
       <html>
       
       <link rel='stylesheet' href='/frida/_insumos/css/coimata.css'>
       <head>
    
       <title> Gobierno Electr&oacute;nico </title>    
       <center>
       <img src='/frida/_img/pagina/banner.jpg' width=100%  >
       <table border=0 width='100%' cellspacing=0>
	<tr align=left class=colh height=20>
	<td align=left><a href='/frida/'><font  size='2'>Principal </font></a>
	<font face='' size='2'> >>Busqueda en la Biblioteca</b></font>
	<td align=right><font face='' size='1' >Gobierno Electronico</font>
	</td></tr></table>

       </center>
       <meta http-equiv='content-type' content='text/html; charset=utf-8' background='/frida/_img/pagina/logo1.gif'>
       </head>
       <body background='/_img/pagina/fondo-biblioteca.gif' bgproperties='fixed' topmargin=0 leftmargin=0 >";

@variables = split (/\&/,$ENV{'QUERY_STRING'});
$algunas_var= @variables[0]."&".@variables[1]."&".@variables[2]."&".@variables[3]."&".@variables[4];

foreach $parte (@variables){

   ($var,$val) = split("=", $parte);
    $val =~ s/\+/\ /g;

   #$valores = $valores.' '.$val;
   if ($var eq "base"){  $base=$val  }
   
   if ($var eq "biblio"){  $biblio=$val  }

   if ($var eq "campo"){  $campo=$val  }

   if ($var eq "palabra"){  $palabra=$val }
   
  if ($var eq "boton"){  $boton=$val }
  
  if ($var eq "desde"){  $desde=$val; }
   
 if ($var eq "hasta"){ $hasta=$val }   
}


$palabra=~s/%F1/n/g;
$palabra=~ s/\ or /\+/g;
$palabra=~ s/\ and /\*/g;
$palabra=~ s/\*/\*/g;
$palabra=~ s/\%2/\+/g;
$palabra=~ s/\+4/\$/g;
$palabra=~ s/-/\^/g;

$palabra=~ s/\ +B /\+/g;
$palabra=~ s/\ +B/\+/g;
$palabra=~ s/\+B /\+/g;
$palabra=~ s/\+B/\+/g;

$palabra_orig=$palabra;
$palabra_orig=~ s/\^/\-/g;



@limitadores = (" el ", " los ", " un "," unos ",
                " la ", " las "," una ", " unas ",
		" al "," del "," en ","para",
		" que "," mi "," tu "," si "," no ",
		" si "," ni "," por ", " de ", " y ",
		" o ");
foreach $limites (@limitadores)
{
  $palabra=~ s/$limites/\ /g;
}

$palabra=~ s/\ /\*/g;



$palabra=$palabra.$campo.$biblio;

$palabra=~ s/\%2F/\//g;
$palabra=~ s/\%28/\(/g;
$palabra=~ s/\%29/\)/g;
$palabra=~ s/\%23/\$/g;

print"<h2>Biblioteca Virtual Publica</h2>";      

if ($base eq "Libros"){
   $cad1="<option SELECTED>".$base."</option>
          <option>Tesis</option>";
}

if ($base eq "Tesis"){
   $cad1="<option>Libros</option>
          <option SELECTED>".$base."</option>
          ";
}

if ($base eq ""){
   $cad1="<option>Libros</option>
          <option>Tesis </option>
          ";
}


print "
    <form action='publica.pl' method='get'>
     <center>
     <table width=100% border=0> 
     
      	<tr class=colh  height=35>
	    <td align=center colspan=3>
	     Buscar 
	    <input type='text' name='palabra' value='$palabra_orig' size='30' >
	    <input type='submit' class=colbt name=boton  value='Realizar Busqueda'></td> 
    	</tr>
		
	<tr class=colb>
	<td align=center colspan=2>
	 Base de datos:.
	  <select name='base'>".
	     $cad1."
    	  </select>
	  
	 En el Campo:. 
	 <select name='campo'>
	     <option value=''>Todos</option>
	     <option value='#/(16)'>Autor personal</option>
             <option value='/(17)'>Autor institucional</option>
	     <option value='#/(7)'>Inventario</option>
	     <option value='/(18)'>Titulo</option>
	     <option value='#/(76)'>Tema</option>
    	 </select>

	 En la Biblioteca:.
	 <select name='biblio'>
	     <option value=''>Todas</option>
	     <option value='*BAYF/(1)'>Agricolas y For.</option>
	     <option value='*BTEA/(1)'>Alimentos</option>
	     <option value='*BBYF/(1)'>Bioquimica y Farmacia</option>
	     <option value='*BC/(1)'>Central</option>
	     <option value='*BDER/(1)'>Derecho</option>
	     <option value='*BCEF/(1)'>Economicas y Fin.</option>
	     <option value='*BENF/(1)'>Enfermeria</option>
	     <option value='*BINF/(1)'>Informatica</option>
	     <option value='*BMED/(1)'>Medicina</option>
	     <option value='*BODT/(1)'>Odontologia</option>	     
             <option value='*BP/(1)'>PostGrado</option>
	     <option value='*BPSI/(1)'>Psicologia</option>
	     <option value='*BQMC/(1)'>Quimica</option>
	     <option value='*BTEC/(1)'>Tecnologia</option>
	     <option value='*BLM/(1)'>Lenguas Modernas</option>
	     
    	 </select>
	 
	 </td>";
	 #<li><a href=http://coimata.uajms.edu.bo/frida/biblioteca/bib.htm>Como realizar busquedas?</a><br>
	 #<li><a href=http://www.uc3m.es/biblioteca/GUIA/citasbibliograficas.html target='_blank'>Como citar bibliografia?</a><br>
	 if ($palabra eq ""){  
	 print" <tr class=colb>
	 <td>
	 <li><a href=../ver/ver2.php?dir=\'coimata.uajms.edu.bo/frida/biblioteca/bib_n2.doc\'>Como realizar busquedas?</a><br>
	 <li><a href=http://coimata.uajms.edu.bo/frida/biblioteca/cgi-bin/lis.pl>Localizador de Informacion academica (Nuevo)</a><br>
	 <li><a href=http://coimata.uajms.edu.bo/frida/biblioteca/cgi-bin/sitios.pl>Acceso a bibliotecas virtuales y publicaciones periodicas (Nuevo)</a><br>
	 ";
 	}
	
     print "</table></center>     
    </form>";

if ($base eq 'Libros'){
  conectar($base1);
}

if ($base eq 'Tesis'){
  conectar($base2);
}

if ($base eq 'Referencia'){
  conectar($base3);
}


if ($palabra ne '')
{

@tuplas = OpenIsis::query( $db, $palabra);

$registros = scalar( @tuplas );
$pagina_reg = int($registros /10);
$sobra_reg = $registros % 10;

#        <a href=/cgi-bin/buscar.pl><< Volver</a>
print "<table align=center width=100% class=colh>";
print "<tr><td>
	| Buscando el patr&oacute;n ::<u><font color=red>", $palabra,"</font></u> en:: <u><font color=red>",$base,"</font></u>";
print "se encontraron :: <u>", scalar( @tuplas ), "</u> en un total de ::<u>", OpenIsis::maxRowid( $db ), "</u> registros";
print "</table><br>";

print "<table border=0 width='100%' cellpadding=0 celspacing=0>";

print "<table border=0 width='90%' cellpadding=0 celspacing=0 align=center>";
#print "<tr class=colh><th>No.<th>Catálogo";


$total=0;

if ($pagina_reg eq 0){
  $desde=0;
  $hasta=$sobra_reg-1;
} else{
    if ($desde eq ""){
      $desde=0;
      $hasta=9;
    }
}

for ($i=$desde; $i<=$hasta; $i++) {
    
    $row = OpenIsis::read( $db, @tuplas[$i] );

       $n=$i+1;
       registros ();   
}

print "</table>";
print "</br>";

}

 else
 {
   if($boton ne ""){
     print "<table align=center >";
      print "<tr><td class=colh colspan=2 align=center>:: No hay terminos a buscar ::".
         "</table>"; 
    }
  }


 {
  if($boton eq ""){
   print "<table align=center>";
   print "</table>";
  } 
 }
 
print "</table>";
print "</body>";

if ($registros > 0) { 
  print "<table align=center width=100% class=colh>
         <tr><td align=center>Paginas encontradas ::  ";
  $j=1;
  for ($j=1; $j<=$pagina_reg;$j++){
    $xdesde=($j*10)-10;
    $xhasta=$xdesde+9;
    print "<a href=/frida/biblioteca/cgi-bin/publica.pl?".$algunas_var."&desde=".$xdesde."&hasta=".$xhasta."> ".$j." |</a>";
  }
  
  if ($sobra_reg ne 0){
    $xdesde=$xdesde=($j*10)-10;
    $xhasta=$xdesde+$sobra_reg-1;
    print "<a href=/frida/biblioteca/cgi-bin/publica.pl?".$algunas_var."&desde=".$xdesde."&hasta=".$xhasta."> ".$j." |</a>";
  }
	 
  print "</table>";
}


print"<br>"
      ."<table border=0 width='100%' cellpadding=0 class=colh>"
       ." <tr>"
         ."<td align=center>"
         ."<a href='mailto:webmaster@uajms.edu.bo'><font size=-4>Web Master CPD</font></a>"
         ."</td>"
         ."<td align=center>"
         ."<font size=-4>Sitio potenciado con software libre y de c&oacute;digo abierto</font>"
         ."</td>"
       ."</tr>"
      ."</table>";
print"</html>";