From 6d8869e3b0e54456b23913e84bd701d3beab4b10 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Thu, 25 Aug 2016 14:46:21 +0100
Subject: [PATCH] Bug 17197: Remove misc/batchupdateISBNs.pl

This script has not been updated for ages and is UNIMARC specific.
Since I am working on bug 17196 to move marcxml out of biblioitems
table, I'd like not to rewrite unused scripts (and lost my time...)
So if someone complains later, I will rewrite it on top of bug 17196.

Signed-off-by: Owen Leonard <oleonard@myacpl.org>

Signed-off-by: Katrin Fischer  <katrin.fischer@bsz-bw.de>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
---
 misc/batchupdateISBNs.pl | 141 ---------------------------------------
 1 file changed, 141 deletions(-)
 delete mode 100755 misc/batchupdateISBNs.pl

diff --git a/misc/batchupdateISBNs.pl b/misc/batchupdateISBNs.pl
deleted file mode 100755
index f3108590bf..0000000000
--- a/misc/batchupdateISBNs.pl
+++ /dev/null
@@ -1,141 +0,0 @@
-#!/usr/bin/perl
-
-# 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 3 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, see <http://www.gnu.org/licenses>.
-
-
-
-=head1 batchupdateISBNs.pl 
-
-    This script batch updates ISBN fields
-
-=cut
-
-use strict;
-#use warnings; FIXME - Bug 2505
-BEGIN {
-    # find Koha's Perl modules
-    # test carefully before changing this
-    use FindBin;
-    eval { require "$FindBin::Bin/kohalib.pl" };
-}
-use C4::Context;
-use MARC::File::XML;
-use MARC::Record;
-use Getopt::Long;
-
-my ( $no_marcxml, $no_isbn, $help) = (0,0,0);
-
-GetOptions(
-    'noisbn'    => \$no_isbn,
-    'noxml'     => \$no_marcxml,
-    'h'         => \$help,
-    'help'      => \$help,
-);
-
-
-$| = 1;
-my $dbh   = C4::Context->dbh;
-
-if($help){
-    print qq(
-        Option :
-            \t-h        show this help
-            \t-noisbn   don't remove '-' in biblioitems.isbn
-            \t-noxml    don't remove '-' in biblioitems.marcxml in field 010a
-            \n\n 
-    );
-    exit;
-}
-
-my $cpt_isbn = 0;
-if(not $no_isbn){
-
-    my $query_isbn = "
-        SELECT biblioitemnumber,isbn FROM biblioitems WHERE isbn IS NOT NULL ORDER BY biblioitemnumber
-    ";
-
-    my $update_isbn = "
-        UPDATE biblioitems SET isbn=? WHERE biblioitemnumber = ?
-    ";
-
-    my $sth = $dbh->prepare($query_isbn);
-    $sth->execute;
-
-    while (my $data = $sth->fetchrow_arrayref){
-        my $biblioitemnumber = $data->[0];
-        print "\rremoving '-' on isbn for biblioitemnumber $biblioitemnumber";
-        
-        # suppression des tirets de l'isbn
-        my $isbn    = $data->[1];
-        if($isbn){
-            $isbn =~ s/-//g;
-            
-            #update 
-            my $sth = $dbh->prepare($update_isbn);
-            $sth->execute($isbn,$biblioitemnumber);
-        }
-        $cpt_isbn++;
-    }
-    print "$cpt_isbn updated";
-}
-
-if(not $no_marcxml){
-    
-    my $query_marcxml = "
-        SELECT biblioitemnumber,marcxml FROM biblioitems WHERE isbn IS NOT NULL ORDER BY biblioitemnumber
-    ";
-    
-    
-    my $update_marcxml = "
-        UPDATE biblioitems SET marcxml=? WHERE biblioitemnumber = ? 
-    ";
-
-    my $sth = $dbh->prepare($query_marcxml);
-    $sth->execute;
-    
-    while (my $data = $sth->fetchrow_arrayref){
-        
-       my $biblioitemnumber = $data->[0];
-       print "\rremoving '-' on marcxml for biblioitemnumber $biblioitemnumber";
-        
-        # suppression des tirets de l'isbn dans la notice
-        my $marcxml = $data->[1];
-        
-        eval{
-            my $record = MARC::Record->new_from_xml($marcxml,'UTF-8','UNIMARC');
-            my @field = $record->field('010');
-            my $flag = 0;
-	    foreach my $field (@field){
-                my $subfield = $field->subfield('a');
-                if($subfield){
-                    my $isbn = $subfield;
-                    $isbn =~ s/-//g;
-                    $field->update('a' => $isbn);
-                    $flag = 1;
-                }
-	    }
-            if($flag){
-                $marcxml = $record->as_xml_record('UNIMARC');
-                # Update
-                my $sth = $dbh->prepare($update_marcxml);
-                $sth->execute($marcxml,$biblioitemnumber);
-            }
-        };
-        if($@){
-            print "\n /!\\ pb getting $biblioitemnumber : $@";
-        }
-    }
-}
-- 
2.39.5