[Koha-cvs] koha/C4 AuthoritiesMarc.pm

[Chris Cormack]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         
Changes by:     Chris Cormack <address@hidden>  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
 #