[Koha-cvs] koha/C4 AuthoritiesMarc.pm

[Chris Cormack]

CVSROOT:	/sources/koha
Module name:	koha
Branch: 	
Changes by:	Chris Cormack <rangi at savannah.gnu.org>	06/02/09 01:56:20

Modified files:
	C4             : AuthoritiesMarc.pm 

Log message:
	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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/AuthoritiesMarc.pm.diff?tr1=1.23&tr2=1.24&r1=text&r2=text

Patches:
Index: koha/C4/AuthoritiesMarc.pm
diff -u koha/C4/AuthoritiesMarc.pm:1.23 koha/C4/AuthoritiesMarc.pm:1.24
--- koha/C4/AuthoritiesMarc.pm:1.23	Thu Feb  9 01:52:14 2006
+++ koha/C4/AuthoritiesMarc.pm	Thu Feb  9 01:56:20 2006
@@ -644,13 +644,13 @@
     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
@@ -937,8 +937,13 @@
 
 =cut
 
-# $Id: AuthoritiesMarc.pm,v 1.23 2006/02/09 01:52:14 rangi Exp $
+# $Id: AuthoritiesMarc.pm,v 1.24 2006/02/09 01:56:20 rangi Exp $
 # $Log: AuthoritiesMarc.pm,v $
+# 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
 #