labels/label-item-search.pl

   1 #!/usr/bin/perl
   2
   3 # Copyright 2000-2002 Katipo Communications
   4 #
   5 # This file is part of Koha.
   6 #
   7 # Koha is free software; you can redistribute it and/or modify it under the
   8 # terms of the GNU General Public License as published by the Free Software
   9 # Foundation; either version 2 of the License, or (at your option) any later
  10 # version.
  11 #
  12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  14 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License along with
  17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  18 # Suite 330, Boston, MA  02111-1307 USA
  19
  20 use strict;
  21 use warnings;
  22
  23 use CGI;
  24 use C4::Auth;
  25 use HTML::Template::Pro;
  26 use C4::Context;
  27 use C4::Search;
  28 use C4::Auth;
  29 use C4::Output;
  30 use C4::Biblio;
  31 use C4::Items;
  32 use C4::Acquisition;
  33 use C4::Search;
  34 use C4::Dates;
  35 use C4::Koha;    # XXX subfield_is_koha_internal_p
  36 use C4::Debug;
  37 use List::Util qw( max min );
  38 use POSIX;
  39
  40 #use Smart::Comments;
  41 #use Data::Dumper;
  42
  43 BEGIN {
  44     $debug = $debug || $cgi_debug;
  45     if ($debug) {
  46         require Data::Dumper;
  47         import Data::Dumper qw(Dumper);
  48     }
  49 }
  50
  51 # Creates a scrolling list with the associated default value.
  52 # Using more than one scrolling list in a CGI assigns the same default value to all the
  53 # scrolling lists on the page !?!? That's why this function was written.
  54
  55 my $query = new CGI;
  56
  57 my $type      = $query->param('type');
  58 my $op        = $query->param('op') || '';
  59 my $batch_id  = $query->param('batch_id');
  60 my $ccl_query = $query->param('ccl_query');
  61
  62 my $dbh = C4::Context->dbh;
  63
  64 my $startfrom = $query->param('startfrom') || 1;
  65 my ( $template, $loggedinuser, $cookie );
  66 my (
  67     $total_hits,  $orderby, $results,  $total,  $error,
  68     $marcresults, $idx,     $datefrom, $dateto, $ccl_textbox
  69 );
  70
  71 my $resultsperpage = C4::Context->preference('numSearchResults') || '20';
  72
  73 my $show_results = 0;
  74
  75 if ( $op eq "do_search" ) {
  76     $idx         = $query->param('idx');
  77     $ccl_textbox = $query->param('ccl_textbox');
  78     if ( $ccl_textbox && $idx ) {
  79         $ccl_query = "$idx=$ccl_textbox";
  80     }
  81
  82     $datefrom = $query->param('datefrom');
  83     $dateto   = $query->param('dateto');
  84
  85     if ($datefrom) {
  86         $datefrom = C4::Dates->new($datefrom);
  87         $ccl_query .= ' and ' if $ccl_textbox;
  88         $ccl_query .=
  89           "acqdate,st-date-normalized,ge=" . $datefrom->output("iso");
  90     }
  91
  92     if ($dateto) {
  93         $dateto = C4::Dates->new($dateto);
  94         $ccl_query .= ' and ' if ( $ccl_textbox || $datefrom );
  95         $ccl_query .= "acqdate,st-date-normalized,le=" . $dateto->output("iso");
  96     }
  97
  98     my $offset = $startfrom > 1 ? $startfrom - 1 : 0;
  99     ( $error, $marcresults, $total_hits ) =
 100       SimpleSearch( $ccl_query, $offset, $resultsperpage );
 101
 102     if ($marcresults) {
 103         $show_results = scalar @$marcresults;
 104     }
 105     else {
 106         $debug and warn "ERROR label-item-search: no results from SimpleSearch";
 107
 108         # leave $show_results undef
 109     }
 110 }
 111
 112 if ($show_results) {
 113     my $hits = $show_results;
 114     my ( @results, @items );
 115
 116     # This code needs to be refactored using these subs...
 117     #my @items = &GetItemsInfo( $biblio->{biblionumber}, 'intra' );
 118     #my $dat = &GetBiblioData( $biblio->{biblionumber} );
 119     for ( my $i = 0 ; $i < $hits ; $i++ ) {
 120
 121         #DEBUG Notes: Decode the MARC record from each resulting MARC record...
 122         my $marcrecord = MARC::File::USMARC::decode( $marcresults->[$i] );
 123
 124         #DEBUG Notes: Transform it to Koha form...
 125         my $biblio = TransformMarcToKoha( C4::Context->dbh, $marcrecord, '' );
 126
 127 # Begin building the hash for the template...
 128 # I don't think we need this with the current template design, but I'm leaving it in place. -fbcit
 129 #$biblio->{highlight}       = ($i % 2)?(1):(0);
 130 #DEBUG Notes: Stuff the bib into @results...
 131         push @results, $biblio;
 132         my $biblionumber = $biblio->{'biblionumber'};
 133
 134         #DEBUG Notes: Grab the item numbers associated with this MARC record...
 135         my $itemnums = get_itemnumbers_of($biblionumber);
 136
 137         #DEBUG Notes: Retrieve the item data for each number...
 138         my $iii = $itemnums->{$biblionumber};
 139         if ($iii) {
 140             my $item_results = GetItemInfosOf(@$iii);
 141             foreach my $item ( keys %$item_results ) {
 142
 143 #DEBUG Notes: Build an array element 'item' of the correct bib (results) hash which contains item-specific data...
 144                 if ( $item_results->{$item}->{'biblionumber'} eq
 145                     $results[$i]->{'biblionumber'} )
 146                 {
 147
 148 # NOTE: The order of the elements in this array must be preserved or the table dependent on it will be incorrectly rendered.
 149 # This is a real hack, but I can't think of a better way right now. -fbcit
 150 # It is conceivable that itemcallnumber and/or barcode fields might be empty so the trinaries cover this possibility.
 151                     push @{ $results[$i]->{'item'} }, { i_itemnumber1 =>
 152                           $item_results->{$item}->{'itemnumber'} };
 153                     push @{ $results[$i]->{'item'} },
 154                       {
 155                         i_itemcallnumber => (
 156                               $item_results->{$item}->{'itemcallnumber'}
 157                             ? $item_results->{$item}->{'itemcallnumber'}
 158                             : 'NA'
 159                         )
 160                       };
 161                     push @{ $results[$i]->{'item'} }, { i_dateaccessioned =>
 162                           $item_results->{$item}->{'dateaccessioned'} };
 163                     push @{ $results[$i]->{'item'} },
 164                       {
 165                         i_barcode => (
 166                               $item_results->{$item}->{'barcode'}
 167                             ? $item_results->{$item}->{'barcode'}
 168                             : 'NA'
 169                         )
 170                       };
 171                     push @{ $results[$i]->{'item'} }, { i_itemnumber2 =>
 172                           $item_results->{$item}->{'itemnumber'} };
 173                 }
 174             }
 175         }
 176     }
 177     $debug and warn "**********\@results**********\n";
 178     $debug and warn Dumper(@results);
 179
 180     ( $template, $loggedinuser, $cookie ) = get_template_and_user(
 181         {
 182             template_name   => "labels/result.tmpl",
 183             query           => $query,
 184             type            => "intranet",
 185             authnotrequired => 0,
 186             flagsrequired   => { borrowers => 1 },
 187             flagsrequired   => { catalogue => 1 },
 188             debug           => 1,
 189         }
 190     );
 191
 192     # build page nav stuff.
 193     my ( @field_data, @numbers );
 194     $total = $total_hits;
 195
 196     my ( $from, $to, $startfromnext, $startfromprev, $displaynext,
 197         $displayprev );
 198
 199     if ( $total > $resultsperpage ) {
 200         my $num_of_pages = ceil( $total / $resultsperpage + 1 );
 201         for ( my $page = 1 ; $page < $num_of_pages ; $page++ ) {
 202             my $startfrm = ( ( $page - 1 ) * $resultsperpage ) + 1;
 203             push @numbers,
 204               {
 205                 number    => $page,
 206                 startfrom => $startfrm
 207               };
 208         }
 209
 210         $from          = $startfrom;
 211         $startfromprev = $startfrom - $resultsperpage;
 212         $startfromnext = $startfrom + $resultsperpage;
 213
 214         $to =
 215             $startfrom + $resultsperpage > $total
 216           ? $total
 217           : $startfrom + $resultsperpage - 1;
 218
 219         # multi page display
 220         $displaynext = 0;
 221         $displayprev = $startfrom > 1 ? $startfrom : 0;
 222
 223         $displaynext = 1 if $to < $total_hits;
 224
 225     }
 226     else {
 227         $displayprev = 0;
 228         $displaynext = 0;
 229     }
 230
 231     $template->param(
 232         total          => $total_hits,
 233         from           => $from,
 234         to             => $to,
 235         startfromnext  => $startfromnext,
 236         startfromprev  => $startfromprev,
 237         startfrom      => $startfrom,
 238         displaynext    => $displaynext,
 239         displayprev    => $displayprev,
 240         resultsperpage => $resultsperpage,
 241         numbers        => \@numbers,
 242     );
 243
 244     $template->param(
 245         result    => \@results,
 246         batch_id  => $batch_id,
 247         type      => $type,
 248         idx       => $idx,
 249         ccl_query => $ccl_query,
 250     );
 251 }
 252
 253 #
 254 #   search section
 255 #
 256
 257 else {
 258     ( $template, $loggedinuser, $cookie ) = get_template_and_user(
 259         {
 260             template_name   => "labels/search.tmpl",
 261             query           => $query,
 262             type            => "intranet",
 263             authnotrequired => 0,
 264             flagsrequired   => { catalogue => 1 },
 265             debug           => 1,
 266         }
 267     );
 268     my $itemtypes = GetItemTypes;
 269     my @itemtypeloop;
 270     foreach my $thisitemtype ( keys %$itemtypes ) {
 271         my %row = (
 272             value       => $thisitemtype,
 273             description => $itemtypes->{$thisitemtype}->{'description'},
 274         );
 275         push @itemtypeloop, \%row;
 276     }
 277     $template->param(
 278         itemtypeloop => \@itemtypeloop,
 279         batch_id     => $batch_id,
 280         type         => $type,
 281     );
 282
 283 }
 284
 285 # Print the page
 286 $template->param( DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(), );
 287 output_html_with_http_headers $query, $cookie, $template->output;