[Koha-cvs] CVS: koha/C4 Biblio.pm,1.107,1.108
Chris Cormack
rangi at users.sourceforge.net
Fri Nov 19 20:41:27 CET 2004
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
More information about the Koha-cvs
mailing list