#!/exlibris/aleph/a21_1/product/bin/perl
# Prueba OpenURL a bases de datos en Aleph

use CGI;

require('variables.pl');
require('javascript.pl');

$query = new CGI;
$tipobus = $query->param('tipobus');

#print $query->header(-head=>$etiqueta_meta);
print $query->header;
print $query->start_html(-title=>$titulo_pag,-script=>$JSCRIPT);

print <<HTML;
<div id="motorwrapper">
HTML


require('estilomultibase.pl');

if ($tipobus eq '' or $tipobus eq 'basica' or $tipobus eq 'libre')
{
print $query->startform(-method=>'post',
                        -action=>'busca.pl',
                        -encoding=>'',
                        -name=>'multibase',
                        -target=>'resultados',
                        -onSubmit=>'return validateForm(\'basica\',\'Debe escribir un trmino para realizar la bsqueda\', \'Debes seleccionar un campo de recuperacin \')');
}
else
{ 
print $query->startform(-method=>'post',
                        -action=>'busca.pl',
                        -encoding=>'',
                        -name=>'multibase',
                        -target=>'resultados',
                        -onSubmit=>'return validateForm(\'avanzada\',\'Debe escribir un t\351rmino para realizar la b\372squeda\', \'Debes seleccionar un campo de recuperaci\363n \')');
}      

#print "<script language=Javascript>document.oncontextmenu = function(){return false}</script>";

#Men de bsquedas
if ($tipobus eq '')
{ $tipobus="basica";  }


#Crea tabla principal
print "<div id=divreemplazatable>";


#Bsqueda Basica
if ($tipobus eq 'basica')
{  
print <<HTML;
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<fieldset>
<legend>B&uacute;squeda b&aacute;sica</legend>
<div id="motormenu">
<div class="basica activo">B&uacute;squeda b&aacute;sica</div>
<div class="avanzada"><a href="./multibase.pl?tipobus=avanzada">B&uacute;squeda avanzada</a></div>
<div class="libre"><a href="./multibase.pl?tipobus=libre">B&uacute;squeda libre</a></div>
</div>

<div id="motortitulo"><h3>B&uacute;squeda b&aacute;sica</h3></div>

<div id="motorcontenido">
<label for="palabra" class="hidden">Buscar</label>
<input type="text" name="palabra" id="palabra" placeholder="Ingresa el t&eacute;rmino a buscar" size="50"  maxlength="50" /></p>
<SCRIPT>JavaScript:focusPalabra()</SCRIPT>
<div><input type="radio" name="campo" value=Ttulo checked/> <label for="Ttulo"><span><span></span></span>T&iacute;tulo</label></div>
<div><input type="radio" name="campo" value=Autor /> <label for="Autor"><span><span></span></span>Autor</label></div>
<div><input type="radio" name="campo" value=Tema  /> <label for="Tema"><span><span></span></span>Tema</label></div>
<div><input type="radio" name="campo" value=Todos /> <label for="Todos"><span><span></span></span>Todos los campos</label></div>
<p> </p>
<p><input type=radio name=campo value=T\355tulo> T&iacute;tulo <input type=radio name=campo value=Autor> Autor <input type=radio name=campo value=Tema> Tema <input type=radio name=campo value=Todos checked> Todos los campos</p>
</div>
HTML
}

#Bsqueda Avanzada
if ($tipobus eq 'avanzada')
{
print <<HTML;
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<fieldset>
<legend>B&uacute;squeda avanzada</legend>
<div id="motormenu"> 
<div class="basica"><a href="./multibase.pl?tipobus=basica">B&uacute;squeda b&aacute;sica</a></div>
<div class="avanzada activo">B&uacute;squeda avanzada</div>
<div class="libre"><a href="./multibase.pl?tipobus=libre">B&uacute;squeda libre</a></div>
</div>

<div id="motortitulo"><h3>B&uacute;squeda avanzada</h3></div>

<div id="motorcontenido">
<div>
<p>Campo de b&uacute;squeda: 
<!-- filename: find-code-include -->
     <select name=campo>
     <option value=WRD>Todos los campos</option>
     <option value=WAT>Autor</option>
     <option value=WTT>T&iacute;tulo</option>
     <option value=WSS>Tema</option>
     <option value=WPU>Editorial</option>
     <option value=WIS>ISSN</option>
     <option value=WNO>Notas</option>
     <option value=WDP>Facultad/Escuela/Carrera</option>
     <option value=WDP>Grado</option>
     <option value=WYR>A&ntilde;o</option>
     <option value=WLC>Clasificaci&oacute;n LC</option>
   </select>
 <input size=35 name=palabra id="palabra" value="">
      <SCRIPT>JavaScript:focusPalabra()</SCRIPT>
       <select name="operador">
       <option value="AND" selected>Y (And)</option>
       <option value="OR">O (Or)</option>
       <option value="NOT">Not</option>
       </select>
</p>
</div>

<div>
<p>Campo de b&uacute;squeda:
   <select name=campo2>
     <option value=WRD>Todos los campos</option>                                                                
     <option value=WAT>Autor</option>                                                                           
     <option value=WTT>T&iacute;tulo</option>                                                                   
     <option value=WSS>Tema</option>                                                                             
     <option value=WPU>Editorial</option>                                                                        
     <option value=WIS>ISSN</option>                                                                             
     <option value=WNO>Notas</option>                                                                           
     <option value=WDP>Facultad/Escuela/Carrera</option>                                                        
     <option value=WDP>Grado</option>                                                                           
     <option value=WYR>A&ntilde;o</option>                                                                      
     <option value=WLC>Clasificaci&oacute;n LC</option>                                                          
   </select>
 <input size=35 name=palabra2 value="">
       <select name="operador2">
       <option value="AND" selected>Y (And)</option>
       <option value="OR">O (Or)</option>
       <option value="NOT">Not</option>
       </select>
</p>
</div>

<div>
<p>Campo de b&uacute;squeda:
<!-- filename: find-code-include -->
     <select name=campo3>
     <option value=WRD>Todos los campos</option>
     <option value=WAT>Autor</option>
     <option value=WTT>T&iacute;tulo</option>
     <option value=WSS>Tema</option>
     <option value=WPU>Editorial</option>
     <option value=WIS>ISSN</option>
     <option value=WNO>Notas</option>
     <option value=WDP>Facultad/Escuela/Carrera</option>
     <option value=WDP>Grado</option>
     <option value=WYR>A&ntilde;o</option>
     <option value=WLC>Clasificaci&oacute;n LC</option>
   </select>
 <input size=35 name=palabra3 value=""> 
</p>
</div>
</div>

HTML
}

#B\372squeda Libre 
if ($tipobus eq 'libre')
{ 
print <<HTML;
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<fieldset>
<legend> B&uacute;squeda libre </legend>
<div id="motormenu"> 
<div class="basica"><a href="./multibase.pl?tipobus=basica">B&uacute;squeda b&aacute;sica</a></div>
<div class="avanzada"><a href="./multibase.pl?tipobus=avanzada">B&uacute;squeda avanzada</a></div>
<div class="libre activo">B&uacute;squeda libre</div>
</div>

<div id="motortitulo"><h3>B&uacute;squeda libre</h3></div>

<div id="motorcontenido">
<p>Busca: <input type="text" name="palabra" id="palabra" size="50" maxlength="50" /></p>
<SCRIPT>JavaScript:focusPalabra()</SCRIPT>
</div>

HTML
}

#Cierra tabla principal y div 
print <<HTML;
<p><center><input type="submit" value="Enviar consulta"> <input type="reset" value="Limpia"><br></p>
</fieldset>
<!--CIERRE DE DIV INTERNO A WRAPPER-->
</div>
<!--CIERRE DE DIV WRAPPER-->
</div>

HTML

print $query->hidden ('numbib', $numbib);
print $query->hidden ('path', $path);
print $query->hidden ('host', $host);
print $query->hidden ('host2',$host2);
print $query->hidden ('imagenes', $imagenes);
print $query->hidden ('section', $section);
print $query->hidden ('catalogo', $catalogo);
print $query->hidden ('tipobus', $tipobus);

print <<HTML;
<div>
      <iframe style="display" align="middle" name="resultados" width="550" height="250" frameborder="0"></iframe>
</div>

HTML

exit;

