From 0d4c1ac132bc60b2d663fd4b367ee552438e5f33 Mon Sep 17 00:00:00 2001 From: Zeno Tajoli <tajoli@cilea.it> Date: Fri, 3 Aug 2012 15:03:59 +0200 Subject: [PATCH] Bug 8185: plugin for linking records in MARC21 Content-Type: text/plain; charset="UTF-8" This plugin 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. Signed-off-by: Mirko Tietgen <mirko@abunchofthings.net> Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com> --- .../value_builder/marc21_linking_section.pl | 409 ++++++++++++++++++++ .../value_builder/marc21_linking_section.tt | 238 ++++++++++++ 2 files changed, 647 insertions(+), 0 deletions(-) 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..275d3a5 --- /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 = " + <script type='text/javascript'> + function Focus$function_name(subfield_managed) { + return 1; + } + + function Blur$function_name(subfield_managed) { + return 1; + } + + function Clic$function_name(i) { + defaultvalue=document.getElementById(\"$field_number\").value; + window.open(\"/cgi-bin/koha/cataloguing/plugin_launcher.pl?plugin_name=marc21_linking_section.pl&index=\" + i + \"&result=\"+defaultvalue,\"marc21_field_7\"+i+\"\",'width=900,height=700,toolbar=false,scrollbars=yes'); + + } + </script> + "; + + 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.="<option value=\"$itemtype\">$description</option>\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..be688d2 --- /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' %] +<title>Koha › Cataloguing › plugin for links</title> +[% INCLUDE 'doc-head-close.inc' %] +[% IF ( fillinput ) %] + <script language="javascript" type="text/javascript"> + + function go() { + + var index_start = "[% index %]"; + var whichfield; + try { + whichfield = opener.opener.document.getElementById(index_start); + } catch(e) { + return; + } + + // browse all its subfields + + var subfields = whichfield.parentNode.parentNode.getElementsByTagName('input'); + + var re = /^tag_\d*_code_/; + for(var i=0, len = subfields.length ; i< len ; i++) { + if(subfields[i].getAttribute('name').match(re)){ // it s a subfield + var code = subfields[i]; + var subfield = subfields[i+1]; + + if(code.value == '9'){ + subfield.value = "[% subfield_value_9 %]"; + } + if(code.value == '0'){ + subfield.value = "[% subfield_value_0 %]"; + } + if(code.value == 'a'){ + subfield.value = "[% subfield_value_a %]"; + } + if(code.value == 'c'){ + subfield.value = "[% subfield_value_c %]"; + } + if(code.value == 'd'){ + subfield.value = "[% subfield_value_d %]"; + } + if(code.value == 'e'){ + subfield.value = "[% subfield_value_e %]"; + } + if(code.value == 'h'){ + subfield.value = "[% subfield_value_h %]"; + } + if(code.value == 'i'){ + subfield.value = "[% subfield_value_i %]"; + } + if(code.value == 'p'){ + subfield.value = "[% subfield_value_p %]"; + } + if(code.value == 't'){ + subfield.value = "[% subfield_value_t %]"; + } + if(code.value == 'u'){ + subfield.value = "[% subfield_value_u %]"; + } + if(code.value == 'v'){ + subfield.value = "[% subfield_value_v %]"; + } + if(code.value == 'w'){ + subfield.value = "[% subfield_value_w %]"; + } + if(code.value == 'x'){ + subfield.value = "[% subfield_value_x %]"; + } + if(code.value == 'y'){ + subfield.value = "[% subfield_value_y %]"; + } + if(code.value == 'z'){ + subfield.value = "[% subfield_value_z %]"; + } + } + } + return false; + } + + window.onload = go(); + opener.close(); + window.close(); + //]]> +</script> + +</head> +<body style="padding:1em;"> +<h3>MARC21 Plugin to build links between records</h3> +[% ELSE %] + <script type="text/javascript"> +//<![CDATA[ +// document.getElementById('searchbox').focus(); + + function report(value2report) { + if (document.f_pop.result.value.length==0) { + document.f_pop.result.value = value2report; + } else { + document.f_pop.result.value = document.f_pop.result.value+'|'+value2report; + } + return true; + } + function finish() { + opener.document.f.field_value[[% index %]].value= document.f_pop.result.value; + self.close(); + return false; + } + //]]> +</script> + +</head> +<body style="padding:1em;"> +<h3>Plugin to build links between records</h3> + [% IF ( Search ) %] + <div id="MARC21_Linking_section_search"> + <h2> Cerca su </h2> + <form name="f" method="post" action="/cgi-bin/koha/cataloguing/plugin_launcher.pl?plugin_name=marc21_linking_section.pl"> + + <p> + <input type="hidden" name="plugin_name" value="marc21_linking_section.pl" /> + <input type="hidden" name="index" value="[% index %]" /> + <input type="hidden" name="result" value="marc12 field 7 [% index %]" /> + <input type="hidden" name="op" value="do_search" /> + <label class="label100" for="searchbox">Any word</label> + <input type="text" name="search" id="searchbox" size="35" /><br /> + <label for="itypeloop">Item type</label> + <select name="itype" id="itypeloop"> + <option value="">All Item Types</option> + [% FOREACH itypeloo IN itypeloop %] + [% IF ( itypeloo.selected ) %] + <option value="[% itypeloo.itemtype %]" selected="selected">[% itypeloo.description %]</option> + [% ELSE %] + <option value="[% itypeloo.itemtype %]">[% itypeloo.description %]</option> + [% END %] + [% END %] + </select> + </p> + <p> + <input type="submit" value="Start search" /> + </p> + + </div> + </form> + + [% ELSE %] + + + <h2>Search results</h2> + <div id="MARC21_Linking_section__resultnumber"> + <p>[% IF ( displayprev ) %] <a class="resultnumber" href="/cgi-bin/koha/cataloguing/plugin_launcher.pl?plugin_name=marc21_linking_section.pl&index=[% index %]&startfrom=[% startfromprev %]&search=[% search %]&resultsperpage=[% resultsperpage %]&type=intranet&op=do_search"><< Precedente</a>[% END %] + [% FOREACH number IN numbers %] + [% IF ( number.highlight ) %] <span class="highlight">[% number.number %]</span> + [% ELSE %] <a class="resultnumber" href="/cgi-bin/koha/cataloguing/plugin_launcher.pl?plugin_name=marc21_linking_section.pl&index=[% index %]&startfrom=[% number.startfrom %]&search=[% number.search |url %]&resultsperpage=[% number.resultsperpage %]&type=intranet&op=do_search">[% number.number %]</a> + [% END %] + [% END %] + [% IF ( displaynext ) %] + <a class="resultnumber" href="/cgi-bin/koha/cataloguing/plugin_launcher.pl?plugin_name=marc21_linking_section.pl&index=[% index %]&startfrom=[% startfromnext %]&search=[% search %]&resultsperpage=[% resultsperpage %]&type=intranet&op=do_search">Prossimo>></a> + [% END %]</p> + <p class="resultcount"> + [% IF ( total ) %]Results [% from %] a [% to %] di [% total %] + [% ELSE %]No results found + [% END %]</p></div> + <div id="resultlist"> + <table> + <tr> + <th>Concise description</th> + <th> </th> + </tr> + [% FOREACH resul IN result %] + [% IF ( resul.title ) %] + <tr> + [% IF ( resul.even ) %]<td class="hilighted"> + [% ELSE %]<td>[% END %] + [% IF ( resul.MARC_ON ) %] + <a_class="transparent resultlist" href="/cgi-bin/koha/MARCdetail.pl?biblionumber=[% resul.biblionumber |url %]">[% resul.title |html %]</a> + [% ELSE %] + <a_class="transparent resultlist" href="/cgi-bin/koha/catalogue/detail.pl?biblionumber=[% resul.biblionumber |url %]">[% resul.title |html %]</a> [% END %] + <p>[% 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 %] + </p> + </td> + + <td> + [% IF ( resul.biblionumber ) %] + <a href="javascript:jumpfull('/cgi-bin/koha/cataloguing/plugin_launcher.pl?plugin_name=marc21_linking_section.pl&index=[% index %]&biblionumber=[% resul.biblionumber %]&type=intranet&op=fillinput')">Choose</a> + [% ELSE %] + <a href="javascript:jumpfull('/cgi-bin/koha/cataloguing/plugin_launcher.pl?plugin_name=marc21_linking_section.pl&index=[% index %]&type=intranet&op=fillinput')">Clear field</a> + [% END %] + </td> + </tr> + [% END %] + [% END %] + </table> + </div> + <div id="resultnumber"> + <p> + [% IF ( displayprev ) %] + <a class="resultnumber" href="/cgi-bin/koha/cataloguing/plugin_launcher.pl?plugin_name=marc21_linking_section.pl&amp;index=[% index %]&amp;startfrom=[% startfromprev %]&amp;search=[% search |url %]&amp;resultsperpage=[% resultsperpage %]&amp;type=intranet&amp;op=do_search"> + << Previous + </a> + [% END %] + + [% FOREACH number IN numbers %] + [% IF ( number.highlight ) %] + <span class="highlight"> + [% number.number %] + </span> + [% ELSE %] + <a class="resultnumber" href="/cgi-bin/koha/cataloguing/plugin_launcher.pl?plugin_name=marc21_linking_section.pl&index=[% index %]&startfrom=[% number.startfrom %]&search=[% number.search %]&resultsperpage=[% number.resultsperpage %]&type=intranet&op=do_search"> + [% number.number %] + </a> + [% END %] + [% END %] + + [% IF ( displaynext ) %] + <a class="resultnumber" href="/cgi-bin/koha/cataloguing/plugin_launcher.pl?plugin_name=marc21_linking_section.pl&index=[% index %]&startfrom=[% startfromnext %]&search=[% search %]&resultsperpage=[% resultsperpage %]&type=intranet&op=do_search"> + Next>> + </a> + [% END %] + </p> + </div> + +<script type="text/javascript"> +//<![CDATA[ + function jumpfull(page){ + window.open(page,'','fullscreen,scrollbars'); + } +//]]> +</script> + + + [% END %] + +[% END %] +[% INCLUDE 'popup-bottom.inc' %] \ No newline at end of file -- 1.7.2.5