cataloguing/value_builder/unimarc_field_4XX.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 require Exporter;
  22 use CGI;
  23 use C4::Output;
  24 use C4::Context;
  25 use C4::Search;
  26 use C4::Auth;
  27 use C4::Output;
  28
  29 use C4::Biblio;
  30 use C4::Koha;
  31 use MARC::Record;
  32 use C4::Branch; # GetBranches
  33
  34 sub plugin_parameters {
  35 my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
  36 return "";
  37 }
  38
  39 sub plugin_javascript {
  40 my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
  41 my $function_name= "4XX".(int(rand(100000))+1);
  42 my $res="
  43 <script>
  44 function Focus$function_name(subfield_managed) {
  45 return 1;
  46 }
  47
  48 function Blur$function_name(subfield_managed) {
  49     return 1;
  50 }
  51
  52 function Clic$function_name(i) {
  53     defaultvalue=document.f.field_value[i].value;
  54     newin=window.open(\"plugin_launcher.pl?plugin_name=unimarc_field_4XX.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 4\"+i+\"\",'width=700,height=700,toolbar=false,scrollbars=yes');
  55
  56 }
  57 </script>
  58 ";
  59
  60 return ($function_name,$res);
  61 }
  62
  63 sub plugin {
  64     my ($input) = @_;
  65     my $dbh=C4::Context->dbh;
  66     my $query = new CGI;
  67     my $op = $query->param('op');
  68     my $type=$query->param('type');
  69 #     warn "operation  ".$op;
  70     my $startfrom=$query->param('startfrom');
  71     $startfrom=0 if(!defined $startfrom);
  72     my ($template, $loggedinuser, $cookie);
  73     my $resultsperpage;
  74     my $searchdesc;
  75
  76     if ($op eq "fillinput"){
  77         my $bibnum = $query->param('bibnum');
  78         my $index = $query->param('index');
  79         my $marcrecord;
  80 # open template
  81         ($template, $loggedinuser, $cookie)= get_template_and_user({template_name => "cataloguing/value_builder/unimarc_field_4XX.tmpl",
  82                  query => $query,
  83                  type => "intranet",
  84                  authnotrequired => 0,
  85                  flagsrequired => {editcatalogue => 1},
  86                  debug => 1,
  87                 });
  88
  89         #get marc record
  90         $marcrecord = GetMarcBiblio($bibnum);
  91
  92         my $subfield_value_9=$bibnum;
  93         my $subfield_value_0;
  94         $subfield_value_0=$marcrecord->field('001')->data if $marcrecord->field('001');
  95         my $subfield_value_a;
  96         if ($marcrecord->field('700')){
  97             $subfield_value_a=$marcrecord->field('700')->subfield("a");
  98             $subfield_value_a.=", ".$marcrecord->subfield('700',"b") if $marcrecord->subfield('700','b');
  99             $subfield_value_a.=" ".$marcrecord->subfield('700',"d") if $marcrecord->subfield('700','d');
 100             $subfield_value_a.=" (".$marcrecord->subfield('700','c')." - " if $marcrecord->subfield('700','c');
 101             $subfield_value_a.=" (" if ($marcrecord->subfield('700','f') and not( $marcrecord->subfield('700','c')));
 102             $subfield_value_a.=$marcrecord->subfield('700','f') if ($marcrecord->subfield('700','f'));
 103             $subfield_value_a.=")" if ($marcrecord->subfield('701','f') or $marcrecord->subfield('701','c'));
 104         } elsif ($marcrecord->field('702')){
 105             $subfield_value_a=$marcrecord->subfield('702','a');
 106             $subfield_value_a.=", ".$marcrecord->subfield('702','b') if $marcrecord->subfield('702','b');
 107             $subfield_value_a.=" ".$marcrecord->subfield('702','d') if $marcrecord->subfield('702','d');
 108             $subfield_value_a.=" (".$marcrecord->subfield('702','c')."; " if $marcrecord->subfield('702','c');
 109             $subfield_value_a.=" (" if $marcrecord->subfield('702','f') and not $marcrecord->subfield('702','c');
 110             $subfield_value_a.=$marcrecord->subfield('702','f') if $marcrecord->subfield('702','f');
 111             $subfield_value_a.=")" if $marcrecord->subfield('702','f') or $marcrecord->subfield('702','c');
 112         } elsif ($marcrecord->field('710')){
 113             $subfield_value_a=$marcrecord->subfield('710','d')." " if $marcrecord->subfield('710','d');
 114             $subfield_value_a.=$marcrecord->subfield('710','a') if $marcrecord->subfield('710','a');
 115             $subfield_value_a.=", ".$marcrecord->subfield('710','b') if $marcrecord->subfield('710');
 116             $subfield_value_a.=" (".$marcrecord->subfield('710','f')." - " if $marcrecord->subfield('710','f');
 117             $subfield_value_a.=" (" if $marcrecord->subfield('710','e') and not $marcrecord->subfield('710','f');
 118             $subfield_value_a.=$marcrecord->subfield('710','e') if $marcrecord->subfield('710','e');
 119             $subfield_value_a.=")" if $marcrecord->subfield('710','e') or $marcrecord->subfield('710','f');
 120         } elsif ($marcrecord->field('701')){
 121             $subfield_value_a=$marcrecord->subfield('701','a');
 122             $subfield_value_a.=", ".$marcrecord->subfield('701','b') if $marcrecord->subfield('701','b');
 123             $subfield_value_a.=" ".$marcrecord->subfield('701','d',) if $marcrecord->subfield('701','d');
 124             $subfield_value_a.=" (".$marcrecord->subfield('701','c')." - " if $marcrecord->subfield('701','c');
 125             $subfield_value_a.=" (" if $marcrecord->subfield('701','f') and not( $marcrecord->subfield('701','c'));
 126             $subfield_value_a.=$marcrecord->subfield('701','f') if $marcrecord->subfield('701','f');
 127             $subfield_value_a.=")" if $marcrecord->subfield('701','f') or $marcrecord->subfield('701','c');
 128         } elsif ($marcrecord->field('712')){
 129             $subfield_value_a=$marcrecord->subfield('712','d')." " if $marcrecord->subfield('712','d');
 130             $subfield_value_a.=$marcrecord->subfield('712','a') if $marcrecord->subfield('712','a');
 131             $subfield_value_a.=", ".$marcrecord->subfield('712','b') if $marcrecord->subfield('712','b');
 132             $subfield_value_a.=" (".$marcrecord->subfield('712','f')." - " if $marcrecord->subfield('712','f');
 133             $subfield_value_a.=" (" if $marcrecord->field('712',"e") and not $marcrecord->subfield('712','f');
 134             $subfield_value_a.=$marcrecord->subfield('712','e') if $marcrecord->subfield('712','e');
 135             $subfield_value_a.=")" if $marcrecord->subfield('712','e') or $marcrecord->subfield('712','f');
 136         } elsif ($marcrecord->field('200')){
 137             $subfield_value_a=$marcrecord->subfield('200','f');
 138         }
 139         my $subfield_value_c = $marcrecord->field('210')->subfield("a") if ($marcrecord->field('210'));
 140         my $subfield_value_d = $marcrecord->field('210')->subfield("d") if ($marcrecord->field('210'));
 141
 142         my $subfield_value_e= $marcrecord->field('205')->subfield("a") if ($marcrecord->field('205'));
 143
 144         my $subfield_value_h;
 145         if (($marcrecord->field('200')) && ($marcrecord->field('200')->subfield("h"))){
 146             $subfield_value_h = $marcrecord->field('200')->subfield("h") ;
 147         } elsif (($marcrecord->field('225')) && ($marcrecord->field('225')->subfield("h"))) {
 148             $subfield_value_h = $marcrecord->field('225')->subfield("h") ;
 149         } elsif (($marcrecord->field('500')) && ($marcrecord->field('500')->subfield("h"))) {
 150             $subfield_value_h = $marcrecord->field('500')->subfield("h") ;
 151         }
 152
 153         my $subfield_value_i;
 154         if (($marcrecord->field('200')) && ($marcrecord->field('200')->subfield("i"))){
 155             $subfield_value_i = $marcrecord->field('200')->subfield("i") ;
 156         } elsif (($marcrecord->field('225')) && ($marcrecord->field('225')->subfield("i"))) {
 157             $subfield_value_i = $marcrecord->field('225')->subfield("i") ;
 158         } elsif (($marcrecord->field('500')) && ($marcrecord->field('500')->subfield("i"))) {
 159             $subfield_value_i = $marcrecord->field('500')->subfield("i") ;
 160         }
 161
 162         my $subfield_value_p = $marcrecord->field('215')->subfield("a") if ($marcrecord->field('215'));
 163
 164         my $subfield_value_t;
 165         if (($marcrecord->field('200')) && ($marcrecord->field('200')->subfield("a"))){
 166             $subfield_value_t = $marcrecord->field('200')->subfield("a") ;
 167         } elsif (($marcrecord->field('225')) && ($marcrecord->field('225')->subfield("a"))) {
 168             $subfield_value_t = $marcrecord->field('225')->subfield("a") ;
 169         } elsif (($marcrecord->field('500')) && ($marcrecord->field('500')->subfield("a"))) {
 170             $subfield_value_t = $marcrecord->field('500')->subfield("a") ;
 171         }
 172
 173         my $subfield_value_u = $marcrecord->field('856')->subfield("u") if ($marcrecord->field('856'));
 174
 175         my $subfield_value_v;
 176         if (($marcrecord->field('225')) && ($marcrecord->field('225')->subfield("v"))){
 177             $subfield_value_v = $marcrecord->field('225')->subfield("v") ;
 178         } elsif (($marcrecord->field('200')) && ($marcrecord->field('200')->subfield("h"))) {
 179             $subfield_value_v = $marcrecord->field('200')->subfield("h") ;
 180         }
 181         my $subfield_value_x = $marcrecord->field('011')->subfield("a") if ($marcrecord->field('011') and not (($marcrecord->field('011')->subfield("y")) or ($marcrecord->field('011')->subfield("z"))));
 182         my $subfield_value_y = $marcrecord->field('013')->subfield("a") if ($marcrecord->field('013'));
 183         if ($marcrecord->field('010')){
 184             $subfield_value_y = $marcrecord->field('010')->subfield("a");
 185         }
 186         $template->param(fillinput => 1,
 187                         index => $query->param('index')."",
 188                         biblionumber=>$bibnum?$bibnum:"",
 189                         subfield_value_9=>$subfield_value_9,
 190                         subfield_value_0=>$subfield_value_0,
 191                         subfield_value_a=>$subfield_value_a,
 192                         subfield_value_c=>$subfield_value_c,
 193                         subfield_value_d=>$subfield_value_d,
 194                         subfield_value_e=>$subfield_value_e,
 195                         subfield_value_h=>$subfield_value_h,
 196                         subfield_value_i=>$subfield_value_i,
 197                         subfield_value_p=>$subfield_value_p,
 198                         subfield_value_t=>$subfield_value_t,
 199                         subfield_value_u=>$subfield_value_u,
 200                         subfield_value_v=>$subfield_value_v,
 201                         subfield_value_x=>$subfield_value_x,
 202                         subfield_value_y=>$subfield_value_y,
 203                         );
 204 ###############################################################
 205     }elsif ($op eq "do_search") {
 206         my $search = $query->param('search');
 207         my $startfrom = $query->param('startfrom');
 208         my $resultsperpage = $query->param('resultsperpage');
 209         my $orderby;
 210         my ($errors,$results) = SimpleSearch($search);
 211         my $total=scalar(@$results);
 212         $resultsperpage=20 unless $resultsperpage;
 213 #        warn " biblio count : ".$total;
 214
 215         ($template, $loggedinuser, $cookie)
 216             = get_template_and_user({template_name => "cataloguing/value_builder/unimarc_field_4XX.tmpl",
 217                     query => $query,
 218                     type => 'intranet',
 219                     authnotrequired => 1,
 220                     debug => 1,
 221                     });
 222
 223         # multi page display gestion
 224         my $displaynext=0;
 225         my $displayprev=$startfrom;
 226         if(($total - (($startfrom+1)*($resultsperpage))) > 0 ){
 227             $displaynext = 1;
 228         }
 229         my @arrayresults;
 230         my @field_data = ($search);
 231         for (my $i=$startfrom; $i<=(($startfrom+$resultsperpage)<scalar(@$results)?($startfrom+$resultsperpage):scalar(@$results));$i++){
 232             my $record=MARC::Record::new_from_usmarc( $results->[$i] );
 233             my $rechash=TransformMarcToKoha($dbh,$record);
 234             my $pos;
 235             my $countitems=1 if ($rechash->{itemnumber});
 236             while (index($rechash->{itemnumber},'|',$pos)>0){
 237               $countitems+=1;
 238               $pos=index($rechash->{itemnumber},'|',$pos)+1;
 239             }
 240             $rechash->{totitem}=$countitems;
 241             my @holdingbranches=split /\|/,$rechash->{holdingbranch};
 242             my @itemcallnumbers=split /\|/,$rechash->{itemcallnumber};
 243             my $CN;
 244             for (my $i=0;$i<@holdingbranches;$i++){
 245               $CN.= $holdingbranches[$i]." ( ".$itemcallnumbers[$i]." ) |"
 246             }
 247             $CN=~s/ \|$//;
 248             $rechash->{CN}=$CN;
 249             push @arrayresults,$rechash;
 250         }
 251
 252 #         for(my $i = 0 ; $i <= $#marclist ; $i++)
 253 #         {
 254 #             push @field_data, { term => "marclist", val=>$marclist[$i] };
 255 #             push @field_data, { term => "and_or", val=>$and_or[$i] };
 256 #             push @field_data, { term => "excluding", val=>$excluding[$i] };
 257 #             push @field_data, { term => "operator", val=>$operator[$i] };
 258 #             push @field_data, { term => "value", val=>$value[$i] };
 259 #         }
 260
 261         my @numbers = ();
 262
 263         if ($total>$resultsperpage)
 264         {
 265             for (my $i=1; $i<$total/$resultsperpage+1; $i++)
 266             {
 267                 if ($i<16)
 268                 {
 269                     my $highlight=0;
 270                     ($startfrom==($i-1)) && ($highlight=1);
 271                     push @numbers, { number => $i,
 272                         highlight => $highlight ,
 273                         searchdata=> \@field_data,
 274                         startfrom => ($i-1)};
 275                 }
 276             }
 277         }
 278
 279         my $from = $startfrom*$resultsperpage+1;
 280         my $to;
 281
 282         if($total < (($startfrom+1)*$resultsperpage))
 283         {
 284             $to = $total;
 285         } else {
 286             $to = (($startfrom+1)*$resultsperpage);
 287         }
 288         my $defaultview = 'BiblioDefaultView'.C4::Context->preference('BiblioDefaultView');
 289         $template->param(result => \@arrayresults,
 290                         index => $query->param('index')."",
 291                                 startfrom=> $startfrom,
 292                                 displaynext=> $displaynext,
 293                                 displayprev=> $displayprev,
 294                                 resultsperpage => $resultsperpage,
 295                                 orderby => $orderby,
 296                                 startfromnext => $startfrom+1,
 297                                 startfromprev => $startfrom-1,
 298                                 searchdata=>\@field_data,
 299                                 total=>$total,
 300                                 from=>$from,
 301                                 to=>$to,
 302                                 numbers=>\@numbers,
 303                                 search=> $search,
 304                                 $defaultview => 1,
 305                                 Search =>0
 306                                 );
 307
 308     } else {
 309         ($template, $loggedinuser, $cookie)
 310             = get_template_and_user({template_name => "cataloguing/value_builder/unimarc_field_4XX.tmpl",
 311                         query => $query,
 312                         type => "intranet",
 313                         authnotrequired => 1,
 314                     });
 315
 316
 317         my $sth=$dbh->prepare("Select itemtype,description from itemtypes order by description");
 318         $sth->execute;
 319         my  @itemtype;
 320         my %itemtypes;
 321         push @itemtype, "";
 322         $itemtypes{''} = "";
 323         while (my ($value,$lib) = $sth->fetchrow_array) {
 324             push @itemtype, $value;
 325             $itemtypes{$value}=$lib;
 326         }
 327
 328         my $CGIitemtype=CGI::scrolling_list( -name     => 'value',
 329                     -values   => \@itemtype,
 330                     -labels   => \%itemtypes,
 331                     -size     => 1,
 332                     -multiple => 0 );
 333         $sth->finish;
 334
 335         my @branchloop;
 336         my @select_branch;
 337         my %select_branches;
 338         my $branches=GetBranches;
 339         push @select_branch, "";
 340         $select_branches{''} = "";
 341         foreach my $thisbranch (keys %$branches){
 342             push @select_branch, $branches->{$thisbranch}->{'branchcode'};
 343             $select_branches{$branches->{$thisbranch}->{'branchcode'}} = $branches->{$thisbranch}->{'branchname'};
 344         }
 345         my $CGIbranch=CGI::scrolling_list( -name     => 'value',
 346                     -values   => \@select_branch,
 347                     -labels   => \%select_branches,
 348                     -size     => 1,
 349                     -multiple => 0 );
 350         $sth->finish;
 351
 352         my $req = $dbh->prepare("select distinctrow left(publishercode,45) from biblioitems order by publishercode");
 353         $req->execute;
 354         my @select;
 355         push @select,"";
 356         while (my ($value) =$req->fetchrow) {
 357             push @select, $value;
 358         }
 359         my $CGIpublisher=CGI::scrolling_list( -name     => 'value',
 360                     -id => 'publisher',
 361                     -values   => \@select,
 362                     -size     => 1,
 363                     -multiple => 0 );
 364
 365 #         my $sth=$dbh->prepare("select description,itemtype from itemtypes order by description");
 366 #         $sth->execute;
 367 #         while (my ($description,$itemtype) = $sth->fetchrow) {
 368 #             $classlist.="<option value=\"$itemtype\">$description</option>\n";
 369 #         }
 370 #         $sth->finish;
 371
 372         $template->param(#classlist => $classlist,
 373                         CGIitemtype => $CGIitemtype,
 374                         CGIbranch => $CGIbranch,
 375                         CGIPublisher => $CGIpublisher,
 376                         index=>$query->param('index'),
 377                         Search =>1,
 378         );
 379     }
 380     output_html_with_http_headers $query, $cookie, $template->output ;
 381 }
 382
 383 1;