opac/opac-dictionary.pl

   1 #!/usr/bin/perl
   2
   3
   4 # Copyright 2000-2002 Katipo Communications
   5 #
   6 # This file is part of Koha.
   7 #
   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
  11 # version.
  12 #
  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.
  16 #
  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
  20
  21 use strict;
  22 use C4::Output;
  23 use C4::Interface::CGI::Output;
  24 use C4::Auth;
  25 use CGI;
  26 use C4::Search;
  27 use C4::SearchMarc;
  28 use C4::AuthoritiesMarc;
  29 use C4::Context;
  30 use C4::Biblio;
  31 use HTML::Template;
  32
  33 =head1 NAME
  34
  35 dictionnary.pl : script to search in biblio & authority an existing value
  36
  37 =head1 SYNOPSIS
  38
  39 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
  41 The parameter "marclist" tells which field is searched (title, author, subject, but could be anything else)
  42
  43 This script searches in both biblios & authority
  44 * 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)
  45 * in authority, the script search everywhere. Thus, the accepted & rejected forms are found.
  46
  47 The script shows all results & the user can choose what he want, that is copied into search form.
  48
  49 =cut
  50
  51 my $input = new CGI;
  52 my $field =$input->param('marclist');
  53 #warn "field :$field";
  54 my ($tablename, $kohafield)=split /./,$field;
  55 #my $tablename=$input->param('tablename');
  56 $tablename="biblio" unless ($tablename);
  57 #my $kohafield = $input->param('kohafield');
  58 my @search = $input->param('search');
  59 # warn " ".$search[0];
  60 my $index = $input->param('index');
  61 # warn " index: ".$index;
  62 my $op=$input->param('op');
  63 if (($search[0]) and not ($op eq 'do_search')){
  64         $op='do_search';
  65 }
  66 my $script_name = 'opac-dictionary.pl';
  67 my $query;
  68 my $type=$input->param('type');
  69 #warn " ".$type;
  70
  71 my $dbh = C4::Context->dbh;
  72 my ($template, $loggedinuser, $cookie);
  73
  74 my $env;
  75
  76 my $startfrom=$input->param('startfrom');
  77 $startfrom=0 if(!defined $startfrom);
  78 my $searchdesc;
  79 my $resultsperpage;
  80
  81 #warn "Starting process";
  82
  83 if ($op eq "do_search") {
  84         #
  85         # searching in biblio
  86         #
  87         my $sth=$dbh->prepare("Select distinct tagfield,tagsubfield from marc_subfield_structure where kohafield = ?");
  88         $sth->execute("$field");
  89         my (@tags, @and_or, @operator, @excluding,@value);
  90
  91         while ((my $tagfield,my $tagsubfield,my $liblibrarian) = $sth->fetchrow) {
  92                 push @tags, $dbh->quote("$tagfield$tagsubfield");
  93         }
  94
  95         $resultsperpage= $input->param('resultsperpage');
  96         $resultsperpage = 19 if(!defined $resultsperpage);
  97         my $orderby = $input->param('orderby');
  98
  99         findseealso($dbh,\@tags);
 100
 101         my @results, my $total;
 102         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 ";
 103         my $listtags="(";
 104         foreach my $tag (@tags){
 105                 $listtags .= $tag .",";
 106         }
 107         $listtags =~s/,$/)/;
 108         $strsth .= $listtags." and marc_word.tagsubfield=concat(marc_subfield_table.tag,marc_subfield_table.subfieldcode) group by subfieldvalue ";
 109 #       warn "search in biblio : ".$strsth;
 110         my $value = uc($search[0]);
 111         $value=~s/\*/%/g;
 112         $value.= "%" if not($value=~m/%/);
 113 #       warn " texte : ".$value;
 114
 115         $sth=$dbh->prepare($strsth);
 116         $sth->execute($value);
 117         my $total;
 118         my @catresults;
 119         while (my ($value,$ctresults)=$sth->fetchrow) {
 120 #               warn "countresults : ".$ctresults;
 121                 push @catresults,{value=> $value,
 122                                                   even=>($total-$startfrom*$resultsperpage)%2,
 123                                                   count=>$ctresults
 124                                                   } if (($total>=$startfrom*$resultsperpage) and ($total<($startfrom+1)*$resultsperpage));
 125                 $total++;
 126         }
 127
 128
 129         my $strsth="Select distinct authtypecode from marc_subfield_structure where (";
 130         foreach my $listtags (@tags){
 131                 my @taglist=split /,/,$listtags;
 132                 foreach my $curtag (@taglist){
 133                         $strsth.="(tagfield='".substr($curtag,1,3)."' AND tagsubfield='".substr($curtag,4,1)."') OR";
 134                 }
 135         }
 136
 137         $strsth=~s/ OR$/)/;
 138         my $strsth = $strsth." and authtypecode is not NULL";
 139 #       warn $strsth;
 140         my $sth=$dbh->prepare($strsth);
 141         $sth->execute;
 142
 143         #
 144         # searching in authorities
 145         #
 146         my @authresults;
 147         my $authnbresults;
 148         while ((my $authtypecode) = $sth->fetchrow) {
 149                 my ($curauthresults,$nbresults) = authoritysearch($dbh,[''],[''],[''],['contains'],
 150                                                                                                                 \@search,$startfrom*$resultsperpage, $resultsperpage,$authtypecode);
 151                 push @authresults, @$curauthresults;
 152                 $authnbresults+=$nbresults;
 153 #               warn "auth : $authtypecode nbauthresults : $nbresults";
 154         }
 155
 156         #
 157         # OK, filling the template with authorities & biblio entries found.
 158         #
 159         ($template, $loggedinuser, $cookie)
 160                 = get_template_and_user({template_name => "opac-dictionary.tmpl",
 161                                 query => $input,
 162                                 type => 'opac',
 163                                 authnotrequired => 1,
 164                                 debug => 1,
 165                                 });
 166
 167         # multi page display gestion
 168         my $displaynext=0;
 169         my $displayprev=$startfrom;
 170         if(($total - (($startfrom+1)*($resultsperpage))) > 0 ) {
 171                 $displaynext = 1;
 172         }
 173
 174         my @field_data = ();
 175
 176         for(my $i = 0 ; $i <= $#tags ; $i++) {
 177                 push @field_data, { term => "marclist", val=>$tags[$i] };
 178                 push @field_data, { term => "and_or", val=>$and_or[$i] };
 179                 push @field_data, { term => "excluding", val=>$excluding[$i] };
 180                 push @field_data, { term => "operator", val=>$operator[$i] };
 181                 push @field_data, { term => "value", val=>$value[$i] };
 182         }
 183
 184         my @numbers = ();
 185
 186         if ($total>$resultsperpage) {
 187                 for (my $i=1; $i<$total/$resultsperpage+1; $i++) {
 188                         if ($i<16) {
 189                         my $highlight=0;
 190                         ($startfrom==($i-1)) && ($highlight=1);
 191                         push @numbers, { number => $i,
 192                                         highlight => $highlight ,
 193                                         searchdata=> \@field_data,
 194                                         startfrom => ($i-1)};
 195                         }
 196         }
 197         }
 198
 199         my $from = $startfrom*$resultsperpage+1;
 200         my $to;
 201
 202         if($total < (($startfrom+1)*$resultsperpage))
 203         {
 204                 $to = $total;
 205         } else {
 206                 $to = (($startfrom+1)*$resultsperpage);
 207         }
 208         $template->param(anindex => $input->param('index'));
 209         $template->param(result => \@results,
 210                                          catresult=> \@catresults,
 211                                                 search => $search[0],
 212                                                 marclist =>$field,
 213                                                 authresult => \@authresults,
 214                                                 nbresults => $authnbresults,
 215                                                 startfrom=> $startfrom,
 216                                                 displaynext=> $displaynext,
 217                                                 displayprev=> $displayprev,
 218                                                 resultsperpage => $resultsperpage,
 219                                                 startfromnext => $startfrom+1,
 220                                                 startfromprev => $startfrom-1,
 221                                                 searchdata=>\@field_data,
 222                                                 total=>$total,
 223                                                 from=>$from,
 224                                                 to=>$to,
 225                                                 numbers=>\@numbers,
 226                                                 MARC_ON => C4::Context->preference("marc"),
 227                                                 );
 228
 229  } else {
 230         ($template, $loggedinuser, $cookie)
 231                 = get_template_and_user({template_name => "opac-dictionary.tmpl",
 232                                 query => $input,
 233                                 type => 'opac',
 234                                 authnotrequired => 1,
 235                                 debug => 1,
 236                                 });
 237 #warn "type : $type";
 238
 239  }
 240 $template->param(search => $search[0],
 241                                         marclist =>$field,
 242                                         type=>$type,
 243                                         anindex => $input->param('index'));
 244
 245 # Print the page
 246 output_html_with_http_headers $input, $cookie, $template->output;
 247
 248 # Local Variables:
 249 # tab-width: 4
 250 # End: