[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 ***
 #