[Koha-cvs] CVS: koha/C4 Biblio.pm,1.109,1.110

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12766/C4

Modified Files:
        Biblio.pm 
Log Message:
removing sub branches (commited by chris for MARC=OFF bugfix, but sub branches 
is already in Acquisition.pm)

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.109
retrieving revision 1.110
diff -C2 -r1.109 -r1.110
*** Biblio.pm   24 Nov 2004 15:58:31 -0000      1.109
--- Biblio.pm   24 Nov 2004 16:00:01 -0000      1.110
***************
*** 2624,2642 ****
  }
  
- sub branches {                                                                
                                                   
-         my $dbh   = C4::Context->dbh;                                         
                                                       
-         my $sth   = $dbh->prepare("Select * from branches order by 
branchname");                                                     
-         my @results = ();                                                     
                                                       
-                                                                               
                                                       
-         $sth->execute();                                                      
                                                       
-         while (my $data = $sth->fetchrow_hashref) {                           
                                                       
-                   push(@results,$data);                                       
                                                             
-               } # while                                                       
                                                             
-                                                                               
                                                       
-         $sth->finish;                                                         
                                                       
-         return(scalar(@results), @results);                                   
                                                       
- } # sub branches
- 
- 
  END { }    # module clean-up code here (global destructor)
  
--- 2624,2627 ----
***************
*** 2653,2656 ****
--- 2638,2644 ----
  # $Id$
  # $Log$
+ # Revision 1.110  2004/11/24 16:00:01  tipaul
+ # removing sub branches (commited by chris for MARC=OFF bugfix, but sub 
branches is already in Acquisition.pm)
+ #
  # Revision 1.109  2004/11/24 15:58:31  tipaul
  # * critical fix for acquisition (see RC3 release notes)