From 434c1d648325cbae1750a6052bab845a1f450694 Mon Sep 17 00:00:00 2001
From: Marcel de Rooy <M.de.Rooy@rijksmuseum.nl>
Date: Thu, 9 Dec 2010 12:36:07 +0000
Subject: [PATCH] bug5455 (Fix uninitialized-warnings on authorities.pl)

Fix warnings for uninitialized authtypecode on lines 646, 653.

Signed-off-by: Colin Campbell <colin.campbell@ptfs-europe.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
---
 authorities/authorities.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/authorities/authorities.pl b/authorities/authorities.pl
index 9429a5820a..d4f1601b1e 100755
--- a/authorities/authorities.pl
+++ b/authorities/authorities.pl
@@ -545,7 +545,9 @@ my $linkid=$input->param('linkid');
 my $authtypecode = $input->param('authtypecode');
 
 my $dbh = C4::Context->dbh;
-$authtypecode = &GetAuthTypeCode($authid) if !$authtypecode;
+if(!$authtypecode) {
+  $authtypecode = $authid? &GetAuthTypeCode($authid): '';
+}
 
 my ($template, $loggedinuser, $cookie)
     = get_template_and_user({template_name => "authorities/authorities.tmpl",
-- 
2.39.2