4 # Copyright 2000-2002 Katipo Communications
6 # This file is part of Koha.
8 # Koha is free software; you can redistribute it and/or modify it under the
9 # terms of the GNU General Public License as published by the Free Software
10 # Foundation; either version 2 of the License, or (at your option) any later
13 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
14 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
15 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License along with
18 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
19 # Suite 330, Boston, MA 02111-1307 USA
23 use C4::Interface::CGI::Output;
27 use C4::AuthoritiesMarc;
34 dictionnary.pl : script to search in biblio & authority an existing value
38 useful when the user want to search a term before running a query. For example, to see if "computer" is used in the database
40 The parameter "marclist" tells which field is searched (title, author, subject, but could be anything else)
42 This script searches in both biblios & authority
43 * in biblio, the script search in all marc fields related to what the user is looking for (for example, if the dictionnary is used on "author", the script searches in biblio.author, but also in additional authors & any MARC field related to author (through the "seealso" MARC constraint)
44 * in authority, the script search everywhere. Thus, the accepted & rejected forms are found.
46 The script shows all results & the user can choose what he want, that is copied into search form.
51 my $field =$input->param('marclist');
52 #warn "field :$field";
53 my ($tablename, $kohafield)=split /./,$field;
54 #my $tablename=$input->param('tablename');
55 $tablename="biblio" unless ($tablename);
56 #my $kohafield = $input->param('kohafield');
57 my @search = $input->param('search');
58 # warn " ".$search[0];
59 my $index = $input->param('index');
60 # warn " index: ".$index;
61 my $op=$input->param('op');
62 if (($search[0]) and not ($op eq 'do_search')){
65 my $script_name = 'catalogue/dictionary.pl';
67 my $type=$input->param('type');
70 my $dbh = C4::Context->dbh;
71 my ($template, $loggedinuser, $cookie);
73 my $startfrom=$input->param('startfrom');
74 $startfrom=0 if(!defined $startfrom);
78 #warn "Starting process";
80 if ($op eq "do_search") {
84 my $sth=$dbh->prepare("Select distinct tagfield,tagsubfield from marc_subfield_structure where kohafield = ?");
85 $sth->execute("$field");
86 my (@tags, @and_or, @operator, @excluding,@value);
88 while ((my $tagfield,my $tagsubfield,my $liblibrarian) = $sth->fetchrow) {
89 push @tags, $dbh->quote("$tagfield$tagsubfield");
92 $resultsperpage= $input->param('resultsperpage');
93 $resultsperpage = 19 if(!defined $resultsperpage);
94 my $orderby = $input->param('orderby');
96 findseealso($dbh,\@tags);
98 my @results, my $total;
99 my $strsth="select distinct subfieldvalue, count(marc_subfield_table.bibid) from marc_subfield_table,marc_word where marc_word.word like ? and marc_subfield_table.bibid=marc_word.bibid and marc_subfield_table.tagorder=marc_word.tagorder and marc_word.tagsubfield in ";
101 foreach my $tag (@tags){
102 $listtags .= $tag .",";
105 $strsth .= $listtags." and marc_word.tagsubfield=concat(marc_subfield_table.tag,marc_subfield_table.subfieldcode) group by subfieldvalue ";
106 # warn "search in biblio : ".$strsth;
107 my $value = uc($search[0]);
109 $value.= "%" if not($value=~m/%/);
110 # warn " texte : ".$value;
112 $sth=$dbh->prepare($strsth);
113 $sth->execute($value);
117 while (my ($value,$ctresults)=$sth->fetchrow) {
118 # This $javalue is used for the javascript selectentry function (javalue for javascript value !)
120 $javalue =~s/'/\\'/g;
122 push @catresults,{value=> $value,
124 even=>($total-$startfrom*$resultsperpage)%2,
126 } if (($total>=$startfrom*$resultsperpage) and ($total<($startfrom+1)*$resultsperpage));
131 my $strsth="Select distinct authtypecode from marc_subfield_structure where (";
132 foreach my $listtags (@tags){
133 my @taglist=split /,/,$listtags;
134 foreach my $curtag (@taglist){
136 $strsth.="(tagfield='".substr($curtag,1,3)."' AND tagsubfield='".substr($curtag,4,1)."') OR";
141 my $strsth = $strsth." and authtypecode is not NULL";
143 my $sth=$dbh->prepare($strsth);
147 # searching in authorities
151 while ((my $authtypecode) = $sth->fetchrow) {
152 my ($curauthresults,$nbresults) = authoritysearch($dbh,[''],[''],[''],['contains'],
153 \@search,$startfrom*$resultsperpage, $resultsperpage,$authtypecode);
154 if (defined(@$curauthresults)) {
155 for (my $i = 0; $i < @$curauthresults ;$i++) {
156 @$curauthresults[$i]->{jamainentry} = @$curauthresults[$i]->{mainentry};
157 @$curauthresults[$i]->{jamainentry} =~ s/'/\\'/g;
160 push @authresults, @$curauthresults;
161 $authnbresults+=$nbresults;
162 # warn "auth : $authtypecode nbauthresults : $nbresults";
166 # OK, filling the template with authorities & biblio entries found.
168 ($template, $loggedinuser, $cookie)
169 = get_template_and_user({template_name => "catalogue/dictionary.tmpl",
172 authnotrequired => 0,
173 flagsrequired => {catalogue => 1},
177 # multi page display gestion
179 my $displayprev=$startfrom;
180 if(($total - (($startfrom+1)*($resultsperpage))) > 0 ) {
186 for(my $i = 0 ; $i <= $#tags ; $i++) {
187 push @field_data, { term => "marclist", val=>$tags[$i] };
188 push @field_data, { term => "and_or", val=>$and_or[$i] };
189 push @field_data, { term => "excluding", val=>$excluding[$i] };
190 push @field_data, { term => "operator", val=>$operator[$i] };
191 push @field_data, { term => "value", val=>$value[$i] };
196 if ($total>$resultsperpage) {
197 for (my $i=1; $i<$total/$resultsperpage+1; $i++) {
200 ($startfrom==($i-1)) && ($highlight=1);
201 push @numbers, { number => $i,
202 highlight => $highlight ,
203 searchdata=> \@field_data,
204 startfrom => ($i-1)};
209 my $from = $startfrom*$resultsperpage+1;
212 if($total < (($startfrom+1)*$resultsperpage))
216 $to = (($startfrom+1)*$resultsperpage);
218 $template->param(anindex => $input->param('index'));
219 $template->param(result => \@results,
220 catresult=> \@catresults,
221 search => $search[0],
223 authresult => \@authresults,
224 nbresults => $authnbresults,
225 startfrom=> $startfrom,
226 displaynext=> $displaynext,
227 displayprev=> $displayprev,
228 resultsperpage => $resultsperpage,
229 startfromnext => $startfrom+1,
230 startfromprev => $startfrom-1,
231 searchdata=>\@field_data,
236 MARC_ON => C4::Context->preference("marc"),
240 ($template, $loggedinuser, $cookie)
241 = get_template_and_user({template_name => "catalogue/dictionary.tmpl",
244 authnotrequired => 0,
245 flagsrequired => {catalogue => 1},
248 #warn "type : $type";
251 $template->param(search => $search[0],
254 anindex => $input->param('index'),
255 intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
256 intranetstylesheet => C4::Context->preference("intranetstylesheet"),
257 IntranetNav => C4::Context->preference("IntranetNav"),
261 output_html_with_http_headers $input, $cookie, $template->output;