View | Details | Raw Unified | Return to bug 17980
Collapse All | Expand All

(-)a/C4/AuthoritiesMarc.pm (-4 / +1 lines)
Lines 664-670 sub AddAuthority { Link Here
664
  }
664
  }
665
665
666
  my $auth_exists=0;
666
  my $auth_exists=0;
667
  my $oldRecord;
668
  if (!$authid) {
667
  if (!$authid) {
669
    my $sth=$dbh->prepare("select max(authid) from auth_header");
668
    my $sth=$dbh->prepare("select max(authid) from auth_header");
670
    $sth->execute;
669
    $sth->execute;
Lines 680-686 sub AddAuthority { Link Here
680
#     warn "auth_exists = $auth_exists";
679
#     warn "auth_exists = $auth_exists";
681
  }
680
  }
682
  if ($auth_exists>0){
681
  if ($auth_exists>0){
683
      $oldRecord=GetAuthority($authid);
684
      $record->add_fields('001',$authid) unless ($record->field('001'));
682
      $record->add_fields('001',$authid) unless ($record->field('001'));
685
#       warn "\n\n\n enregistrement".$record->as_formatted;
683
#       warn "\n\n\n enregistrement".$record->as_formatted;
686
      my $sth=$dbh->prepare("update auth_header set authtypecode=?,marc=?,marcxml=? where authid=?");
684
      my $sth=$dbh->prepare("update auth_header set authtypecode=?,marc=?,marcxml=? where authid=?");
Lines 693-699 sub AddAuthority { Link Here
693
    $sth->finish;
691
    $sth->finish;
694
    logaction( "AUTHORITIES", "ADD", $authid, "authority" ) if C4::Context->preference("AuthoritiesLog");
692
    logaction( "AUTHORITIES", "ADD", $authid, "authority" ) if C4::Context->preference("AuthoritiesLog");
695
  }
693
  }
696
  ModZebra($authid,'specialUpdate',"authorityserver",$oldRecord,$record);
694
  ModZebra( $authid, 'specialUpdate', 'authorityserver', $record );
697
  return ($authid);
695
  return ($authid);
698
}
696
}
699
697
700
- 

Return to bug 17980