3 # written 10/5/2002 by Paul
4 # build result field using bibliothesaurus table
7 # Copyright 2000-2002 Katipo Communications
9 # This file is part of Koha.
11 # Koha is free software; you can redistribute it and/or modify it under the
12 # terms of the GNU General Public License as published by the Free Software
13 # Foundation; either version 2 of the License, or (at your option) any later
16 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
17 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
18 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
20 # You should have received a copy of the GNU General Public License along with
21 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
22 # Suite 330, Boston, MA 02111-1307 USA
32 use C4::Interface::CGI::Output;
33 # get all the data ....
37 my $result = $input->param('result');
38 my $search_string= $input->param('search_string');
39 my $op = $input->param('op');
40 my $id = $input->param('id');
41 my $category = $input->param('category');
42 my $index= $input->param('index');
43 my $insert = $input->param('insert');
45 my $dbh = C4::Context->dbh;
48 #print $input->header;
49 if ($op eq "select") {
50 my $sti = $dbh->prepare("select father,stdlib from bibliothesaurus where id=?");
52 my ($father,$freelib_text) = $sti->fetchrow_array;
53 if (length($result)>0) {
54 $result .= "|$father $freelib_text";
56 $result = "$father $freelib_text";
60 newauthority($dbh,$category,$insert,$insert,'',1,'');
61 $search_string=$insert;
63 my ($template, $loggedinuser, $cookie)
64 = get_template_and_user({template_name => "thesaurus_popup.tmpl",
68 flagsrequired => {parameters => 1},
71 # /search thesaurus terms starting by search_string
76 # my $sti=$dbh->prepare("select id,freelib from bibliothesaurus where freelib like '".$search_string."%' and category ='$category'");
77 my $sti=$dbh->prepare("select id,freelib,father from bibliothesaurus where match (category,freelib) AGAINST (?) and category ='$category'");
78 $sti->execute($search_string);
79 while (my $line=$sti->fetchrow_hashref) {
80 $stdlib{$line->{'id'}} = "$line->{'father'} $line->{'freelib'}";
81 push(@freelib,$line->{'id'});
83 $select_list= CGI::scrolling_list( -name=>'id',
91 my $x = SearchDeeper('',$category,$search_string);
93 #foreach (my $value @$x) {
94 # warn \@$x[$value]->{'stdlib'};
96 my $dig_list= CGI::scrolling_list( -name=>'search_string',
103 $template->param(select_list => $select_list,
104 search_string => $search_string,
105 dig_list => $dig_list,
107 category => $category,
110 output_html_with_http_headers $input, $cookie, $template->output;