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

Paul POULAIN tipaul at users.sourceforge.net
Wed Nov 24 17:00:05 CET 2004


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)





More information about the Koha-cvs mailing list