From d467f092a326bda1a2388dc3cea60bbae94a52eb Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Fri, 21 Jun 2002 13:15:36 +0000
Subject: [PATCH] merging branches 1.2 and main

---
 acqui/newbiblio.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/acqui/newbiblio.pl b/acqui/newbiblio.pl
index 98212a9736..2cffbad33b 100755
--- a/acqui/newbiblio.pl
+++ b/acqui/newbiblio.pl
@@ -4,6 +4,7 @@
 #written by chris@katipo.co.nz 24/2/2000
 
 use C4::Acquisitions;
+use C4::Biblio;
 use C4::Output;
 use C4::Search;
 use C4::Database;
@@ -21,7 +22,6 @@ my $ordnum=$input->param('ordnum');
 my $biblio=$input->param('biblio');
 my $data;
 my $new;
-
 if ($ordnum eq ''){
   $new='yes';
   $ordnum=newordernum;
@@ -194,7 +194,8 @@ print <<printend
 <td><select name=branch size=1>
 printend
 ;
-my ($count2,@branches)=branches;
+my @branches;
+($count2,@branches)=branches();
 for (my $i=0;$i<$count2;$i++){
   print "<option value=$branches[$i]->{'branchcode'}";
   if ($data->{'branchcode'} == $branches[$i]->{'branchcode'}){
@@ -244,7 +245,8 @@ print <<printend
 printend
 ;
 
-my ($count2,@bookfund)=bookfunds;
+my @bookfund;
+($count2,@bookfund)=bookfunds();
 for (my $i=0;$i<$count2;$i++){
   print "<option value=$bookfund[$i]->{'bookfundid'}";
   if ($data->{'bookfundid'} == $bookfund[$i]->{'bookfundid'}){
-- 
2.39.5