Bugzilla – Attachment 65543 Details for
Bug 10306
Koha to MARC mappings (Part 1): Allow multiple mappings per kohafield (for say 260/RDA 264)
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 10306: Support for multiple mappings in koha2marclinks
Bug-10306-Support-for-multiple-mappings-in-koha2ma.patch (text/plain), 15.48 KB, created by
Marcel de Rooy
on 2017-08-07 13:08:14 UTC
(
hide
)
Description:
Bug 10306: Support for multiple mappings in koha2marclinks
Filename:
MIME Type:
Creator:
Marcel de Rooy
Created:
2017-08-07 13:08:14 UTC
Size:
15.48 KB
patch
obsolete
>From 55dd9b9c49302182e2cc1f0b2f270a2ab6a4140e Mon Sep 17 00:00:00 2001 >From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> >Date: Mon, 24 Jul 2017 19:09:17 +0200 >Subject: [PATCH] Bug 10306: Support for multiple mappings in koha2marclinks >Content-Type: text/plain; charset=utf-8 > >This actually refactors koha2marclinks.pl in order to support multiple >mappings per kohafield. > >Instead of three separate mapping pages for biblio, biblioitems and items, >the script now lists them together. This gives a complete overview of all >mappings rightaway. Changes are applied immediately across all frameworks. > >Note: This report builds on the assumption that we do not keep mappings per >framework, but consider the Default framework as authoritative. A change >to Default is applied to the other frameworks though to keep them in sync. > >On each line two buttons are provided, Add and Remove, in order to add or >remove an individual mapping. We do no longer provide a separate form with >the names of MARC tags. Since this form is targeted for administrators, >it should be enough to ask for a field tag and subfield code. > >Note: The mappings for biblionumber, biblioitemnumber and itemnumber are >so vital that this form marks them as readonly. It is not recommended to >change them. > >Test plan: >[1] Add a mapping. Verify via Frameworks or mysql command line that the > kohafield is saved to the other frameworks too. >[2] Remove the mapping again. Check Frameworks or mysql cl again. >[3] Test adding a second mapping. For instance map copyrightdate to 260c > and 264c. Check Frameworks or mysql cl again. >--- > admin/koha2marclinks.pl | 181 ++++++++------------- > .../prog/en/modules/admin/koha2marclinks.tt | 124 +++++--------- > 2 files changed, 105 insertions(+), 200 deletions(-) > >diff --git a/admin/koha2marclinks.pl b/admin/koha2marclinks.pl >index d8fd569..e025f84 100755 >--- a/admin/koha2marclinks.pl >+++ b/admin/koha2marclinks.pl >@@ -1,6 +1,7 @@ > #!/usr/bin/perl > > # Copyright 2000-2002 Katipo Communications >+# Copyright 2017 Rijksmuseum > # > # This file is part of Koha. > # >@@ -17,21 +18,18 @@ > # You should have received a copy of the GNU General Public License > # along with Koha; if not, see <http://www.gnu.org/licenses>. > >-use strict; >-use warnings; >-use C4::Output; >-use C4::Auth; >+use Modern::Perl; > use CGI qw ( -utf8 ); >-use C4::Context; >-use C4::Biblio; > >+use Koha::Database; >+use C4::Auth; >+use C4::Biblio; >+use C4::Output; >+use Koha::BiblioFrameworks; >+use Koha::Caches; >+use Koha::MarcSubfieldStructures; > > my $input = new CGI; >-my $tablename = $input->param('tablename'); >-$tablename = "biblio" unless ($tablename); >-my $kohafield = $input->param('kohafield'); >-my $op = $input->param('op'); >-my $script_name = 'koha2marclinks.pl'; > > my ( $template, $borrowernumber, $cookie ) = get_template_and_user ( > { >@@ -44,121 +42,70 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user ( > } > ); > >-if ($op) { >- $template->param( >- script_name => $script_name, >- $op => 1 >- ); # we show only the TMPL_VAR names $op >-} >-else { >- $template->param( >- script_name => $script_name, >- else => 1 >- ); # we show only the TMPL_VAR names $op >- $op = q{}; >-} >- >-my $dbh = C4::Context->dbh; >+my $schema = Koha::Database->new->schema; > my $cache = Koha::Caches->get_instance(); > >-################## ADD_FORM ################################## >-# called by default. Used to create form to add or modify a record >-if ( $op eq 'add_form' ) { >- my $sth = >- $dbh->prepare( >-"select tagfield,tagsubfield,liblibrarian as lib,tab from marc_subfield_structure where kohafield=? AND frameworkcode=''" >- ); >- $sth->execute( $tablename . "." . $kohafield ); >- my ( $defaulttagfield, $defaulttagsubfield, $defaultliblibrarian ) = >- $sth->fetchrow; >+# Update data before showing the form >+my $no_upd; > >- for ( my $i = 0 ; $i <= 9 ; $i++ ) { >- my $sth2 = >- $dbh->prepare( >-"select tagfield,tagsubfield,liblibrarian as lib,tab from marc_subfield_structure where tagfield like ? AND frameworkcode=''" >- ); >- $sth2->execute("$i%"); >- my @marcarray; >- push @marcarray, " "; >- while ( my ( $field, $tagsubfield, $liblibrarian ) = >- $sth2->fetchrow_array ) >- { >- push @marcarray, "$field $tagsubfield - $liblibrarian"; >- } >- my $marclist = { >- values => \@marcarray, >- default => "$defaulttagfield $defaulttagsubfield - $defaultliblibrarian", >- }; >- $template->param( "marclist$i" => $marclist ); >- } >- $template->param( >- tablename => $tablename, >- kohafield => $kohafield >- ); >+if( $input->param('add_field') ) { >+ # add a mapping to all frameworks >+ my ($kohafield, $tag, $sub) = split /,/, $input->param('add_field'), 3; >+ Koha::MarcSubfieldStructures->search({ tagfield => $tag, tagsubfield => $sub })->update({ kohafield => $kohafield }); > >- # END $OP eq ADD_FORM >-################## ADD_VALIDATE ################################## >- # called by add_form, used to insert/modify data in DB >-} >-elsif ( $op eq 'add_validate' ) { >+} elsif( $input->param('remove_field') ) { >+ # remove a mapping from all frameworks >+ my ($tag, $sub) = split /,/, $input->param('remove_field'), 2; >+ Koha::MarcSubfieldStructures->search({ tagfield => $tag, tagsubfield => $sub })->update({ kohafield => undef }); > >- #----- empty koha field : >- $dbh->do( >-"update marc_subfield_structure set kohafield='' where kohafield='$tablename.$kohafield'" >- ); >+} else { >+ $no_upd = 1; >+} > >- #---- reload if not empty >- my @temp = split / /, $input->param('marc'); >- $dbh->do( >-"update marc_subfield_structure set kohafield='$tablename.$kohafield' where tagfield='$temp[0]' and tagsubfield='$temp[1]'" >- ); >- # We could get a list of all frameworks and do them one-by-one, or zap >- # everything. >- $cache->flush_all(); >- print $input->redirect("/cgi-bin/koha/admin/koha2marclinks.pl?tablename=$tablename"); >- exit; >+# Clear the cache when needed >+unless( $no_upd ) { >+ for( qw| default_value_for_mod_marc- MarcSubfieldStructure- | ) { >+ $cache->clear_from_cache($_); >+ } >+} > >- # END $OP eq ADD_VALIDATE >-################## DEFAULT ################################## >+# Build/Show the form >+my $dbix_map = { >+ # Koha to MARC mappings are found in only three tables >+ biblio => 'Biblio', >+ biblioitems => 'Biblioitem', >+ items => 'Item', >+}; >+my @cols; >+foreach my $tbl ( sort keys %{$dbix_map} ) { >+ push @cols, >+ map { "$tbl.$_" } $schema->source( $dbix_map->{$tbl} )->columns; > } >-else { # DEFAULT >- my $sth = >- $dbh->prepare( >-q|select tagfield,tagsubfield,liblibrarian,kohafield from marc_subfield_structure where kohafield is not NULL and kohafield != ''| >- ); >- $sth->execute; >- my %fields; >- while ( ( my $tagfield, my $tagsubfield, my $liblibrarian, my $kohafield ) = >- $sth->fetchrow ) { >- $fields{$kohafield}->{tagfield} = $tagfield; >- $fields{$kohafield}->{tagsubfield} = $tagsubfield; >- $fields{$kohafield}->{liblibrarian} = $liblibrarian; >+my $kohafields = Koha::MarcSubfieldStructures->search({ >+ frameworkcode => q{}, >+ kohafield => { '>', '' }, >+}); >+my @loop_data; >+foreach my $col ( @cols ) { >+ my $found; >+ foreach my $row ( $kohafields->search({ kohafield => $col }) ) { >+ $found = 1; >+ push @loop_data, { >+ kohafield => $col, >+ tagfield => $row->tagfield, >+ tagsubfield => $row->tagsubfield, >+ liblibrarian => $row->liblibrarian, >+ readonly => $col =~ /\.(biblio|biblioitem|item)number$/, >+ }; > } >+ push @loop_data, { >+ kohafield => $col, >+ readonly => $col =~ /\.(biblio|biblioitem|item)number$/, >+ } if !$found; >+} > >- #XXX: This might not work. Maybe should use a DBI call instead of SHOW COLUMNS >- my $sth2 = $dbh->prepare("SHOW COLUMNS from $tablename"); >- $sth2->execute; >+$template->param( >+ loop => \@loop_data, >+); > >- my @loop_data = (); >- while ( ( my $field ) = $sth2->fetchrow_array ) { >- my %row_data; # get a fresh hash for the row data >- $row_data{tagfield} = $fields{ $tablename . "." . $field }->{tagfield}; >- $row_data{tagsubfield} = >- $fields{ $tablename . "." . $field }->{tagsubfield}; >- $row_data{liblibrarian} = >- $fields{ $tablename . "." . $field }->{liblibrarian}; >- $row_data{kohafield} = $field; >- $row_data{edit} = >-"$script_name?op=add_form&tablename=$tablename&kohafield=$field"; >- push( @loop_data, \%row_data ); >- } >- my $tablenames = { >- values => [ 'biblio', 'biblioitems', 'items' ], >- default => $tablename, >- }; >- $template->param( >- loop => \@loop_data, >- tablename => $tablenames, >- ); >-} #---- END $OP eq DEFAULT > output_html_with_http_headers $input, $cookie, $template->output; >diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/koha2marclinks.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/koha2marclinks.tt >index 1cf606a..32061a0 100644 >--- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/koha2marclinks.tt >+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/koha2marclinks.tt >@@ -1,19 +1,27 @@ > [% INCLUDE 'doc-head-open.inc' %] >-<title>Koha › Administration › >-[% IF ( add_form ) %] Koha to MARC mapping › Connect [% tablename %].[% kohafield %] to a MARC subfield[% END %] >-[% IF ( else ) %]Koha to MARC mapping [% tagfield %][% END %]</title> >+<title>Koha › Administration › Koha to MARC mapping</title> > > [% INCLUDE 'doc-head-close.inc' %] > <script type="text/javascript"> > //<![CDATA[ > $(document).ready(function() { >- [% IF tablename.default == 'biblio' %] >- $("#tablename option:first").attr('selected','selected'); >- [% END %] >- $('#tablename').change(function() { >- $('#koha2marc').submit(); >- }); > }); >+ >+function AddFld(kohafield) { >+ var fieldstr = prompt( _("Adding a mapping for: ") + kohafield + ".\n" + _("Please enter field tag and subfield code, separated by a comma. (For control fields: add '@' as subfield code.)\nThe change will be applied immediately.") ); >+ var temp = fieldstr.split(','); >+ if( temp.length == 2 ) { >+ $('#add_field').val( kohafield+','+fieldstr ); >+ $('#koha2marc').submit(); >+ } >+} >+ >+function RemFld(tagfield, subfield ) { >+ if( confirm( _("Mapping will be removed for: ") + tagfield + subfield + ".\n" + _("The change will be applied immediately." ))) { >+ $('#remove_field').val(tagfield+','+subfield); >+ $('#koha2marc').submit(); >+ } >+} > //]]> > </script> > </head> >@@ -22,106 +30,56 @@ $(document).ready(function() { > [% INCLUDE 'header.inc' %] > [% INCLUDE 'prefs-admin-search.inc' %] > >-<div id="breadcrumbs"><a href="/cgi-bin/koha/mainpage.pl">Home</a> › <a href="/cgi-bin/koha/admin/admin-home.pl">Administration</a> › [% IF ( add_form ) %] <a href="/cgi-bin/koha/admin/koha2marclinks.pl">Koha to MARC Mapping</a> › Connect [% tablename %].[% kohafield %] to a MARC subfield[% END %] >-[% IF ( else ) %]Koha to MARC mapping[% tagfield %][% END %]</div> >-[% IF ( add_form ) %] >-<div id="doc" class="yui-t7"> >+<div id="breadcrumbs"><a href="/cgi-bin/koha/mainpage.pl">Home</a> › <a href="/cgi-bin/koha/admin/admin-home.pl">Administration</a> › <a href="/cgi-bin/koha/admin/koha2marclinks.pl">Koha to MARC Mapping</a> ›</div> > >-<div id="bd"> >- <div id="yui-main"> >- <div class="yui-g"> >-[% ELSE %] > <div id="doc3" class="yui-t2"> > > <div id="bd"> > <div id="yui-main"> > <div class="yui-b"> >-[% END %] >- >-[% IF ( add_form ) %] >-<h1>Connect [% tablename %].[% kohafield %] to a MARC subfield</h1> >- <p>Choose and validate 1 MARC subfield for <strong>[% tablename %].[% kohafield %]</strong>.</p> >- <p><b>Note: </b>All frameworks will be modified which is usually what you need, but you have been warned.</p> >- <fieldset class="rows"> >- <ol> >- [% FOR i IN [ 0 .. 9 ] %] >- [% marclist = "marclist$i" %] >- <li> >- <form action="[% script_name %]" method="post"> >- <input type="hidden" name="op" value="add_validate" /> >- <input type="hidden" name="tablename" value="[% tablename %]" /> >- <input type="hidden" name="kohafield" value="[% kohafield %]" /> >- <label>[% i %]00s</label> >- <select name="marc" id="marc" size="1" width="570" style="width: 570px;"> >- [% FOREACH value IN $marclist.values %] >- [% IF ( value == $marclist.default ) %] >- <option value="[% value %]" selected="selected">[% value %]</option> >- [% ELSE %] >- <option value="[% value %]">[% value %]</option> >- [% END %] >- [% END %] >- </select> >- <input type="submit" value="OK" /> >- </form> >- </li> >- [% END %] >- </ol> >- </fieldset> >- <fieldset class="action"> >- <form action="[% script_name %]" name="Aform" method="post"> >- <input type="hidden" name="op" value="add_validate" /> >- <input type="hidden" name="tablename" value="[% tablename %]" /> >- <input type="hidden" name="kohafield" value="[% kohafield %]" /> >- <input type="hidden" name="choice" value="" /> >- <input type="submit" value="Click to "Unmap"" /> >- </form> >- <a class="cancel" href="/cgi-bin/koha/admin/koha2marclinks.pl">Cancel</a> >- </fieldset> >-[% END %] >- > >-[% IF ( else ) %] >+<h1>Koha to MARC mapping</h1> >+<br/> >+<form action="/cgi-bin/koha/admin/koha2marclinks.pl" method="post" id="koha2marc"> > >-<h1>Koha to MARC mapping [% tagfield %]</h1> >-<form action="[% script_name %]" method="post" id="koha2marc"> >-<p> >- <select name="tablename" id="tablename" size="1"> >- [% FOREACH value IN tablename.values %] >- [% IF ( value == tablename.default ) %] >- <option value="[% value %]" selected="selected">[% value %]</option> >- [% ELSE %] >- <option value="[% value %]">[% value %]</option> >- [% END %] >- [% END %] >- </select> >-</p> >-</form> >-<table> >-<tr> >+<table id="kohafields"> >+<thead><tr> > <th>Koha field</th> > <th>Tag</th> > <th>Subfield</th> > <th>Lib</th> > <th> </th> >-</tr> >+</tr></thead> >+<tbody> > [% FOREACH loo IN loop %] > <tr> >- <td><a href="[% loo.edit %]">[% loo.kohafield %]</a></td> >+ <td>[% loo.kohafield %]</td> > <td>[% loo.tagfield %]</td> > <td>[% loo.tagsubfield %]</td> > <td>[% loo.liblibrarian %]</td> >- <td><a href="[% loo.edit %]" class="btn btn-default btn-xs"><i class="fa fa-pencil"></i> Edit</a></td> >+ <td> >+ [% IF !loo.readonly %] >+ <a onclick="AddFld('[% loo.kohafield %]');" class="btn btn-default btn-xs">Add</a> >+ [% IF loo.tagfield %] <a onclick="RemFld('[% loo.tagfield %]','[% loo.tagsubfield %]');" class="btn btn-default btn-xs">Remove</a> [% END %] >+ [% END %] >+ </td> >+ </td> > </tr> > [% END %] >+</tbody> > </table> >-[% END %] >+ >+<input id="remove_field" name="remove_field" type="hidden" value=""/> >+<input id="add_field" name="add_field" type="hidden" value=""/> >+ >+</form> > > </div> > </div> >-[% UNLESS ( add_form ) %] >+ > <div class="yui-b"> > [% INCLUDE 'admin-menu.inc' %] > </div> >-[% END %] >+ > </div> > [% INCLUDE 'intranet-bottom.inc' %] >-- >2.1.4
<b>You cannot view the attachment while viewing its details because your browser does not support IFRAMEs. <a href="attachment.cgi?id=65543">View the attachment on a separate page</a>.</b>
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 10306
:
65539
|
65540
|
65541
|
65542
|
65543
|
65544
|
65545
|
65948
|
65949
|
65950
|
65951
|
65952
|
65953
|
66134
|
66135
|
66137
|
66138
|
66139
|
66140
|
66141
|
66142
|
66327
|
66328
|
66329
|
66330
|
66331
|
66332
|
66405
|
66547
|
66548
|
67501
|
67502
|
67503
|
67504
|
67505
|
67506
|
67507
|
68382
|
68766
|
68767
|
68768
|
68769
|
68770
|
68771
|
68772
|
68773