X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=acqui%2Fupdatesupplier.pl;h=3dc69641a51c7cb8ae42896b0d25dbf222b1863a;hb=HEAD;hp=1d487cb7ad42250983472bbb4f54f31ab5e69fe8;hpb=2a3f7c141798121a75fc9ee670af0fdde431d9c2;p=koha_gimpoz diff --git a/acqui/updatesupplier.pl b/acqui/updatesupplier.pl index 1d487cb7ad..3dc69641a5 100755 --- a/acqui/updatesupplier.pl +++ b/acqui/updatesupplier.pl @@ -48,7 +48,8 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Context; use C4::Auth; -use C4::Bookseller; + +use C4::Bookseller qw( ModBookseller AddBookseller ); use C4::Biblio; use C4::Output; use CGI; @@ -65,10 +66,10 @@ my ($template, $loggedinuser, $cookie) = get_template_and_user( ); #print $input->header(); -my $supplier=$input->param('supplier'); +my $booksellerid=$input->param('booksellerid'); #print startpage; my %data; -$data{'id'}=$input->param('id'); +$data{'id'}=$booksellerid; $data{'name'}=$input->param('company'); $data{'postal'}=$input->param('company_postal'); @@ -79,6 +80,7 @@ $data{'address2'}=$addresses[1]; $data{'address3'}=$addresses[2]; $data{'address4'}=$addresses[3]; $data{'phone'}=$input->param('company_phone'); +$data{'accountnumber'}=$input->param('accountnumber'); $data{'fax'}=$input->param('company_fax'); $data{'url'}=$input->param('website'); $data{'contact'}=$input->param('company_contact_name'); @@ -91,7 +93,7 @@ $data{'contnotes'}=$input->param('contact_notes'); # warn "".$data{'contnotes'}; $data{'notes'}=$input->param('notes'); $data{'active'}=$input->param('status'); -$data{'specialty'}=$input->param('publishers_imprints'); + $data{'listprice'}=$input->param('list_currency'); $data{'invoiceprice'}=$input->param('invoice_currency'); $data{'gstreg'}=$input->param('gst'); @@ -105,6 +107,7 @@ if ($gstrate eq '') { $data{'gstrate'} = $input->param('gstrate')/100; } $data{'discount'}=$input->param('discount'); +$data{deliverytime} = $input->param('deliverytime'); $data{'active'}=$input->param('status'); if($data{'name'}) { if ($data{'id'}){ @@ -113,7 +116,7 @@ if($data{'name'}) { $data{id}=AddBookseller(\%data); } #redirect to booksellers.pl -print $input->redirect("booksellers.pl?id=".$data{id}); +print $input->redirect("booksellers.pl?booksellerid=".$data{id}); } else { print $input->redirect("supplier.pl?op=enter"); # fail silently. }