X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=acqui%2Fupdatesupplier.pl;h=bd59c6b95ab6b06285f90a9d255c20c9e0395fe1;hb=55d0b65522d3caa8d7c819b2cfa7ce8f2483c33e;hp=1d487cb7ad42250983472bbb4f54f31ab5e69fe8;hpb=8e5ee007db451f62fe17c456215013e422f25bec;p=koha.git diff --git a/acqui/updatesupplier.pl b/acqui/updatesupplier.pl index 1d487cb7ad..bd59c6b95a 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; @@ -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');