#!/usr/bin/perl
# © 1998 Concello de Moaña
# Para cualquier consulta acerca de este cgi, emailea a
# c.c.portela@ieee.org (Carlos)

# Parámetros de entrada:
#  Biblioteca: $biblioteca
#  Autor: $autor
#  Título: $titulo
#  Materia: $materia
#  Id: $id;
#  Descripcion: $descripcion
#  Restricciones: $restr
#  * $compl: libros (1/0)
#  * $secc: secciones de libros (2/0)
#  * $artic: artículos de revistas o periódicos (4/0)

$|=1;
print "Content-type: text/html\n\n";

$dir_bd = "libros";
require ("Library/cgi-lib.pl");
&ReadParse(*form_data);
$idioma=$form_data{'idioma'};
if ($idioma eq "") {$idioma=gl;}; # Por defecto.

# Lista de autores

$select_autores="\n<select name=autor>\n<option value=\"\">INDIFERENTE\n";
$select_titulos="\n<select name=titulo>\n<option value=\"\">INDIFERENTE\n";
open(F,"$dir_bd/quintela.0001.dat");
while (<F>) {
    chop;
    next if (($_ eq "") || ($_ =~ "^#"));
    ($id,$autor,$titulo)=split(/\|/);
    $autor=substr($autor,0,50);
    $titulo=substr($titulo,0,50);
    if ($autor ne "") {
      if (!$existe{$autor}) {
	push(@los_autores,$autor);
	$existe{$autor}=1;
      }
#	$select_autores.="<option name=\"$autor\">$autor\n";
    }
    if ($titulo ne "") {
      if (!$existe_t{$titulo}) {
	push(@los_titulos,$titulo);
	$existe_t{$titulo}=1;
      }
#      $select_titulos.="<option name=\"$titulo\">$titulo\n";
    }
}
close(F);

@los_autores = sort @los_autores;
@los_titulos = sort @los_titulos;
foreach $autor (@los_autores) {
  $select_autores.="<option name=\"$autor\">$autor\n";
}
foreach $titulo (@los_titulos) {
  $select_titulos.="<option name=\"$titulo\">$titulo\n";
}

$select_autores.="</select>\n";
$select_titulos.="</select>\n";
open (F,"../$idioma/cultura/busqueda.html");
$fichero=join("",<F>);
close(F);

$fichero =~ s/\?\(titulo\)/$select_titulos/g;
$fichero =~ s/\?\(autor\)/$select_autores/g;
print "$fichero";