[Koha-cvs] koha/z3950/encodingfix Biblio.pm

[Antoine Farnault]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	Antoine Farnault <toins>	06/07/12 17:23:48

Modified files:
	z3950/encodingfix: Biblio.pm 

Log message:
	getitemtypes renamed to GetItemTypes

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/z3950/encodingfix/Biblio.pm?cvsroot=koha&r1=1.2&r2=1.3

Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/z3950/encodingfix/Biblio.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- Biblio.pm	30 Jul 2004 14:21:27 -0000	1.2
+++ Biblio.pm	12 Jul 2006 17:23:48 -0000	1.3
@@ -40,7 +40,7 @@
 	     &newitems &modbibitem
 	     &modsubtitle &modsubject &modaddauthor &moditem &countitems
 	     &delitem &deletebiblioitem &delbiblio
-	     &getitemtypes &getbiblio
+         &GetItemTypes &getbiblio
 	     &getbiblioitembybiblionumber
 	     &getbiblioitem &getitemsbybiblioitem
 	     &skip
@@ -1865,22 +1865,6 @@
 	&MARCdelbiblio($dbh,$bibid,0);
 }
 
-sub getitemtypes {
-  my $dbh   = C4::Context->dbh;
-  my $sth   = $dbh->prepare("select * from itemtypes order by description");
-  my $count = 0;
-  my @results;
-
-  $sth->execute;
-  while (my $data = $sth->fetchrow_hashref) {
-    $results[$count] = $data;
-    $count++;
-  } # while
-
-  $sth->finish;
-  return($count, @results);
-} # sub getitemtypes
-
 sub getbiblio {
     my ($biblionumber) = @_;
     my $dbh   = C4::Context->dbh;
@@ -2166,8 +2150,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.2 2004/07/30 14:21:27 doxulting Exp $
+# $Id: Biblio.pm,v 1.3 2006/07/12 17:23:48 toins Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.3  2006/07/12 17:23:48  toins
+# getitemtypes renamed to GetItemTypes
+#
 # Revision 1.2  2004/07/30 14:21:27  doxulting
 # *** empty log message ***
 #