Attachment 54874 Details for Bug 17197 – Bug 17197: Remove misc/batchupdateISBNs.pl

[patch] Bug 17197: Remove misc/batchupdateISBNs.pl

Bug-17197-Remove-miscbatchupdateISBNspl.patch (text/plain), 4.67 KB, created by Jonathan Druart on 2016-08-25 13:47:15 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Jonathan Druart

Created: 2016-08-25 13:47:15 UTC

Size: 4.67 KB

patch

obsolete

>From 9beb03d44712c50a13e192e7f840305cd81fa22f 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.
>---
> 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 f310859..0000000
>--- 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.8.1

Actions: View | Diff | Splinter Review

Attachments on bug 17197: 54874 | 55436 | 55478