From: Marc Chantreux <marc.chantreux@biblibre.com>
Date: Sat, 28 Nov 2009 01:01:59 +0000 (+0100)
Subject: remove warning
X-Git-Tag: v3.00.06~124
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=4199029511756e07fca69af45d0ba8b463ac1b1f;p=koha.git

remove warning
---

diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm
index 8f67f0d424..c2c1786c1d 100644
--- a/C4/AuthoritiesMarc.pm
+++ b/C4/AuthoritiesMarc.pm
@@ -591,7 +591,7 @@ sub AddAuthority {
     my $sth=$dbh->prepare("select max(authid) from auth_header");
     $sth->execute;
     ($authid)=$sth->fetchrow;
-    $authid=$authid+1;
+    ( $authid ||= 0 )++; # $authid is undef for the first authority
     ## Insert the recordID in MARC record
     if   ( my $field = $record->field('001') ) { $field->data($authid) }
     else { $record->insert_fields_ordered(MARC::Field->new('001',$authid)) }