From 7cc1115cba51af2be37308cde8b406a04b2a4945 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Thu, 12 Nov 2009 15:55:56 +0100 Subject: [PATCH] adding error details --- misc/migration_tools/bulkmarcimport.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/misc/migration_tools/bulkmarcimport.pl b/misc/migration_tools/bulkmarcimport.pl index b1c2340f2d..e4f7dba707 100755 --- a/misc/migration_tools/bulkmarcimport.pl +++ b/misc/migration_tools/bulkmarcimport.pl @@ -314,7 +314,7 @@ RECORD: while ( ) { ## An authid is defined but no authority in database : add eval { ( $authid ) = AddAuthority($record,$authid, $authtypecode) }; if ($@){ - warn "Problem with authority $authid Cannot Add"; + warn "Problem with authority $authid Cannot Add ".$@; printlog({id=>$originalid||$id||$authid, op=>"insert",status=>"ERROR"}) if ($logfile); } else{ @@ -325,7 +325,7 @@ RECORD: while ( ) { ## True insert in database eval { ( $authid ) = AddAuthority($record,"", $authtypecode) }; if ($@){ - warn "Problem with authority $authid Cannot Add"; + warn "Problem with authority $authid Cannot Add".$@; printlog({id=>$originalid||$id||$authid, op=>"insert",status=>"ERROR"}) if ($logfile); } else{ -- 2.39.2