From bf1b862180df474c919bdacc1d0038b3f847edec Mon Sep 17 00:00:00 2001 From: tipaul Date: Fri, 11 Oct 2002 14:23:28 +0000 Subject: [PATCH] with this script, it's easy to see which koha-DB fields are not mapped to MARC-DB and map them. --- admin/koha2marclinks.pl | 130 +++++++++++++ .../default/en/parameters/koha2marclinks.tmpl | 182 ++++++++++++++++++ 2 files changed, 312 insertions(+) create mode 100755 admin/koha2marclinks.pl create mode 100644 koha-tmpl/intranet-tmpl/default/en/parameters/koha2marclinks.tmpl diff --git a/admin/koha2marclinks.pl b/admin/koha2marclinks.pl new file mode 100755 index 0000000000..45e0d77c0e --- /dev/null +++ b/admin/koha2marclinks.pl @@ -0,0 +1,130 @@ +#!/usr/bin/perl + + +# Copyright 2000-2002 Katipo Communications +# +# 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., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA + +use strict; +use C4::Output; +use CGI; +use C4::Search; +use C4::Context; +use C4::Biblio; +use HTML::Template; + +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 = gettemplate("parameters/koha2marclinks.tmpl",0); + +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 +} + +my $dbh = C4::Context->dbh; + +################## ADD_FORM ################################## +# called by default. Used to create form to add or modify a record +if ($op eq 'add_form') { + my $data; + my $sth = $dbh->prepare("select tagfield,tagsubfield,liblibrarian as lib,tab from marc_subfield_structure where kohafield=?"); + $sth->execute($tablename.".".$kohafield); + my ($defaulttagfield, $defaulttagsubfield,$defaultliblibrarian) = $sth->fetchrow; + + 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 '$i%'"); + $sth2->execute; + my @marcarray; + push @marcarray," "; + while (my ($field, $tagsubfield, $liblibrarian) = $sth2->fetchrow_array) { + # warn "$field$tagsubfield - $liblibrarian"; + push @marcarray, "$field $tagsubfield - $liblibrarian"; + } + my $marclist = CGI::scrolling_list(-name=>"marc", + -values=> \@marcarray, + -default=>"$defaulttagfield $defaulttagsubfield - $defaultliblibrarian", + -size=>1, + -multiple=>0, + ); + $template->param("marclist$i" => $marclist); + } + $template->param( tablename => $tablename, + 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') { + #----- empty koha field : + $dbh->do("update marc_subfield_structure set kohafield='' where kohafield='$tablename.$kohafield'"); + #---- 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]'"); + print "Content-Type: text/html\n\n"; + exit; + + # END $OP eq ADD_VALIDATE +################## DEFAULT ################################## +} else { # DEFAULT + my $env; + my $sth=$dbh->prepare("Select tagfield,tagsubfield,liblibrarian,kohafield from marc_subfield_structure"); + $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 $sth2=$dbh->prepare("SHOW COLUMNS from $tablename"); + $sth2->execute; + + my $toggle="white"; + my @loop_data = (); + while ((my $field) = $sth2->fetchrow_array) { + if ($toggle eq 'white'){ + $toggle="#ffffcc"; + } else { + $toggle="white"; + } + 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"; + $row_data{bgcolor} = $toggle; + push(@loop_data,\%row_data); + } + $template->param(loop => \@loop_data, + tablename => CGI::scrolling_list(-name=>'tablename', + -values=>['biblio','biblioitems','items'], + -default=>$tablename, + -size=>1, + -multiple=>0 + ) + ); +} #---- END $OP eq DEFAULT + +print "Content-Type: text/html\n\n", $template->output; diff --git a/koha-tmpl/intranet-tmpl/default/en/parameters/koha2marclinks.tmpl b/koha-tmpl/intranet-tmpl/default/en/parameters/koha2marclinks.tmpl new file mode 100644 index 0000000000..02e704ea34 --- /dev/null +++ b/koha-tmpl/intranet-tmpl/default/en/parameters/koha2marclinks.tmpl @@ -0,0 +1,182 @@ + + + + +

+

Choose and validate 1 of the following for .

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + "> + "> + + + +
+ + "> + "> + + + +
+ + "> + "> + + + +
+ + "> + "> + + + +
+ + "> + "> + + + +
+ + "> + "> + + + +
+ + "> + "> + + + +
+ + "> + "> + + + +
+ + "> + "> + + + +
+ + "> + "> + + + +
+

To "unmap", click ==>

+ 		+
+ + "> + "> + + +
+
+ + + + +MARC links +

+
+ + + + + + + + + + + + + + + + + +
koha field ?TagSubfieldLib + +
">edit
+
 + + -- 2.39.5