From d675044454ce9527b8cc4e519b91ca0de7879f9f Mon Sep 17 00:00:00 2001 From: Zeno Tajoli Date: Fri, 3 Aug 2012 15:03:59 +0200 Subject: [PATCH] [BZ 8185] This is the plugin for linking records in Marc21. Content-Type: text/plain; charset="utf-8" It works like the unimarc plugin unimarc_field_4XX. It insert: $9 -> biblionumber $w -> 001 $t -> 245$a (title ) $x -> 022$a (ISSN) $z -> 020$a (ISBN) The search is done on 'any' index. Data are inserted only in the working record. To insert data in the connected record, you need to open the other record. --- .../value_builder/marc21_linking_section.pl | 409 ++++++++++++++++++++ .../value_builder/marc21_linking_section.tt | 238 ++++++++++++ 2 files changed, 647 insertions(+) create mode 100644 cataloguing/value_builder/marc21_linking_section.pl create mode 100644 koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/marc21_linking_section.tt diff --git a/cataloguing/value_builder/marc21_linking_section.pl b/cataloguing/value_builder/marc21_linking_section.pl new file mode 100644 index 0000000..646c9fa --- /dev/null +++ b/cataloguing/value_builder/marc21_linking_section.pl @@ -0,0 +1,409 @@ +#!/usr/bin/perl + +# Copyright Biblibre 2007 - CILEA 2011 +# +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# Koha is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + +use strict; +use warnings; + +use CGI; +use C4::Output; +use C4::Context; +use C4::Search; +use C4::Auth; +use C4::Output; + +use C4::Biblio; +use C4::Koha; +use MARC::Record; +use C4::Branch; +use C4::ItemType; + +sub plugin_parameters { + my ( $dbh, $record, $tagslib, $i, $tabloop ) = @_; + return ""; +} + +sub plugin_javascript { + my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_; + my $function_name = $field_number; + my $res = " + + "; + + return ( $function_name, $res ); +} + +# sub plugin +# +# input arg : +# -- op could be equals to +# * fillinput : +# * do_search : +# + +sub plugin { + my ($input) = @_; + my $dbh = C4::Context->dbh; + my $query = new CGI; + my $op = $query->param('op'); + my $type = $query->param('type'); + my $startfrom = $query->param('startfrom'); + $startfrom = 0 if ( !defined $startfrom ); + my ( $template, $loggedinuser, $cookie ); + my $resultsperpage; + my $searchdesc; + + if ( $op eq "fillinput" ) { + my $biblionumber = $query->param('biblionumber'); + my $index = $query->param('index'); + my $marcrecord; + + # open template + ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { + template_name => + "cataloguing/value_builder/marc21_linking_section.tt", + query => $query, + type => "intranet", + authnotrequired => 0, + flagsrequired => { editcatalogue => '*' }, + debug => 1, + } + ); + + #get marc record + $marcrecord = GetMarcBiblio($biblionumber); + + my $subfield_value_9 = $biblionumber; + my $subfield_value_0 = $biblionumber; + + #my $subfield_value_0; + #$subfield_value_0 = $marcrecord->field('001')->data + # if $marcrecord->field('001'); + my $subfield_value_w; + if ( $marcrecord->field('001') ) { + $subfield_value_w = $marcrecord->field('001')->data; + } + else { + $subfield_value_w = $biblionumber; + } + + my $subfield_value_a; + my $subfield_value_c; + my $subfield_value_d; + my $subfield_value_e; + + my $subfield_value_h; + + my $subfield_value_i; + + my $subfield_value_p; + + my $subfield_value_t; + if ( $marcrecord->field('245') ) { + $subfield_value_t = $marcrecord->title(); + } + + my $subfield_value_u; + my $subfield_value_v; + my $subfield_value_x; + my $subfield_value_y; + my $subfield_value_z; + + $subfield_value_x = $marcrecord->field('022')->subfield("a") + if ( $marcrecord->field('022') ); + $subfield_value_z = $marcrecord->field('020')->subfield("a") + if ( $marcrecord->field('020') ); + + # escape the 's + $subfield_value_9 =~ s/'/\\'/g; + $subfield_value_0 =~ s/'/\\'/g; + $subfield_value_a =~ s/'/\\'/g; + $subfield_value_c =~ s/'/\\'/g; + $subfield_value_d =~ s/'/\\'/g; + $subfield_value_e =~ s/'/\\'/g; + $subfield_value_h =~ s/'/\\'/g; + $subfield_value_i =~ s/'/\\'/g; + $subfield_value_p =~ s/'/\\'/g; + $subfield_value_t =~ s/'/\\'/g; + $subfield_value_u =~ s/'/\\'/g; + $subfield_value_v =~ s/'/\\'/g; + $subfield_value_w =~ s/'/\\'/g; + $subfield_value_x =~ s/'/\\'/g; + $subfield_value_y =~ s/'/\\'/g; + $subfield_value_z =~ s/'/\\'/g; + $template->param( + fillinput => 1, + index => $query->param('index') . "", + biblionumber => $biblionumber ? $biblionumber : "", + subfield_value_9 => "$subfield_value_9", + subfield_value_0 => "$subfield_value_0", + subfield_value_a => "$subfield_value_a", + subfield_value_c => "$subfield_value_c", + subfield_value_d => "$subfield_value_d", + subfield_value_e => "$subfield_value_e", + subfield_value_h => "$subfield_value_h", + subfield_value_i => "$subfield_value_i", + subfield_value_p => "$subfield_value_p", + subfield_value_t => "$subfield_value_t", + subfield_value_u => "$subfield_value_u", + subfield_value_v => "$subfield_value_v", + subfield_value_w => "$subfield_value_w", + subfield_value_x => "$subfield_value_x", + subfield_value_y => "$subfield_value_y", + subfield_value_z => "$subfield_value_z", + ); +############################################################### + } + elsif ( $op eq "do_search" ) { + my $search = $query->param('search'); + my $itype = $query->param('itype'); + my $startfrom = $query->param('startfrom'); + my $resultsperpage = $query->param('resultsperpage') || 20; + my $orderby; + $search = 'kw,wrdl=' . $search . ' and mc-itemtype=' . $itype if $itype; + my ( $errors, $results, $total_hits ) = + SimpleSearch( $search, $startfrom * $resultsperpage, + $resultsperpage ); + if ( defined $errors ) { + $results = []; + } + my $total = @{$results}; + + # warn " biblio count : ".$total; + + ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { + template_name => + "cataloguing/value_builder/marc21_linking_section.tt", + query => $query, + type => 'intranet', + authnotrequired => 0, + debug => 1, + } + ); + + # multi page display gestion + my $displaynext = 0; + my $displayprev = $startfrom; + + if ( ( $total_hits - ( ( $startfrom + 1 ) * ($resultsperpage) ) ) > 0 ) + { + $displaynext = 1; + } + my @arrayresults; + my @field_data = ($search); + for ( my $i = 0 ; $i < $resultsperpage ; $i++ ) { + my $record = MARC::Record::new_from_usmarc( $results->[$i] ); + my $rechash = TransformMarcToKoha( $dbh, $record ); + my $pos; + my $countitems = 1 if ( $rechash->{itemnumber} ); + while ( index( $rechash->{itemnumber}, '|', $pos ) > 0 ) { + $countitems += 1; + $pos = index( $rechash->{itemnumber}, '|', $pos ) + 1; + } + $rechash->{totitem} = $countitems; + my @holdingbranches = split /\|/, $rechash->{holdingbranch}; + my @itemcallnumbers = split /\|/, $rechash->{itemcallnumber}; + my $CN; + for ( my $i = 0 ; $i < @holdingbranches ; $i++ ) { + $CN .= + $holdingbranches[$i] . " ( " . $itemcallnumbers[$i] . " ) |"; + } + $CN =~ s/ \|$//; + $rechash->{CN} = $CN; + push @arrayresults, $rechash; + } + + # for(my $i = 0 ; $i <= $#marclist ; $i++) + # { + # push @field_data, { term => "marclist", val=>$marclist[$i] }; + # push @field_data, { term => "and_or", val=>$and_or[$i] }; + # push @field_data, { term => "excluding", val=>$excluding[$i] }; + # push @field_data, { term => "operator", val=>$operator[$i] }; + # push @field_data, { term => "value", val=>$value[$i] }; + # } + + my @numbers = (); + + if ( $total > $resultsperpage ) { + for ( my $i = 1 ; $i < $total / $resultsperpage + 1 ; $i++ ) { + if ( $i < 16 ) { + my $highlight = 0; + ( $startfrom == ( $i - 1 ) ) && ( $highlight = 1 ); + push @numbers, + { + number => $i, + highlight => $highlight, + searchdata => \@field_data, + startfrom => ( $i - 1 ) + }; + } + } + } + + my $from = $startfrom * $resultsperpage + 1; + my $to; + + if ( $total_hits < $from + $resultsperpage ) { + $to = $total_hits; + } + else { + $to = $from + $resultsperpage; + } + my $defaultview = + 'BiblioDefaultView' . C4::Context->preference('BiblioDefaultView'); + +# my $link="/cgi-bin/koha/cataloguing/value_builder/unimarc4XX.pl?op=do_search&q=$search_desc&resultsperpage=$resultsperpage&startfrom=$startfrom&search=$search"; +# foreach my $sort (@sort_by){ +# $link.="&sort_by=".$sort."&"; +# } +# $template->param( +# pagination_bar => pagination_bar( +# $link, +# getnbpages($hits, $results_per_page), +# $page, +# 'page' +# ), +# ); + $template->param( + result => \@arrayresults, + index => $query->param('index') . "", + startfrom => $startfrom, + displaynext => $displaynext, + displayprev => $displayprev, + resultsperpage => $resultsperpage, + orderby => $orderby, + startfromnext => $startfrom + 1, + startfromprev => $startfrom - 1, + searchdata => \@field_data, + total => $total_hits, + from => $from, + to => $to, + numbers => \@numbers, + search => $search, + $defaultview => 1, + Search => 0 + ); + + } + else { + ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { + template_name => + "cataloguing/value_builder/marc21_linking_section.tt", + query => $query, + type => "intranet", + authnotrequired => 0, + } + ); + + my $sth = $dbh->prepare( + "Select itemtype,description from itemtypes order by description"); + $sth->execute; + my @itemtype; + my %itemtypes; + push @itemtype, ""; + $itemtypes{''} = ""; + while ( my ( $value, $lib ) = $sth->fetchrow_array ) { + push @itemtype, $value; + $itemtypes{$value} = $lib; + } + + my $CGIitemtype = CGI::scrolling_list( + -name => 'value', + -values => \@itemtype, + -labels => \%itemtypes, + -size => 1, + -multiple => 0 + ); + $sth->finish; + + my @branchloop; + my @select_branch; + my %select_branches; + my $branches = GetBranches; + push @select_branch, ""; + $select_branches{''} = ""; + foreach my $thisbranch ( keys %$branches ) { + push @select_branch, $branches->{$thisbranch}->{'branchcode'}; + $select_branches{ $branches->{$thisbranch}->{'branchcode'} } = + $branches->{$thisbranch}->{'branchname'}; + } + my $CGIbranch = CGI::scrolling_list( + -name => 'value', + -values => \@select_branch, + -labels => \%select_branches, + -size => 1, + -multiple => 0 + ); + $sth->finish; + + my $req = $dbh->prepare( +"select distinctrow left(publishercode,45) from biblioitems order by publishercode" + ); + $req->execute; + my @select; + push @select, ""; + while ( my ($value) = $req->fetchrow ) { + push @select, $value; + } + my $CGIpublisher = CGI::scrolling_list( + -name => 'value', + -id => 'publisher', + -values => \@select, + -size => 1, + -multiple => 0 + ); + +# my $sth=$dbh->prepare("select description,itemtype from itemtypes order by description"); +# $sth->execute; +# while (my ($description,$itemtype) = $sth->fetchrow) { +# $classlist.="\n"; +# } +# $sth->finish; + + my @itemtypes = C4::ItemType->all; + + $template->param( #classlist => $classlist, + CGIitemtype => $CGIitemtype, + CGIbranch => $CGIbranch, + CGIPublisher => $CGIpublisher, + itypeloop => \@itemtypes, + index => $query->param('index'), + Search => 1, + ); + } + output_html_with_http_headers $query, $cookie, $template->output; +} + +1; \ No newline at end of file diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/marc21_linking_section.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/marc21_linking_section.tt new file mode 100644 index 0000000..8dfdc76 --- /dev/null +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/marc21_linking_section.tt @@ -0,0 +1,238 @@ +[% INCLUDE 'doc-head-open.inc' %] +Koha › Cataloguing › plugin for links +[% INCLUDE 'doc-head-close.inc' %] +[% IF ( fillinput ) %] + + + + +

MARC21 Plugin to build links between records

+[% ELSE %] + + + + +

Plugin to build links between records

+ [% IF ( Search ) %] + + + + [% ELSE %] + + +

Search results

+
+

[% IF ( displayprev ) %] << Precedente[% END %] + [% FOREACH number IN numbers %] + [% IF ( number.highlight ) %] [% number.number %] + [% ELSE %] [% number.number %] + [% END %] + [% END %] + [% IF ( displaynext ) %] + Prossimo>> + [% END %]

+

+ [% IF ( total ) %]Results [% from %] a [% to %] di [% total %] + [% ELSE %]No results found + [% END %]

+
+ + + + + + [% FOREACH resul IN result %] + [% IF ( resul.title ) %] + + [% IF ( resul.even ) %] + + + + [% END %] + [% END %] +
Concise description 
+ [% ELSE %][% END %] + [% IF ( resul.MARC_ON ) %] + [% resul.title |html %] + [% ELSE %] + [% resul.title |html %] [% END %] +

[% resul.author %] + [% IF ( resul.publishercode ) %]- [% resul.publishercode %][% END %] + [% IF ( resul.place ) %] ; [% resul.place %][% END %] + [% IF ( resul.pages ) %] - [% resul.pages %][% END %] + [% IF ( resul.notes ) %] : [% resul.notes %][% END %] + [% IF ( resul.size ) %] ; [% resul.size %][% END %] +

+
+ [% IF ( resul.biblionumber ) %] + Choose + [% ELSE %] + Clear field + [% END %] +
+
+
+

+ [% IF ( displayprev ) %] + + << Previous + + [% END %] + + [% FOREACH number IN numbers %] + [% IF ( number.highlight ) %] + + [% number.number %] + + [% ELSE %] + + [% number.number %] + + [% END %] + [% END %] + + [% IF ( displaynext ) %] + + Next>> + + [% END %] +

+
+ + + + + [% END %] + +[% END %] +[% INCLUDE 'popup-bottom.inc' %] \ No newline at end of file -- 1.7.10.msysgit.1