From 7e1f5ce84bd40f7d0ff6f9321927a33ae2c70be3 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Fri, 19 Nov 2004 19:41:22 +0000
Subject: [PATCH] Shifting branches() from deprecated C4::Catalogue to
 C4::Biblio Allowing the non marc interface acquisitions to work.

---
 C4/Biblio.pm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 7323bf56e7..1b5524d2f6 100644
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -69,6 +69,7 @@ $VERSION = 0.01;
   &char_decode
   
   &FindDuplicate
+  &branches
 );
 
 #
@@ -2623,6 +2624,21 @@ sub FindDuplicate {
 	return;
 }
 
+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)
 
 =back
@@ -2637,6 +2653,10 @@ Paul POULAIN paul.poulain@free.fr
 
 # $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
 #
-- 
2.39.5