adding error details

This commit is contained in:
Paul Poulain 2009-11-12 15:55:56 +01:00 committed by Henri-Damien LAURENT
parent 2e64ef8efb
commit 7cc1115cba

View file

@ -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{