cataloguing/value_builder/unimarc_field_4XX.pl

   1 #!/usr/bin/perl
   2
   3 # Copyright Biblibre 2007
   4 #
   5 # This file is part of Koha.
   6 #
   7 # Koha is free software; you can redistribute it and/or modify it
   8 # under the terms of the GNU General Public License as published by
   9 # the Free Software Foundation; either version 3 of the License, or
  10 # (at your option) any later version.
  11 #
  12 # Koha is distributed in the hope that it will be useful, but
  13 # WITHOUT ANY WARRANTY; without even the implied warranty of
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  15 # GNU General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU General Public License
  18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  19
  20
  21 use strict;
  22 #use warnings; FIXME - Bug 2505
  23
  24 use CGI qw ( -utf8 );
  25 use C4::Output;
  26 use C4::Context;
  27 use C4::Search;
  28 use C4::Auth;
  29 use C4::Output;
  30
  31 use C4::Biblio;
  32 use C4::Koha;
  33 use MARC::Record;
  34 use C4::Branch;    # GetBranches
  35 use C4::ItemType;
  36
  37 sub plugin_javascript {
  38     my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
  39     my $function_name = $field_number;
  40     my $res           = "
  41     <script type='text/javascript'>
  42         function Clic$function_name(i) {
  43             defaultvalue=document.getElementById(\"$field_number\").value;
  44             window.open(\"/cgi-bin/koha/cataloguing/plugin_launcher.pl?plugin_name=unimarc_field_4XX.pl&index=\" + i + \"&result=\"+defaultvalue,\"unimarc_field_4\"+i+\"\",'width=900,height=700,toolbar=false,scrollbars=yes');
  45
  46         }
  47     </script>
  48     ";
  49
  50     return ( $function_name, $res );
  51 }
  52
  53 # sub plugin
  54 #
  55 # input arg :
  56 # -- op could be equals to
  57 # * fillinput :
  58 # * do_search :
  59 #
  60
  61 sub plugin {
  62     my ($input)   = @_;
  63     my $dbh       = C4::Context->dbh;
  64     my $query     = new CGI;
  65     my $op        = $query->param('op');
  66     my $type      = $query->param('type');
  67     my $startfrom = $query->param('startfrom');
  68     $startfrom = 0 if ( !defined $startfrom );
  69     my ( $template, $loggedinuser, $cookie );
  70     my $resultsperpage;
  71
  72     if ( $op eq "fillinput" ) {
  73         my $biblionumber = $query->param('biblionumber');
  74         my $index  = $query->param('index');
  75         my $marcrecord;
  76
  77         # open template
  78         ( $template, $loggedinuser, $cookie ) = get_template_and_user(
  79             {
  80                 template_name =>
  81                   "cataloguing/value_builder/unimarc_field_4XX.tt",
  82                 query           => $query,
  83                 type            => "intranet",
  84                 authnotrequired => 0,
  85                 flagsrequired   => { editcatalogue => '*' },
  86                 debug           => 1,
  87             }
  88         );
  89
  90         #get marc record
  91         $marcrecord = GetMarcBiblio($biblionumber);
  92
  93         my $subfield_value_9 = $biblionumber;
  94         my $subfield_value_0;
  95         $subfield_value_0 = $marcrecord->field('001')->data
  96           if $marcrecord->field('001');
  97         my $subfield_value_a;
  98         if ( $marcrecord->field('700') ) {
  99             $subfield_value_a = $marcrecord->field('700')->subfield("a");
 100             $subfield_value_a .= ", " . $marcrecord->subfield( '700', "b" )
 101               if $marcrecord->subfield( '700', 'b' );
 102             $subfield_value_a .= " " . $marcrecord->subfield( '700', "d" )
 103               if $marcrecord->subfield( '700', 'd' );
 104             $subfield_value_a .=
 105               " (" . $marcrecord->subfield( '700', 'c' )
 106               if $marcrecord->subfield( '700',     'c' );
 107             $subfield_value_a .=  " ; "
 108               if $marcrecord->subfield( '700',     'c' )
 109                 and $marcrecord->subfield( '700',     'f' );
 110             $subfield_value_a .= " ("
 111               if ( $marcrecord->subfield( '700', 'f' )
 112                 and not( $marcrecord->subfield( '700', 'c' ) ) );
 113             $subfield_value_a .= $marcrecord->subfield( '700', 'f' )
 114               if ( $marcrecord->subfield( '700', 'f' ) );
 115             $subfield_value_a .= ")"
 116               if ( $marcrecord->subfield( '700', 'f' )
 117                 or $marcrecord->subfield( '700', 'c' ) );
 118         }
 119         elsif ( $marcrecord->field('702') ) {
 120             $subfield_value_a = $marcrecord->subfield( '702', 'a' );
 121             $subfield_value_a .= ", " . $marcrecord->subfield( '702', 'b' )
 122               if $marcrecord->subfield( '702', 'b' );
 123             $subfield_value_a .= " " . $marcrecord->subfield( '702', 'd' )
 124               if $marcrecord->subfield( '702', 'd' );
 125             $subfield_value_a .=
 126               " (" . $marcrecord->subfield( '702', 'c' )
 127               if $marcrecord->subfield( '702',     'c' );
 128             $subfield_value_a .=  " ; "
 129               if $marcrecord->subfield( '702',     'c' )
 130                 and $marcrecord->subfield( '702',     'f' );
 131             $subfield_value_a .= " ("
 132               if $marcrecord->subfield( '702', 'f' )
 133               and not $marcrecord->subfield( '702', 'c' );
 134             $subfield_value_a .= $marcrecord->subfield( '702', 'f' )
 135               if $marcrecord->subfield( '702', 'f' );
 136             $subfield_value_a .= ")"
 137               if $marcrecord->subfield( '702', 'f' )
 138               or $marcrecord->subfield( '702', 'c' );
 139         }
 140         elsif ( $marcrecord->field('710') ) {
 141             $subfield_value_a = $marcrecord->subfield( '710', 'd' ) . " "
 142               if $marcrecord->subfield( '710', 'd' );
 143             $subfield_value_a .= $marcrecord->subfield( '710', 'a' )
 144               if $marcrecord->subfield( '710', 'a' );
 145             $subfield_value_a .= ", " . $marcrecord->subfield( '710', 'b' )
 146               if $marcrecord->subfield('710');
 147             $subfield_value_a .=
 148               " (" . $marcrecord->subfield( '710', 'f' ) . " - "
 149               if $marcrecord->subfield( '710',     'f' );
 150             $subfield_value_a .= " ("
 151               if $marcrecord->subfield( '710', 'e' )
 152               and not $marcrecord->subfield( '710', 'f' );
 153             $subfield_value_a .= $marcrecord->subfield( '710', 'e' )
 154               if $marcrecord->subfield( '710', 'e' );
 155             $subfield_value_a .= ")"
 156               if $marcrecord->subfield( '710', 'e' )
 157               or $marcrecord->subfield( '710', 'f' );
 158         }
 159         elsif ( $marcrecord->field('701') ) {
 160             $subfield_value_a = $marcrecord->subfield( '701', 'a' );
 161             $subfield_value_a .= ", " . $marcrecord->subfield( '701', 'b' )
 162               if $marcrecord->subfield( '701', 'b' );
 163             $subfield_value_a .= " " . $marcrecord->subfield( '701', 'd', )
 164               if $marcrecord->subfield( '701', 'd' );
 165             $subfield_value_a .=
 166               " (" . $marcrecord->subfield( '701', 'c' ) . " - "
 167               if $marcrecord->subfield( '701',     'c' );
 168             $subfield_value_a .= " ("
 169               if $marcrecord->subfield( '701', 'f' )
 170               and not( $marcrecord->subfield( '701', 'c' ) );
 171             $subfield_value_a .= $marcrecord->subfield( '701', 'f' )
 172               if $marcrecord->subfield( '701', 'f' );
 173             $subfield_value_a .= ")"
 174               if $marcrecord->subfield( '701', 'f' )
 175               or $marcrecord->subfield( '701', 'c' );
 176         }
 177         elsif ( $marcrecord->field('712') ) {
 178             $subfield_value_a = $marcrecord->subfield( '712', 'd' ) . " "
 179               if $marcrecord->subfield( '712', 'd' );
 180             $subfield_value_a .= $marcrecord->subfield( '712', 'a' )
 181               if $marcrecord->subfield( '712', 'a' );
 182             $subfield_value_a .= ", " . $marcrecord->subfield( '712', 'b' )
 183               if $marcrecord->subfield( '712', 'b' );
 184             $subfield_value_a .=
 185               " (" . $marcrecord->subfield( '712', 'f' ) . " - "
 186               if $marcrecord->subfield( '712',     'f' );
 187             $subfield_value_a .= " ("
 188               if $marcrecord->subfield( '712', "e" )
 189               and not $marcrecord->subfield( '712', 'f' );
 190             $subfield_value_a .= $marcrecord->subfield( '712', 'e' )
 191               if $marcrecord->subfield( '712', 'e' );
 192             $subfield_value_a .= ")"
 193               if $marcrecord->subfield( '712', 'e' )
 194               or $marcrecord->subfield( '712', 'f' );
 195         }
 196         elsif ( $marcrecord->field('200') ) {
 197             $subfield_value_a = $marcrecord->subfield( '200', 'f' );
 198         }
 199         my $subfield_value_c;
 200         my $subfield_value_d;
 201         my $subfield_value_e;
 202         $subfield_value_c = $marcrecord->field('210')->subfield("a")
 203           if ( $marcrecord->field('210') );
 204         $subfield_value_d = $marcrecord->field('210')->subfield("d")
 205           if ( $marcrecord->field('210') );
 206         $subfield_value_e = $marcrecord->field('205')->subfield("a")
 207           if ( $marcrecord->field('205') );
 208
 209         my $subfield_value_h;
 210         if (   ( $marcrecord->field('200') )
 211             && ( $marcrecord->field('200')->subfield("h") ) )
 212         {
 213             $subfield_value_h = $marcrecord->field('200')->subfield("h");
 214         }
 215         elsif (( $marcrecord->field('225') )
 216             && ( $marcrecord->field('225')->subfield("h") ) )
 217         {
 218             $subfield_value_h = $marcrecord->field('225')->subfield("h");
 219         }
 220         elsif (( $marcrecord->field('500') )
 221             && ( $marcrecord->field('500')->subfield("h") ) )
 222         {
 223             $subfield_value_h = $marcrecord->field('500')->subfield("h");
 224         }
 225
 226         my $subfield_value_i;
 227         if (   ( $marcrecord->field('200') )
 228             && ( $marcrecord->field('200')->subfield("i") ) )
 229         {
 230             $subfield_value_i = $marcrecord->field('200')->subfield("i");
 231         }
 232         elsif (( $marcrecord->field('225') )
 233             && ( $marcrecord->field('225')->subfield("i") ) )
 234         {
 235             $subfield_value_i = $marcrecord->field('225')->subfield("i");
 236         }
 237         elsif (( $marcrecord->field('500') )
 238             && ( $marcrecord->field('500')->subfield("i") ) )
 239         {
 240             $subfield_value_i = $marcrecord->field('500')->subfield("i");
 241         }
 242
 243         my $subfield_value_l;
 244         $subfield_value_l = $marcrecord->field('200')->subfield("d")
 245             if ( $marcrecord->field('200') );
 246
 247         my $subfield_value_n;
 248         $subfield_value_n = $marcrecord->field('210')->subfield("c")
 249             if ( $marcrecord->field('210') );
 250
 251         my $subfield_value_o;
 252         $subfield_value_o = $marcrecord->field('200')->subfield("e")
 253             if ( $marcrecord->field('200') );
 254
 255         my $subfield_value_p;
 256         $subfield_value_p = $marcrecord->field('215')->subfield("a")
 257           if ( $marcrecord->field('215') );
 258
 259         my $subfield_value_t;
 260         if (   ( $marcrecord->field('200') )
 261             && ( $marcrecord->field('200')->subfield("a") ) )
 262         {
 263             $subfield_value_t = $marcrecord->field('200')->subfield("a");
 264         }
 265         elsif (( $marcrecord->field('225') )
 266             && ( $marcrecord->field('225')->subfield("a") ) )
 267         {
 268             $subfield_value_t = $marcrecord->field('225')->subfield("a");
 269         }
 270         elsif (( $marcrecord->field('500') )
 271             && ( $marcrecord->field('500')->subfield("a") ) )
 272         {
 273             $subfield_value_t = $marcrecord->field('500')->subfield("a");
 274         }
 275
 276         my $subfield_value_u;
 277         if ( $marcrecord->field('856') ) {
 278             $subfield_value_u = $marcrecord->field('856')->subfield("u");
 279         }
 280
 281         my $subfield_value_v;
 282         if (   ( $marcrecord->field('225') )
 283             && ( $marcrecord->field('225')->subfield("v") ) )
 284         {
 285             $subfield_value_v = $marcrecord->field('225')->subfield("v");
 286         }
 287         elsif (( $marcrecord->field('200') )
 288             && ( $marcrecord->field('200')->subfield("h") ) )
 289         {
 290             $subfield_value_v = $marcrecord->field('200')->subfield("h");
 291         }
 292         my $subfield_value_x;
 293         if (
 294             $marcrecord->field('011')
 295             and not( ( $marcrecord->field('011')->subfield("y") )
 296                 or ( $marcrecord->field('011')->subfield("z") ) ) ) {
 297              $subfield_value_x = $marcrecord->field('011')->subfield("a");
 298         }
 299         my $subfield_value_y;
 300           if ( $marcrecord->field('013') ) {
 301              $subfield_value_y = $marcrecord->field('013')->subfield("a");
 302         }
 303         if   ( $marcrecord->field('010') ) {
 304             $subfield_value_y = $marcrecord->field('010')->subfield("a");
 305         }
 306         # escape the 's
 307         $subfield_value_9 =~ s/'/\\'/g;
 308         $subfield_value_0 =~ s/'/\\'/g;
 309         $subfield_value_a =~ s/'/\\'/g;
 310         $subfield_value_c =~ s/'/\\'/g;
 311         $subfield_value_d =~ s/'/\\'/g;
 312         $subfield_value_e =~ s/'/\\'/g;
 313         $subfield_value_h =~ s/'/\\'/g;
 314         $subfield_value_i =~ s/'/\\'/g;
 315         $subfield_value_l =~ s/'/\\'/g;
 316         $subfield_value_n =~ s/'/\\'/g;
 317         $subfield_value_o =~ s/'/\\'/g;
 318         $subfield_value_p =~ s/'/\\'/g;
 319         $subfield_value_t =~ s/'/\\'/g;
 320         $subfield_value_u =~ s/'/\\'/g;
 321         $subfield_value_v =~ s/'/\\'/g;
 322         $subfield_value_x =~ s/'/\\'/g;
 323         $subfield_value_y =~ s/'/\\'/g;
 324         $template->param(
 325             fillinput        => 1,
 326             index            => $query->param('index') . "",
 327             biblionumber     => $biblionumber ? $biblionumber : "",
 328             subfield_value_9 => "$subfield_value_9",
 329             subfield_value_0 => "$subfield_value_0",
 330             subfield_value_a => "$subfield_value_a",
 331             subfield_value_c => "$subfield_value_c",
 332             subfield_value_d => "$subfield_value_d",
 333             subfield_value_e => "$subfield_value_e",
 334             subfield_value_h => "$subfield_value_h",
 335             subfield_value_i => "$subfield_value_i",
 336             subfield_value_l => "$subfield_value_l",
 337             subfield_value_n => "$subfield_value_n",
 338             subfield_value_o => "$subfield_value_o",
 339             subfield_value_p => "$subfield_value_p",
 340             subfield_value_t => "$subfield_value_t",
 341             subfield_value_u => "$subfield_value_u",
 342             subfield_value_v => "$subfield_value_v",
 343             subfield_value_x => "$subfield_value_x",
 344             subfield_value_y => "$subfield_value_y",
 345         );
 346 ###############################################################
 347     }
 348     elsif ( $op eq "do_search" ) {
 349         my $search         = $query->param('search');
 350         my $itype          = $query->param('itype');
 351         my $startfrom      = $query->param('startfrom');
 352         my $resultsperpage = $query->param('resultsperpage') || 20;
 353         my $orderby;
 354         my $QParser;
 355         $QParser = C4::Context->queryparser if (C4::Context->preference('UseQueryParser'));
 356         my $op;
 357         if ($QParser) {
 358             $op = '&&';
 359         } else {
 360             $op = 'and';
 361         }
 362         $search = 'kw:'.$search." $op mc-itemtype:".$itype if $itype;
 363         my ( $errors, $results, $total_hits ) = SimpleSearch($search, $startfrom * $resultsperpage, $resultsperpage );
 364         if (defined $errors ) {
 365             $results = [];
 366         }
 367         my $total = @{$results};
 368
 369         #        warn " biblio count : ".$total;
 370
 371         ( $template, $loggedinuser, $cookie ) = get_template_and_user(
 372             {
 373                 template_name =>
 374                   "cataloguing/value_builder/unimarc_field_4XX.tt",
 375                 query           => $query,
 376                 type            => 'intranet',
 377                 authnotrequired => 0,
 378                 debug           => 1,
 379             }
 380         );
 381
 382         # multi page display gestion
 383         my $displaynext = 0;
 384         my $displayprev = $startfrom;
 385
 386         if( ( $total_hits - ( ( $startfrom + 1 ) * ($resultsperpage) ) ) > 0 ) {
 387             $displaynext = 1;
 388         }
 389         my @arrayresults;
 390         my @field_data = ($search);
 391          for (
 392              my $i = 0 ;
 393              $i < $resultsperpage ;
 394              $i++
 395            )
 396          {
 397             my $record = C4::Search::new_record_from_zebra( 'biblioserver', $results->[$i] );
 398             next unless $record;
 399             my $rechash = TransformMarcToKoha( $dbh, $record );
 400             if ( my $f = $record->field('200') ) {
 401                 $rechash->{fulltitle} =
 402                     join(', ', map { $_->[1] } grep { $_->[0] =~ /[aehi]/ } $f->subfields() );
 403             }
 404             else {
 405                 $rechash->{fulltitle} = $rechash->{title};
 406             }
 407             my $pos;
 408             my $countitems;
 409             if ( $rechash->{itemnumber} ) {
 410                 $countitems=1;
 411             }
 412             while ( index( $rechash->{itemnumber}, '|', $pos ) > 0 ) {
 413                 $countitems += 1;
 414                 $pos = index( $rechash->{itemnumber}, '|', $pos ) + 1;
 415             }
 416             $rechash->{totitem} = $countitems;
 417             my @holdingbranches = split /\|/, $rechash->{holdingbranch};
 418             my @itemcallnumbers = split /\|/, $rechash->{itemcallnumber};
 419             my $CN;
 420             for ( my $i = 0 ; $i < @holdingbranches ; $i++ ) {
 421                 $CN .=
 422                   $holdingbranches[$i] . " ( " . $itemcallnumbers[$i] . " ) |";
 423             }
 424             $CN =~ s/ \|$//;
 425             $rechash->{CN} = $CN;
 426             push @arrayresults, $rechash;
 427          }
 428
 429    #         for(my $i = 0 ; $i <= $#marclist ; $i++)
 430    #         {
 431    #             push @field_data, { term => "marclist", val=>$marclist[$i] };
 432    #             push @field_data, { term => "and_or", val=>$and_or[$i] };
 433    #             push @field_data, { term => "excluding", val=>$excluding[$i] };
 434    #             push @field_data, { term => "operator", val=>$operator[$i] };
 435    #             push @field_data, { term => "value", val=>$value[$i] };
 436    #         }
 437
 438         my @numbers = ();
 439
 440         if ( $total > $resultsperpage ) {
 441             for ( my $i = 1 ; $i < $total / $resultsperpage + 1 ; $i++ ) {
 442                 if ( $i < 16 ) {
 443                     my $highlight = 0;
 444                     ( $startfrom == ( $i - 1 ) ) && ( $highlight = 1 );
 445                     push @numbers,
 446                       {
 447                         number     => $i,
 448                         highlight  => $highlight,
 449                         searchdata => \@field_data,
 450                         startfrom  => ( $i - 1 )
 451                       };
 452                 }
 453             }
 454         }
 455
 456         my $from = $startfrom * $resultsperpage + 1;
 457         my $to;
 458
 459         if ( $total_hits < $from + $resultsperpage ) {
 460             $to = $total_hits;
 461         }else{
 462             $to = $from + $resultsperpage ;
 463         }
 464         my $defaultview =
 465           'BiblioDefaultView' . C4::Context->preference('BiblioDefaultView');
 466 #         my $link="/cgi-bin/koha/cataloguing/value_builder/unimarc4XX.pl?op=do_search&q=$search_desc&resultsperpage=$resultsperpage&startfrom=$startfrom&search=$search";
 467 #           foreach my $sort (@sort_by){
 468 #             $link.="&sort_by=".$sort."&";
 469 #           }
 470 #           $template->param(
 471 #             pagination_bar => pagination_bar(
 472 #                     $link,
 473 #                     getnbpages($hits, $results_per_page),
 474 #                     $page,
 475 #                     'page'
 476 #             ),
 477 #           );
 478         $template->param(
 479             result         => \@arrayresults,
 480             index          => $query->param('index') . "",
 481             startfrom      => $startfrom,
 482             displaynext    => $displaynext,
 483             displayprev    => $displayprev,
 484             resultsperpage => $resultsperpage,
 485             orderby        => $orderby,
 486             startfromnext  => $startfrom + 1,
 487             startfromprev  => $startfrom - 1,
 488             searchdata     => \@field_data,
 489             total          => $total_hits,
 490             from           => $from,
 491             to             => $to,
 492             numbers        => \@numbers,
 493             search         => $search,
 494             $defaultview   => 1,
 495             Search         => 0
 496         );
 497
 498     }
 499     else {
 500         ( $template, $loggedinuser, $cookie ) = get_template_and_user(
 501             {
 502                 template_name =>
 503                   "cataloguing/value_builder/unimarc_field_4XX.tt",
 504                 query           => $query,
 505                 type            => "intranet",
 506                 authnotrequired => 0,
 507             }
 508         );
 509
 510         my @itemtypes = C4::ItemType->all;
 511
 512         $template->param(    #classlist => $classlist,
 513             itypeloop    => \@itemtypes,
 514             index        => $query->param('index'),
 515             Search       => 1,
 516         );
 517     }
 518     output_html_with_http_headers $query, $cookie, $template->output;
 519 }