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