From bc51b60c2664496c0bba21ae83f9a03ef2a30e31 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Thu, 9 Feb 2006 01:56:20 +0000
Subject: [PATCH] Hmm there seem to be quite a few subroutines twice in this
 module....

Paul could you take a look and remove the ones that shouldnt be there please
---
 C4/AuthoritiesMarc.pm | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm
index d133a9e0f2..cf8fb0ad7e 100644
--- a/C4/AuthoritiesMarc.pm
+++ b/C4/AuthoritiesMarc.pm
@@ -644,13 +644,13 @@ sub AUTHfindsubfieldid {
     return $res;
 }
 
-sub AUTHfind_authtypecode {
-	my ($dbh,$authid) = @_;
-	my $sth = $dbh->prepare("select authtypecode from auth_header where authid=?");
-	$sth->execute($authid);
-	my ($authtypecode) = $sth->fetchrow;
-	return $authtypecode;
-}
+# sub AUTHfind_authtypecode {
+#	my ($dbh,$authid) = @_;
+#	my $sth = $dbh->prepare("select authtypecode from auth_header where authid=?");
+#	$sth->execute($authid);
+#	my ($authtypecode) = $sth->fetchrow;
+#	return $authtypecode;
+# }
 
 sub AUTHdelsubfield {
 # delete a subfield for $authid / tag / tagorder / subfield / subfieldorder
@@ -939,6 +939,11 @@ Paul POULAIN paul.poulain@free.fr
 
 # $Id$
 # $Log$
+# Revision 1.24  2006/02/09 01:56:20  rangi
+# Hmm there seem to be quite a few subroutines twice in this module....
+#
+# Paul could you take a look and remove the ones that shouldnt be there please
+#
 # Revision 1.23  2006/02/09 01:52:14  rangi
 # Cleaning up some unessecary my statements
 #
-- 
2.20.1