From a7959b40112fff04b2c8e9bd0c8bb334ed1b1345 Mon Sep 17 00:00:00 2001
From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Date: Mon, 17 May 2010 12:22:54 +0200
Subject: [PATCH] Bug 4159 (Directory modified_authorities in tmp not
 localfile)

---
 misc/migration_tools/merge_authority.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/misc/migration_tools/merge_authority.pl b/misc/migration_tools/merge_authority.pl
index b5e64f61ad..74aac8c747 100755
--- a/misc/migration_tools/merge_authority.pl
+++ b/misc/migration_tools/merge_authority.pl
@@ -76,9 +76,9 @@ print "Merging\n" unless $noconfirm;
 if ($batch) {
   my @authlist;
   my $cgidir = C4::Context->intranetdir ."/cgi-bin";
-  unless (opendir(DIR, "$cgidir/localfile/modified_authorities")) {
+  unless (opendir(DIR, "$cgidir/tmp/modified_authorities")) { #MR 030510
     $cgidir = C4::Context->intranetdir;
-    opendir(DIR, "$cgidir/localfile/modified_authorities") || die "can't opendir $cgidir/localfile/modified_authorities: $!";
+    opendir(DIR, "$cgidir/tmp/modified_authorities") || die "can't opendir $cgidir/tmp/modified_authorities: $!"; #MR 030510
   } 
   while (my $authid = readdir(DIR)) {
     if ($authid =~ /\.authid$/) {
@@ -87,7 +87,7 @@ if ($batch) {
       my $MARCauth = GetAuthority($authid) ;
       next unless ($MARCauth);
       merge($authid,$MARCauth,$authid,$MARCauth) if ($MARCauth);
-      unlink $cgidir.'/localfile/modified_authorities/'.$authid.'.authid';
+      unlink $cgidir.'/tmp/modified_authorities/'.$authid.'.authid';
     }
   }
   closedir DIR;