[Koha-cvs] CVS: koha/C4 Biblio.pm,1.107,1.108

[Chris Cormack]

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

Modified Files:
        Biblio.pm 
Log Message:
Shifting branches() from deprecated C4::Catalogue to C4::Biblio
Allowing the non marc interface acquisitions to work.


Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.107
retrieving revision 1.108
diff -C2 -r1.107 -r1.108
*** Biblio.pm   5 Nov 2004 10:15:27 -0000       1.107
--- Biblio.pm   19 Nov 2004 19:41:22 -0000      1.108
***************
*** 70,73 ****
--- 70,74 ----
    
    &FindDuplicate
+   &branches
  );
  
***************
*** 2624,2627 ****
--- 2625,2643 ----
  }
  
+ 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)
  
***************
*** 2638,2641 ****
--- 2654,2661 ----
  # $Id$
  # $Log$
+ # Revision 1.108  2004/11/19 19:41:22  rangi
+ # Shifting branches() from deprecated C4::Catalogue to C4::Biblio
+ # Allowing the non marc interface acquisitions to work.
+ #
  # Revision 1.107  2004/11/05 10:15:27  tipaul
  # Improving FindDuplicate to find duplicate records on adding biblio