Lines 397-413
RECORD: while ( ) {
Link Here
|
397 |
printlog({id=>$originalid||$id||$authid, op=>"edit",status=>"ok"}) if ($logfile); |
397 |
printlog({id=>$originalid||$id||$authid, op=>"edit",status=>"ok"}) if ($logfile); |
398 |
} |
398 |
} |
399 |
} |
399 |
} |
400 |
elsif (defined $authid) { |
|
|
401 |
## An authid is defined but no authority in database : add |
402 |
eval { ( $authid ) = AddAuthority($record,$authid, $authtypecode) }; |
403 |
if ($@){ |
404 |
warn "Problem with authority $authid Cannot Add ".$@; |
405 |
printlog({id=>$originalid||$id||$authid, op=>"insert",status=>"ERROR"}) if ($logfile); |
406 |
} |
407 |
else{ |
408 |
printlog({id=>$originalid||$id||$authid, op=>"insert",status=>"ok"}) if ($logfile); |
409 |
} |
410 |
} |
411 |
else { |
400 |
else { |
412 |
## True insert in database |
401 |
## True insert in database |
413 |
eval { ( $authid ) = AddAuthority($record,"", $authtypecode) }; |
402 |
eval { ( $authid ) = AddAuthority($record,"", $authtypecode) }; |
414 |
- |
|
|