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