[Koha-patches] [PATCH] merge_authority : Bug fixing
Henri-Damien LAURENT
henridamien.laurent at biblibre.com
Wed Nov 19 14:58:19 CET 2008
---
misc/migration_tools/merge_authority.pl | 8 ++++----
1 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/misc/migration_tools/merge_authority.pl b/misc/migration_tools/merge_authority.pl
index 6345c9d..b5e64f6 100755
--- a/misc/migration_tools/merge_authority.pl
+++ b/misc/migration_tools/merge_authority.pl
@@ -27,7 +27,7 @@ GetOptions(
'b' => \$batch,
);
-if ($version || ($mergefrom eq '')) {
+if ($version || ($mergefrom eq '' && !$batch)) {
print <<EOF
Script to merge an authority into another
parameters :
@@ -49,7 +49,6 @@ die;
}#/'
my $dbh = C4::Context->dbh;
-# my @subf = $subfields =~ /(##\d\d\d##.)/g;
$|=1; # flushes output
my $authfrom = GetAuthority($mergefrom);
@@ -58,7 +57,7 @@ my $authto = GetAuthority($mergeto);
my $authtypecodefrom = GetAuthTypeCode($mergefrom);
my $authtypecodeto = GetAuthTypeCode($mergeto);
-unless ($noconfirm) {
+unless ($noconfirm || $batch) {
print "************\n";
print "You will merge authority : $mergefrom ($authtypecodefrom)\n".$authfrom->as_formatted;
print "\n*************\n";
@@ -85,7 +84,8 @@ if ($batch) {
if ($authid =~ /\.authid$/) {
$authid =~ s/\.authid$//;
print "managing $authid\n" if $verbose;
- my $MARCauth = GetAuthority($authid);
+ my $MARCauth = GetAuthority($authid) ;
+ next unless ($MARCauth);
merge($authid,$MARCauth,$authid,$MARCauth) if ($MARCauth);
unlink $cgidir.'/localfile/modified_authorities/'.$authid.'.authid';
}
--
1.6.0.2
More information about the Koha-patches
mailing list