Attachment 23134 Details for Bug 11278 – Bug 11278: Followup for customize command line parameter

[patch] Bug 11278: Followup for customize command line parameter

Bug-11278-Followup-for-customize-command-line-para.patch (text/plain), 3.67 KB, created by Marcel de Rooy on 2013-11-25 13:52:14 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Marcel de Rooy

Created: 2013-11-25 13:52:14 UTC

Size: 3.67 KB

patch

obsolete

>From ad5095c3dff3d08969a7ff4a8a06c0856f0ba87f Mon Sep 17 00:00:00 2001
>From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
>Date: Mon, 25 Nov 2013 14:24:42 +0100
>Subject: [PATCH] Bug 11278: Followup for customize command line parameter
>Content-Type: text/plain; charset=utf-8
>
>The initial patch for this bug did not include a specific command line
>option for customization. If a module LocalChanges.pm existed, it would
>be used without asking.
>This patch adds a command line option enabling the customization option
>and offering the extra possibility of using another module name. If no file
>name is passed, we default to LocalChanges.
>Without the -custom option, behavior is as it was.
>Also some POD lines are added to document the feature.
>
>Test plan:
>[1] Make a LocalChanges.pm in migration_tools. Verify that it is not used,
>    if you do not enable the -cust parameter.
>[2] Run the script again with -cust. Verify that it is called now.
>[3] Copy LocalChanges.pm to Whatever.pm. Make some change. Run with
>    -cust Whatever and verify that the new module is used.
>[4] Copy Whatever.pm to another dir, make some change. Run with -cust and the
>    full name. Verify that the latest change was used.
>[5] Run without any option. Check the pod documentation.
>---
> misc/migration_tools/bulkmarcimport.pl |   33 +++++++++++++++++++++++++++----
> 1 files changed, 28 insertions(+), 5 deletions(-)
>
>diff --git a/misc/migration_tools/bulkmarcimport.pl b/misc/migration_tools/bulkmarcimport.pl
>index 13de020..43b06a2 100755
>--- a/misc/migration_tools/bulkmarcimport.pl
>+++ b/misc/migration_tools/bulkmarcimport.pl
>@@ -31,11 +31,6 @@ use Getopt::Long;
> use IO::File;
> use Pod::Usage;
> 
>-my $localcust= $FindBin::Bin.'/LocalChanges.pm';
>-$localcust= -e $localcust? $localcust: undef;
>-require $localcust if $localcust;
>-$localcust=\&customize if $localcust;
>-
> use open qw( :std :encoding(UTF-8) );
> binmode( STDOUT, ":encoding(UTF-8)" );
> my ( $input_marc_file, $number, $offset) = ('',0,0);
>@@ -44,6 +39,7 @@ my ( $insert, $filters, $update, $all, $yamlfile, $authtypes );
> my $cleanisbn = 1;
> my ($sourcetag,$sourcesubfield,$idmapfl, $dedup_barcode);
> my $framework = '';
>+my $localcust;
> 
> $|=1;
> 
>@@ -78,6 +74,7 @@ GetOptions(
>     'yaml:s'        => \$yamlfile,
>     'dedupbarcode' => \$dedup_barcode,
>     'framework=s' => \$framework,
>+    'custom:s'    => \$localcust,
> );
> $biblios ||= !$authorities;
> $insert  ||= !$update;
>@@ -92,6 +89,24 @@ if ($version || ($input_marc_file eq '')) {
>     exit;
> }
> 
>+if(defined $localcust) { #local customize module
>+    if(!-e $localcust) {
>+        $localcust= $localcust||'LocalChanges'; #default name
>+        $localcust=~ s/^.*\/([^\/]+)$/$1/; #extract file name only
>+        $localcust=~ s/\.pm$//;           #remove extension
>+        my $fqcust= $FindBin::Bin."/$localcust.pm"; #try migration_tools dir
>+        if(-e $fqcust) {
>+            $localcust= $fqcust;
>+        }
>+        else {
>+            print "WARNING: customize module $localcust.pm not found!\n";
>+            exit;
>+        }
>+    }
>+    require $localcust if $localcust;
>+    $localcust=\&customize if $localcust;
>+}
>+
> my $dbh = C4::Context->dbh;
> my $heading_fields=get_heading_fields();
> 
>@@ -740,6 +755,14 @@ This is the code for the framework that the requested records will have attached
> to them when they are created. If not specified, then the default framework
> will be used.
> 
>+=item B<-custom>=I<MODULE>
>+
>+This parameter allows you to use a local module with a customize subroutine
>+that is called for each MARC record.
>+If no filename is passed, LocalChanges.pm is assumed to be in the
>+migration_tools subdirectory. You may pass an absolute file name or a file name
>+from the migration_tools directory.
>+
> =back
> 
> =cut
>-- 
>1.7.7.6

Actions: View | Diff | Splinter Review

Attachments on bug 11278: 23061 | 23062 | 23063 | 23133 | 23134 | 24748 | 24749 | 24750 | 26087 | 26088 | 26090 | 26099 | 26100 | 26101