[Koha-cvs] CVS: koha/acqui addorder.pl,1.21,1.22 newbiblio.pl,1.20,1.21

[Paul POULAIN]

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

Modified Files:
	addorder.pl newbiblio.pl 
Log Message:
bugfix in order modification

Index: addorder.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/addorder.pl,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -r1.21 -r1.22
*** addorder.pl	12 Aug 2004 14:35:22 -0000	1.21
--- addorder.pl	14 Sep 2004 12:09:51 -0000	1.22
***************
*** 122,126 ****
  	}
  	if ($ordnum) {
! 		modorder($title,$ordnum,$quantity,$listprice,$bibnum,$basketno,$booksellerid,$loggedinuser,$notes,$bookfund,$bibitemnum,$rrp,$ecost,$gst,$budget,$cost,$sub,$invoice,$sort1,$sort2);
  	}else {
  		$basketno=neworder($basketno,$bibnum,$title,$quantity,$listprice,$booksellerid,$loggedinuser,$notes,$bookfund,$bibitemnum,$rrp,$ecost,$gst,$budget,$cost,$sub,$invoice,$sort1,$sort2);
--- 122,126 ----
  	}
  	if ($ordnum) {
! 		modorder($title,$ordnum,$quantity,$listprice,$bibnum,$basketno,$booksellerid,$loggedinuser,$notes,$bookfund,$bibitemnum,$rrp,$ecost,$gst,$budget,$cost,$invoice,$sort1,$sort2);
  	}else {
  		$basketno=neworder($basketno,$bibnum,$title,$quantity,$listprice,$booksellerid,$loggedinuser,$notes,$bookfund,$bibitemnum,$rrp,$ecost,$gst,$budget,$cost,$sub,$invoice,$sort1,$sort2);

Index: newbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/newbiblio.pl,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -r1.20 -r1.21
*** newbiblio.pl	12 Aug 2004 14:35:22 -0000	1.20
--- newbiblio.pl	14 Sep 2004 12:09:52 -0000	1.21
***************
*** 170,173 ****
--- 170,174 ----
  						listprice => $data->{'listprice'},
  						rrp => $data->{'rrp'},
+ 						invoice => $data->{'booksellerinvoicenumber'},
  						ecost => $data->{'ecost'},
  						notes => $data->{'notes'},