[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,@booksellers)=bookseller($supplierid);
  
--- 33,37 ----
  
  my $input=new CGI;
! my $supplierid=$input->param('supplierid');
  my ($count,@booksellers)=bookseller($supplierid);