adding error details
This commit is contained in:
parent
2e64ef8efb
commit
7cc1115cba
1 changed files with 2 additions and 2 deletions
|
@ -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{
|
||||
|
|
Loading…
Reference in a new issue