Attachment 3499 Details for Bug 5987 – Patch to add new files

[patch] Patch to add new files

0001-Bug-5987-Add-cl-scripts-to-touch-all-biblios-and-it.patch (text/plain), 8.02 KB, created by Ian Walls on 2011-03-29 13:42:48 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Ian Walls

Created: 2011-03-29 13:42:48 UTC

Size: 8.02 KB

patch

obsolete

>From 3e7690f8f418feed04215083f6f49b5ddb15b2dd Mon Sep 17 00:00:00 2001
>From: Jared Camins-Esakov <jcamins@bywatersolutions.com>
>Date: Tue, 29 Mar 2011 09:33:03 -0400
>Subject: [PATCH] Bug 5987: Add cl scripts to touch all biblios and items
>Content-Type: text/plain; charset="utf-8"
>
>Add scripts that call ModBiblio and ModItem on all or some of the records in a
>given catalog. For use when an upgrade changes the behavior of ModBiblio or
>ModItem, and the change needs to be retroactively applied to records already in
>the system. Usage is as follows:
>misc/maintenance/touch_all_[biblios|items].pl [-v] [--where=STRING]
>
>When invoked with a --where argument, the scripts will only modify those biblios
>or items that match.
>
>Signed-off-by: Ian Walls <ian.walls@bywatersolutions.com>
>---
> misc/maintenance/touch_all_biblios.pl |  139 +++++++++++++++++++++++++++++++++
> misc/maintenance/touch_all_items.pl   |  138 ++++++++++++++++++++++++++++++++
> 2 files changed, 277 insertions(+), 0 deletions(-)
> create mode 100755 misc/maintenance/touch_all_biblios.pl
> create mode 100755 misc/maintenance/touch_all_items.pl
>
>diff --git a/misc/maintenance/touch_all_biblios.pl b/misc/maintenance/touch_all_biblios.pl
>new file mode 100755
>index 0000000..71b0e44
>--- /dev/null
>+++ b/misc/maintenance/touch_all_biblios.pl
>@@ -0,0 +1,139 @@
>+#!/usr/bin/perl
>+#
>+# Copyright (C) 2011 ByWater Solutions
>+#
>+# 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;
>+BEGIN {
>+    # find Koha's Perl modules
>+    # test carefully before changing this
>+    use FindBin;
>+    eval { require "$FindBin::Bin/../kohalib.pl" };
>+}
>+
>+# possible modules to use
>+use Getopt::Long;
>+use C4::Context;
>+use C4::Biblio;
>+use Pod::Usage;
>+
>+
>+sub usage {
>+    pod2usage( -verbose => 2 );
>+    exit;
>+}
>+
>+# Database handle
>+my $dbh = C4::Context->dbh;
>+
>+# Benchmarking variables
>+my $startime = time();
>+my $goodcount = 0;
>+my $badcount = 0;
>+my $totalcount = 0;
>+
>+# Options
>+my $verbose;
>+my $whereclause = '';
>+my $help;
>+my $outfile;
>+
>+GetOptions(
>+  'o|output:s' => \$outfile,
>+  'v' => \$verbose,
>+  'where:s' => \$whereclause,
>+  'help|h'   => \$help,
>+);
>+
>+usage() if $help;
>+
>+if ($whereclause) {
>+   $whereclause = "WHERE $whereclause";
>+}
>+
>+# output log or STDOUT
>+if (defined $outfile) {
>+   open (OUT, ">$outfile") || die ("Cannot open output file");
>+} else {
>+   open(OUT, ">&STDOUT") || die ("Couldn't duplicate STDOUT: $!");
>+}
>+
>+my $sth1 = $dbh->prepare("SELECT biblionumber, frameworkcode FROM biblio $whereclause");
>+$sth1->execute();
>+
>+# fetch info from the search
>+while (my ($biblionumber, $frameworkcode) = $sth1->fetchrow_array){
>+  my $record = GetMarcBiblio($biblionumber);
>+ 
>+  my $modok = ModBiblio($record, $biblionumber, $frameworkcode);
>+
>+  if ($modok) {
>+     $goodcount++;
>+     print OUT "Touched biblio $biblionumber\n" if (defined $verbose);
>+  } else {
>+     $badcount++;
>+     print OUT "ERROR WITH BIBLIO $biblionumber !!!!\n";
>+  }
>+
>+  $totalcount++;
>+
>+}
>+
>+# Benchmarking
>+my $endtime = time();
>+my $time = $endtime-$startime;
>+my $accuracy = ($goodcount / $totalcount) * 100; # this is a percentage
>+my $averagetime = 0;
>+unless ($time == 0) { $averagetime = $totalcount / $time; };
>+print "Good: $goodcount, Bad: $badcount (of $totalcount) in $time seconds\n";
>+printf "Accuracy: %.2f%%\nAverage time per record: %.6f seconds\n", $accuracy, $averagetime if (defined $verbose);
>+
>+=head1 NAME
>+
>+touch_all_biblios.pl
>+
>+=head1 SYNOPSIS
>+
>+  touch_all_biblios.pl
>+  touch_all_biblios.pl -v
>+  touch_all_biblios.pl --where=STRING
>+
>+=head1 DESCRIPTION
>+
>+When changes are made to ModBiblio (or the routines that are called by those),
>+it is sometimes necessary to run ModBiblio on all or some records in the catalog
>+when upgrading. This script does this.
>+
>+=over 8
>+
>+=item B<--help>
>+
>+Prints this help
>+
>+=item B<-v>
>+
>+Provide verbose log information.
>+
>+=item B<--where>
>+
>+Limits the search with a user-specified WHERE clause.
>+
>+=back
>+
>+=cut
>+
>diff --git a/misc/maintenance/touch_all_items.pl b/misc/maintenance/touch_all_items.pl
>new file mode 100755
>index 0000000..d10d0b2
>--- /dev/null
>+++ b/misc/maintenance/touch_all_items.pl
>@@ -0,0 +1,138 @@
>+#!/usr/bin/perl
>+#
>+# Copyright (C) 2011 ByWater Solutions
>+#
>+# 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;
>+BEGIN {
>+    # find Koha's Perl modules
>+    # test carefully before changing this
>+    use FindBin;
>+    eval { require "$FindBin::Bin/../kohalib.pl" };
>+}
>+
>+# possible modules to use
>+use Getopt::Long;
>+use C4::Context;
>+use C4::Items;
>+use Pod::Usage;
>+
>+
>+sub usage {
>+    pod2usage( -verbose => 2 );
>+    exit;
>+}
>+
>+# Database handle
>+my $dbh = C4::Context->dbh;
>+
>+# Benchmarking variables
>+my $startime = time();
>+my $goodcount = 0;
>+my $badcount = 0;
>+my $totalcount = 0;
>+
>+# Options
>+my $verbose;
>+my $whereclause = '';
>+my $help;
>+my $outfile;
>+
>+GetOptions(
>+  'o|output:s' => \$outfile,
>+  'v' => \$verbose,
>+  'where:s' => \$whereclause,
>+  'help|h'   => \$help,
>+);
>+
>+usage() if $help;
>+
>+if ($whereclause) {
>+   $whereclause = "WHERE $whereclause";
>+}
>+
>+# output log or STDOUT
>+if (defined $outfile) {
>+   open (OUT, ">$outfile") || die ("Cannot open output file");
>+} else {
>+   open(OUT, ">&STDOUT") || die ("Couldn't duplicate STDOUT: $!");
>+}
>+
>+my $sth_fetch = $dbh->prepare("SELECT biblionumber, itemnumber, itemcallnumber FROM items $whereclause");
>+$sth_fetch->execute();
>+
>+# fetch info from the search
>+while (my ($biblionumber, $itemnumber, $itemcallnumber) = $sth_fetch->fetchrow_array){
>+   
>+  my $modok = ModItem({itemcallnumber => $itemcallnumber}, $biblionumber, $itemnumber);
>+
>+  if ($modok) {
>+     $goodcount++;
>+     print OUT "Touched item $itemnumber\n" if (defined $verbose);
>+  } else {
>+     $badcount++;
>+     print OUT "ERROR WITH ITEM $itemnumber !!!!\n";
>+  }
>+
>+  $totalcount++;
>+
>+}
>+
>+# Benchmarking
>+my $endtime = time();
>+my $time = $endtime-$startime;
>+my $accuracy = ($goodcount / $totalcount) * 100; # this is a percentage
>+my $averagetime = 0;
>+unless ($time == 0) {$averagetime = $totalcount / $time;};
>+print "Good: $goodcount, Bad: $badcount (of $totalcount) in $time seconds\n";
>+printf "Accuracy: %.2f%%\nAverage time per record: %.6f seconds\n", $accuracy, $averagetime if (defined $verbose);
>+
>+=head1 NAME
>+
>+touch_all_items.pl
>+
>+=head1 SYNOPSIS
>+
>+  touch_all_items.pl
>+  touch_all_items.pl -v
>+  touch_all_items.pl --where=STRING
>+
>+=head1 DESCRIPTION
>+
>+When changes are made to ModItem (or the routines that are called by it), it is
>+sometimes necessary to run ModItem on all or some records in the catalog when
>+upgrading. This script does that.
>+
>+=over 8
>+
>+=item B<--help>
>+
>+Prints this help
>+
>+=item B<-v>
>+
>+Provide verbose log information.
>+
>+=item B<--where>
>+
>+Limits the search with a user-specified WHERE clause.
>+
>+=back
>+
>+=cut
>+
>-- 
>1.5.6.5
>

Actions: View | Diff | Splinter Review

Attachments on bug 5987: 3499