#!/usr/bin/perl -T

#	$Id: eeb.cgi,v 1.5 2000/04/16 14:36:07 michiel Exp michiel $	
#

BEGIN {
    push(@INC, '.');
}

$ENV{'PATH'} = '/bin:/usr/bin';

my $mihxil  = "http://katalogo.komputilo.org/";
my $mialoko = $mihxil."bibliografio/eeb.cgi";

my $bibliografialoko = $mihxil."/bibliografio/";
my $jeffk   = 1;


use eeb;
use DBI;
use strict;
use Lingvoj qw(l);
#use transkodoj;

my $q = new eeb('eeb'); # eeb: nomo de la kuketo
my $sql  = $q->param('SQL');
$sql  = $q->param('hsql') if !$sql;
$sql  = 'Simplege' if !$sql;

#$q->param('kodo','unikodo') if ! defined $q->param('kodo');
#$q->param('kodo','unikodo') if ! defined $q->param('kodo');


$q->param('kolapsita',1) if ! defined $q->param('kolapsita');

$q->param('kolapsita', 1 - $q->param('kolapsita')) if defined $q->param('kolapsigu');


my $kodsxangxo = $q->param('kodsxangxo');
my $sercxu = 
    $q->param('postajfojoj') &&  #ne sercxu cxe la unua eniro.
    (! defined $kodsxangxo) && 
    (!defined $q->param('SQL'))  && 
    (!defined $q->param('aldonu')) &&
    (!defined $q->param('kolapsigu')) &&
    (!defined $q->param('visxu'));

if($q->param('visxu')){
    $q->param('auxtoro','');
    $q->param('titolo','');
    $q->param('tradukinto','');
    $q->param('simplegapeto','');
    $q->param('aperlingvo','');
    $q->param('origlingvo','');
    $q->param('kategorioj','');
    
}


if (! defined $q->param('fonto')){
    $q->param('fonto','UEA', 'Harlow', 'Aliaj', 'Dmoz');
}

#Lingvoj::setlingvo($q->param('lingvo'));

my @acxetoj = grep  /acxeto[0-9]+/, $q->param;
#$sercxu = 1 if $acxeto =~ /acxeto(.*)/;
#$acxeto = $1;

my %acxetoj = $q->param('acxetoj');
for my $acxeto (@acxetoj) {
    $acxeto =~ /([0-9]+)/;
    $acxetoj{$1} = 1; #  if 
}

my $nacxetoj = keys %acxetoj;

$q->param('acxetoj', %acxetoj);

#$q->param('kaj1') = kod($q->param('kaj1'));

my $defauxltsql = join("",
		       "#ekzemplo:\n",
		       "select auxtoro, titolo, l.lingvo, originala_titolo, o.origino\n",
		       "  from bibliografio b, lingvoj l, originoj o\n",
		       " where b.lingvo=l.kodo\n",
		       "   and b.origino = o.kodo\n",
		       "   and _auxtoro REGEXP \"ZAMENHOF\"\n",
		       " order by _auxtoro\n");


my $dbh;
if(! $jeffk)
{
    my $dbname = 'Bibliografio'; 
    my $user = 'bibliografio'; 
    my $password = ''; 
    my $dbd = 'mysql';
    $dbh = DBI->connect($dbname, $user, $password, $dbd);


    eeb::Print "$DBI::err: $DBI::errstr" if $DBI::err;
    
}
eeb::Print 
    $q->mystart,
    #$q->dump(),
    $q->start_form(-action=>$mialoko),
    $q->hidden('acxetoj', %acxetoj),
    #"<DIV class=\"teksto\">",
    #"Elektoj: ".join(',',keys %acxetoj),
    $q->mytable(); 

if(defined $kodsxangxo)
{
    eeb::Print "<tr><td colspan=2>",
      l('lingvoelekto'),"<br>",
      $q->popup_menu(-name=>'lingvo', -values=>[sort keys %Lingvoj::lingvoj]),"<br>",
      "Elektu vian kodigon:<br>",
      $q->popup_menu(-name=>'kodo', -values=>[sort keys %eeb::kodoj]),"<br>",
      "Surogatoj (ne necesas por kodigoj unikodo, latino 3 kaj html):<br>",
      $q->popup_menu(-name=>'surogato', -values=>[keys %eeb::surogatoj]),"<br>",
      $q->submit(-name=>'Ek!');

    
}
else
{
    eeb::Print "<tr><td>", #            KOMENCO DE GRANDA TABELO
    $q->hidden('kodo'),
      $q->hidden('surogato'),
      $q->hidden('lingvo');
    
}

if($sql =~ /Formulare/i && ! defined $kodsxangxo)
{
    eeb::Print	
	"Plenigu (per <a href=\"http://www.uni-leipzig.de/esperanto/voko/revo/dok/sercespr.html\">regulaj esprimoj</a>)",
	" la kampojn pri kiuj vi interesiĝas. Esperantajn supersignojn vi povas tajpi unikode, ikse aŭ tute ne. Neesperantajn supersignojn forlasu. Malplenaj kampoj (kune kun iliaj kaj/aŭ-kampoj) estas ignorotaj. ",
	"<a href=\"$mialoko?auxtoro=zamenhof&kaj1=au&titolo=&kaj2=kaj&tradukinto=zamenhof&kaj3=kaj&kaj4=kaj&sqlpeto=select%20auxtoro%2C%20titolo%2C%20l.lingvo%2C%20originala_titolo%2C%20o.origino%0D%0A%20%20from%20bibliografio%20b%2C%20lingvoj%20l%2C%20originoj%20o%0D%0A%20where%20b.lingvo%3Dl.kodo%0D%0A%20%20%20and%20b.origino%20%3D%20o.kodo%0D%0A%20%20%20and%20%20%28%28UPPER%28auxtoro%29%20REGEXP%20%22ZAMENHOF%22%29%0D%0A%09%20%20or%20%0D%0A%09%20%20%28UPPER%28tradukinto%29%20REGEXP%20%22ZAMENHOF%22%29%29%0D%0A%20order%20by%20auxtoro&simplegapeto=zamenhof&hsql=Formulare&hkodo=".$q->getkodo."&nombro=200&fonto=Librokatalogo%20de%20UEA&fonto=Listo%20de%20Don%20Harlow&fonto=Listo%20de%20Verloren%20van%20Themaat&fonto=Nederlanda%20Bibliografio&prezento=tabela\">",
	"Jen</a> ekzemplo kiu rezultas ĉiujn verkojn faritajn aŭ tradukitajn de Zamenhof.",
	"<table border=0>", #              TABELO EN MALDEKSTRA KAMPO
	$q->hidden('kolapsita');
      if($q->param('kolapsita') == 0)
      {
	eeb::Print
	    $q->hidden('simplegapeto'),
	    "<tr><td>",	    #
	    l('auxtoro'),": </td><td>",
	    $q->textfield(-name=>'auxtoro',  -size=>40,-maxlength=>100, -default=>''),
	    $q->popup_menu(-name=>'kaj1', -values=>['kaj','au'],
			   -default=>'kaj', -labels=>{'kaj'=>'kaj', 'au'=>'aŭ'} ),"</td></tr>", #             UNUA LINIO
	    "<tr><td>",l('titolo'),"</td>\n<td>",    
	    $q->textfield(-name=>'titolo',    -size=>40,-maxlength=>200),
	    $q->popup_menu(-name=>'kaj2', -values=>['kaj','au'],
			   -default=>'kaj', -labels=>{'kaj'=>'kaj', 'au'=>'aŭ'} ),"</td></tr>", #             DUA LINIO
	    "<tr><td>",l('tradukinto'),"</td>\n<td>",
	    $q->textfield(-name=>'tradukinto',-size=>40,-maxlength=>100, -default=>''),
	    #$q->popup_menu(-name=>'kaj3', -values=>['kaj','au'],
	    #	   -default=>'kaj'),
	    "</td></tr>", #             TRIA LINIO
	    "<tr><td colspan=2>",
	    $q->submit(-name=>'kolapsigu', -value=>'Prenu la suprajn tri kune'),
	    "</td></tr>";
      }
      else
      {
	eeb::Print
	    $q->hidden('auxtoro'),$q->hidden('titolo'),$q->hidden('tradukinto'),
	    "<tr><td>",l('simplega'),"</td><td>", 
	    $q->textfield(-name=>'simplegapeto',
			  -size=>40,-maxlength=>100, -default=>''),
	    $q->submit(-name=>'kolapsigu', -value=>'Diserigu'),
	    "</td></tr>";	  
      }
    eeb::Print
      "<tr><td>Aperas en:</td><td>", #               KVARA LINIO KUN LINGVOELEKTO 
      "<table><tr>",       #               TABELO POR LINGVOJ
      "<td>",  
      $q->scrolling_list(
			 -name=>'aperlingvo',
			 -values=>&lingvoj($dbh,0),
			 -size=>4,
			 -multiple=>'true',
			 -defaults=>[],
			 -labels=>&lingvoj($dbh,1)
			 ),    
	    "</td><td>",         
	    $q->popup_menu(-name=>'kaj4', -values=>['kaj', 'au'],
			   -default=>'kaj', -labels=>{'kaj'=>'kaj', 'au'=>'aŭ'} ),"<br>",
	    "tradukita el:</td><td>",
	    $q->scrolling_list(
			       -name=>'origlingvo',
			       -values=>&origlingvoj($dbh,0),
			       -size=>4,
			       -multiple=>'true',
			       -defaults=>[],
			       -labels=>&origlingvoj($dbh,1)
			       ),  
	 "</td></tr></table></td></tr>", # FINO KVARA LINIO
	 "<tr><td>Kategorioj:</td><td>",
		$q->scrolling_list(
				   -name=>'kategorioj',
				   -values=>&kategorioj($dbh,0),
				   -size=>4,
				   -multiple=>'true',
				   -defaults=>[],
				   -labels=>&kategorioj($dbh,1)),  
	  "</td></tr>",

	 "</table>",                     # FINO DE TABELO EN MALDEKSTRA TABELO                 	 

}
else
{
    eeb::Print $q->hidden('auxtoro'),$q->hidden('titolo'),$q->hidden('tradukinto'),$q->hidden('aperlingvo'),$q->hidden('origlingvo'),
    $q->hidden('kaj1'),$q->hidden('kaj2'),$q->hidden('kaj3'),$q->hidden('kaj4');
}
if($sql =~ /SQLe/ && ! defined $kodsxangxo)
{
    eeb::Print	
	"SQL-peto:<br>", $q->textarea(-name=>'sqlpeto', -columns=>75,-rows=>10,
					   -value=>$defauxltsql); 
}
else
{
    eeb::Print $q->hidden('sqlpeto' && !$kodsxangxo);
}
if($sql =~ /Simplege/ && ! defined $kodsxangxo)
{
    eeb::Print	
	#"<table border=0>",  #t2 tr1 td1
	l('simplega'),"<br>", 
	$q->textfield(-name=>'simplegapeto',
		      -size=>40,-maxlength=>100, -default=>''),
	$q->hidden('prezento', 'kataloga');
	#"</td><td>";
	#"</td></tr>"; #t2 tr1 td1
}
else
{    
    eeb::Print $q->hidden('simplegapeto') if $sql !~ /Formu/;
}

if (! defined $kodsxangxo)
{
eeb::Print
    
    #"</td></tr>",  #t2 tr0 td0
    #"</table>",    #t1 
    "<center>",
    $q->submit(-name=>'sercxu',-value=>l("sercxu")),
    ($sql =~ /Form/i ? $q->submit(-name=>'visxu', -value=>l('visxu')) : ''),
    $q->hidden('postajfojoj', 1),
    "</center>",
    "</td>",

    "<td align = 'left'>", # dekstra tabelo
    "<table>",
    "<tr><td>",
    #$q->hidden('hsql',"$sql"),
    "<INPUT TYPE=\"hidden\" NAME=\"hsql\" VALUE=\"$sql\">",
    #$q->hidden('hkodo',"$kodo"),
    #"<INPUT TYPE=\"hidden\" NAME=\"hkodo\" VALUE=\"".$q->getkodo."\">",
    l("sxangxumanieron"),"</td><td>";

if ($sql =~ /SQLe/)       { eeb::Print $q->submit(-name=>'SQL',-value=>"Formulare"),  $q->submit(-name=>'SQL',-value=>"Simplege"); }
if ($sql =~ /Formulare/)  { eeb::Print $q->submit(-name=>'SQL',-value=>"SQLe"),       $q->submit(-name=>'SQL',-value=>"Simplege"); }
if ($sql =~ /Simplege/)   { eeb::Print $q->submit(-name=>'SQL',-value=>"Formulare"); }
eeb::Print
    "</td></tr>", # unua linio en dekstra tabelo
   
    #"<tr><td>".eeb::kod("Ŝanĝu enkodigon al")."</td><td>",
    ##$q->getkodo() =~ /iks/ ? $q->submit(-name=>'kodo',-value=>"unikodo") : $q->submit(-name=>'kodo',-value=>"iksoj"),    


    #"<tr><td>Regulaj esprimoj:</td><td>", $q->checkbox(-name=>'regulajesperimoj', -checked=>'checked',  -label=>' '),"</td></tr>",

    "<tr><td colspan=2>",$q->submit(-name=>'kodsxangxo', -value=>l('sxangxu')),"(",l('nun'),$q->param('kodo') ,")</td></tr>",
  

    
    "<tr><td>",
    $sql =~ /Simplege/ ? $q->hidden('nombro',200)."</td></tr>" # dua linio 
	: "Maksimuma grando</td><td>".
	    $q->textfield(-name=>'nombro', -default=>'200', -size=>4, -maxlength=>4)."</td></tr>",

    $sql =~ /SQL|Simplege/ ? "" : "<tr><td>Fontoj</td><td>",
    $sql =~ /SQL|Simplege/ ? $q->hidden('fonto')."<tr><td colspan=2>Nun serĉas en ".join(', ',$q->param('fonto'))."</td></tr>" 
	: 
	$q->scrolling_list(
			   -name=>'fonto',
			   -values=>[  'UEA', 'Harlow','Verloren','Nederlanda', 'Aliaj', 'Dmoz'],
			   -size=>5,
			   -multiple=>'true',
			   -defaults=>[  'UEA', 'Harlow', 'Aliaj'],
			   -labels=>{'UEA'=>'Librokatalogo de UEA', 
				     'Harlow'=>'Listo de Don Harlow',
				     'Verloren'=>'Listo de Verloren van Themaat',
				     'Nederlanda'=>'Nederlanda Bibliografio', 
				     'Aliaj'=>'Aliaj retaĵoj',
				     'Dmoz'=>'Serĉo en www.dmoz.org'}
			   
		       )."</td></tr>",

    $sql =~ /SQL|Simplege/ ? " " : "<tr><td>Prezento"."</td><td>".$q->popup_menu(-name=>'prezento', -values=>['tabela','kataloga'],
										 -default=>'kataloga')."</td></tr>",    
    $sercxu ? "<tr><td colspan=2>".$q->submit(-name=>'aldonu',-value=>l('aldonu'))."</td></tr>" : "" ,
    $nacxetoj == 0 ? "" : "<tr><td colspan=2><a href=\"acxeto.cgi?kodo=".$q->getkodo."&surogato=".$q->getsurogato."&lingvo=".$q->param('lingvo')."&acxetoj=".join('+',keys %acxetoj)."\">".l('rigardu', $nacxetoj)."</a></td></tr>",
    "</table>", # dekstra tablelo

    "</td></tr>"; # supra du
}
eeb::Print
    "<tr><td class='centra' colspan=2 align='center'>",
    $q->a({href=>($q->getkodo() =~ /uni/ ? "helpo.html" : "x/helpo.html") },"Helpo"),
    " | ", $q->a({href=>$bibliografialoko."interesajpetoj.html"},"Kelkaj interesaj eltiraĵoj"),
    " | ", $q->a({href=>$bibliografialoko."farinda.html"},"Cimoj/Ideoj"),
    " | ", $q->a({href=>$bibliografialoko."nova.html"},"Nova"),
    "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;",
    $q->a({href=>"http://www.uea.org/"},"UEA"),
    " | ",$q->a({href=>"http://www.best.com/%7Edonh/Esperanto/Literaturo/literaturo.html"},"Don"),
    " | ",$q->a({href=>$bibliografialoko."verloren.html"},"Verloren"),
    " | ",$q->a({href=>$mihxil."nederlanda.html"},"Nederlanda"),
    " | ",$q->a({href=>"http://www.dmoz.org/World/Esperanto/Literaturo/"},"dmoz"),
    #" | ",$q->a({href=>"http://www.dmoz.org/World/Esperanto/Literaturo/"},"Literaturo"),
    #" | ",$q->a({href=>"http://www.cs.chalmers.se/~martinw/esperanto/aalen/sercho_eo.html"},"Aalen"),
    #" | ",$q->a({href=>"http://euler.onb.ac.at/cgi-allegro/maske.pl?db=esperanto"},"Trovanto"),
    #" | ",$q->a({href=>"../esperanto.html"},eeb::kod("Miĥil'")),
    "<br>",
    $jeffk ? "" : "Bonvolu ligi tiun ĉi paĝon per &lt;<a href=\"http://www.uea.org/katalogo\">http://www.uea.org/katalogo</a>&gt;"."<br>",
    "<font color=green size=small>",
    "2000-04-15 programo en test-fazo, <a href=\"mailto:mihxil\@esperanto.nu\">raportu</a> problemojn!",
    "</font>",
    #"&nbsp;&nbsp; <font color=red size=small><blink>.</blink>".eeb::kod("2000-03-11, 12:30: datumbazo en rekonstruo (mi faras ŝanĝojn en ĝi)</font>"),

    "</td></tr>",
    "</table>", # TABELO1}
#    $q->end_form,    
    "<table width='100%' border=1 bgcolor='#dddddd'>",
    "<tr><td>";

if($sercxu) # cxiujn postojn fojon kio ajn okazas, sercxu okazu.
{
    my $sqlpeto;
    my $dmozsercxo =0;
    my $dmozpeto = "";
    
    if($sql =~ /Form|Simplege/)
    {
	my $in = '';
	for ( $q->param('fonto') )
	{
	    $in .= 'U' if /UEA/;
	    $in .= 'N' if /Nederlanda/;
	    $in .= 'D' if /Harlow/;
	    $in .= 'V' if /Verloren/;
	    $in .= 'R' if /Aliaj/;
	    $dmozsercxo = 1 if /Dmoz/;
	 
	}       
	my @in = split ('',$in);
	if (@in == 0 && $dmozsercxo == 0) { @in =('U','N','D','V', 'R'); }
	$in = "'".join ("','",@in)."'";
		
	my $kampoj;
	$kampoj = "unikanumero, auxtoro, titolo, tradukinto, b.aperloko, b.aperjaro, o.origino";

	if($in =~ /U/)
	{
	    $kampoj .= ", subtitolo, kunlaborantoj, priskribo, rimarkoj, prezo, pagxnombro, formato, rabatono";
	}
	
	#Faru la sql-peto:
	$sqlpeto = join('',
			"select $kampoj\n",
			"  from bibliografio b,  originoj o\n",
			" where b.origino = o.kodo\n ");

	my $kaj = "and (";
	if ($sql =~ /Form/i && $q->param('kolapsita') == 0)
	{	 
	    eeb::Print("Atentu! Kun diserigitaj kampoj ne (jam) eblas serĉi en dmoz") if $dmozsercxo == 1;
	    if(! ($q->param('auxtoro') =~ /^\s*$/))
	    {
		my $s = uc(eeb::sssigu($q->param('auxtoro')));
		$s =~ s/\'//g; # malebligu fusxojn
		$sqlpeto .= "$kaj b._auxtoro REGEXP '$s'\n";
		$kaj = $q->param('kaj1') =~ /^k/ ? "and" : "or";
		
	    }
	    if(! ($q->param('titolo') =~ /^\s*$/))
	    {
		my $s = uc(eeb::sssigu($q->param('titolo')));
		$s =~ s/\'//g; # malebligu fusxojn
		$sqlpeto .= "$kaj b._titolo REGEXP '$s'\n";
		$kaj = $q->param('kaj2') =~ /^k/ ? "and" : "or";
	    }
	    if(! ($q->param('tradukinto') =~ /^\s*$/))
	    {
		my $s = uc(eeb::sssigu($q->param('tradukinto')));
		$s  =~ s/\'//g; # malebligu fusxojn
		$sqlpeto .= "$kaj b._tradukinto REGEXP '$s'\n";
		$kaj = "and";
	    }
	}
	if ($sql =~ /Simplege/ || 
	    ($sql =~ /Form/i && $q->param('kolapsita') == 1) &&
	    ($q->param('simplegapeto') !~ /^\s*$/)
	    )
	{

	    my $s = uc(eeb::sssigu($q->param('simplegapeto')));
	    $s =~ s/\'//g; # por ke la uzantoj ne povu fusxi la peton.
	    # se la peto nun ankoraux enhavas pli ol nur literoj, informu la uzanton ke li eble faras eraron:
	    if ($s !~ /^[ -~]*$/ ) {
		eeb::Print l('neesperantaj'),"<br>";

	    }
	    if ($s =~ /\s+AU\s+|\+/) {
		eeb::Print l('kombinivortojn'),"<br>";
	    }
	    if ($s =~ /\w+\s+\w+/) {
	      eeb::Print l('pliolunuvorto'),"<br>";
		
	    }
	    if ($s =~ /(^LA\s|THE\s|DER\s|DAS\s|DIE\s|LE\s)/ ) {
	      eeb::Print l('komencoperartikolo', $1),"<br>";
	    }
	    # eeb::Print $q->param('simplegapeto');
	    $dmozpeto = uc(eeb::kod($q->param('simplegapeto'))) if $dmozsercxo == 1;

	    #if($s =~ /\\[^n]/) {
	    #  eeb::Print l('nemysqlregulesprimo'),"<br>";
	    #}
	    
	    #print $s;
	    $sqlpeto .= "$kaj (( b._auxtoro REGEXP '$s')\n";
	    $sqlpeto .= " or (  b._titolo REGEXP '$s') \n";
	    $sqlpeto .= " or (  b._tradukinto REGEXP '$s'))\n";
	    $kaj = "and";
	}
	if($sql =~ /Form/i )
	{
	    if($q->param('aperlingvo'))
	    {
		my $in = "'".join ("','", $q->param('aperlingvo'))."'";
		if ( $in !~ /ajna/)
		{
		    $sqlpeto .= "$kaj b.lingvo in ($in) \n";
		    $kaj = $q->param('kaj4') =~ /^k/ ? "and" : "or";
		}
	    }
	    if($q->param('origlingvo'))
	    {
		my $in = "'".join ("','", $q->param('origlingvo'))."'";
		if( $in =~ /ajna/)
		{
		    $sqlpeto .= "$kaj b.originalo = 0 ";		
		}
		elsif ( $in =~ /neniu/)
		{
		    $sqlpeto .= "$kaj b.originalo = 1 ";
		}
		else
		{
		    $sqlpeto .= "$kaj b.originala_lingvo in ($in) \n";
		}
		$kaj = "and";
	    }
	    if($q->param('kategorioj'))
	    {
		#$sqlpeto .= "and (";
		#$kaj = "";
		my $kaj = 'and (';
		for ($q->param('kategorioj'))
		{
		    $sqlpeto .= "$kaj b.kategorio REGEXP \"$_\" ";
		    $kaj = 'or'
		}
		$sqlpeto .= ")";
		
	    }
	    
	}
	
	# la jenaj aferoj restas validaj ankaŭ en la simplega serĉo.
	$sqlpeto .= ")" if $kaj !~ /\(/; 	
	if($q->param('fonto'))
	{
	    $sqlpeto .= "and b.origino in ($in)" if @in < 4;
	}


	if($q->param('prezento') =~ /tabela/)
	{
	    $sqlpeto .= " order by b._auxtoro";
	    $q->mysql($dbh, $sqlpeto, \%acxetoj, $dmozpeto);
	}
	else
	{
	    $sqlpeto .= " order by b._titolo";
	    $q->mykatalogo($dbh, $sqlpeto, \%acxetoj, $dmozpeto);
	}
	
	    
    }


    if($sql =~ /SQLe/)
    {
	$sqlpeto = $q ->param('sqlpeto');
	$q->mysql($dbh, $sqlpeto);
    }



    $dbh->disconnect();   
}

eeb::Print "</td></tr></table>",
    $q->end_form;
print
    $q->end_html,"\n";

{
    my (%lingvoj, @lingvoj);
    sub origlingvoj
    {
	my $dbh = shift;	
	my $kion = shift;
	
	if(! %lingvoj)
	{
	    my $nuna;
	    $nuna= $dbh->prepare("select l.lingvo, l.kodo from bibliografio b, lingvoj l where b.originala_lingvo=l.kodo group by l.lingvo order by l._lingvo");
	    $nuna->execute();    
	  eeb::Print "<p>Eraro $DBI::err: $DBI::errstr" if($DBI::err);
	    my (@rezulto);
	    @lingvoj = ('ajna', 'neniu');
	    $lingvoj{'ajna'} = 'ajna lingvo';
	    $lingvoj{'neniu'} = 'neniu lingvo';
	    while(@rezulto = $nuna->fetchrow())
	    {
		push(@lingvoj, $rezulto[1]);
		$lingvoj{$rezulto[1]} = $rezulto[0];
	    }
	}    
	return \@lingvoj if $kion == 0;
	return \%lingvoj;
	    
    }
}

{
    my (%lingvoj, @lingvoj);
    sub lingvoj
    {
	my $dbh = shift;
	my $kion = shift;

	if(! %lingvoj)
	{
	    my $nuna;
	    $nuna= $dbh->prepare("select l.lingvo, l.kodo from bibliografio b, lingvoj l where b.lingvo=l.kodo group by b.lingvo order by l._lingvo");
	    $nuna->execute();    
	  eeb::Print "<p>Eraro $DBI::err: $DBI::errstr" if($DBI::err);
	    my (@rezulto);
	    @lingvoj = ('ajna');
	    $lingvoj{'ajna'} = 'ajna lingvo';
	    while(@rezulto = $nuna->fetchrow())
	    {
		push(@lingvoj, $rezulto[1]);
		$lingvoj{$rezulto[1]} = $rezulto[0];
	    }
	}
	return \@lingvoj if $kion == 0;
	return \%lingvoj;
}
}

{
    my (%kategorioj, @kategorioj);
    sub kategorioj
    {
	my $dbh = shift;
	my $kion = shift;
	
	if (! %kategorioj)
	{
	    my $nuna;
	    $nuna= $dbh->prepare("select k.kodo, k.priskribo from kategorioj k where super = 0 order by k._priskribo");
	    $nuna->execute();    
	  eeb::Print "<p>Eraro $DBI::err: $DBI::errstr" if($DBI::err);
	    
	    my (@rezulto);
	    while(@rezulto = $nuna->fetchrow()) {
		$kategorioj{$rezulto[0]} = $rezulto[1];
		push(@kategorioj, $rezulto[0]);
	    }	
	}
	return \@kategorioj if $kion == 0;
	return \%kategorioj; 
    }
}
# Local variables:
# coding: utf-8
# End: