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