[Koha-cvs] CVS: koha/acqui receive.pl,1.13,1.14 recieveorder.pl,1.10,1.11

[Henri-Damien LAURENT]

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

Modified Files:
	receive.pl recieveorder.pl 
Log Message:
Some Bug Fixes

Index: receive.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/receive.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** receive.pl	12 Aug 2004 14:35:22 -0000	1.13
--- receive.pl	28 Jul 2005 15:40:52 -0000	1.14
***************
*** 80,84 ****
  	$line{invoice} = $invoice;
  	$line{gst} = $gst;
! 	$line{title} = $results[$i]->{'title'};
  	$line{author} = $results[$i]->{'author'};
  	$line{unitprice} = $results[$i]->{'unitprice'};
--- 80,84 ----
  	$line{invoice} = $invoice;
  	$line{gst} = $gst;
! 	$line{title} = ($results[$i]->{'truetitle'}?$results[$i]->{'truetitle'}:$results[$i]->{'suggestedtitle'});
  	$line{author} = $results[$i]->{'author'};
  	$line{unitprice} = $results[$i]->{'unitprice'};

Index: recieveorder.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/recieveorder.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** recieveorder.pl	4 May 2005 08:45:04 -0000	1.10
--- recieveorder.pl	28 Jul 2005 15:40:52 -0000	1.11
***************
*** 33,37 ****
  
  my $input=new CGI;
! my $supplierid=$input->param('id');
  my ($count, at booksellers)=bookseller($supplierid);
  
--- 33,37 ----
  
  my $input=new CGI;
! my $supplierid=$input->param('supplierid');
  my ($count, at booksellers)=bookseller($supplierid);