X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=acqui%2Fsupplier.pl;h=e8c872b906ec2755597a55a9ccadfe6286fae6bd;hb=78ac1e13ea6ee3e0313f85d4d8cd2848fb1e383a;hp=1bb485f53796065c240edaa543941a4e3f7ca130;hpb=cb7441a537e227aba7c30cf59a97da989d55a241;p=koha.git diff --git a/acqui/supplier.pl b/acqui/supplier.pl index 1bb485f537..e8c872b906 100755 --- a/acqui/supplier.pl +++ b/acqui/supplier.pl @@ -1,252 +1,89 @@ #!/usr/bin/perl +# $Id$ + #script to show display basket of orders #written by chris@katipo.co.nz 24/2/2000 -use C4::Acquisitions; + +# Copyright 2000-2002 Katipo Communications +# +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# Koha is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA + +use C4::Auth; +use C4::Acquisition; use C4::Biblio; use C4::Output; use CGI; +use C4::Interface::CGI::Output; +use C4::Database; +use HTML::Template; use strict; -my $input=new CGI; -print $input->header(); -my $id=$input->param('id'); -my ($count,@booksellers)=bookseller($id); -print startpage; - -print startmenu('acquisitions'); - -print < - - -Update: $booksellers[0]->{'name'} -

-

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
COMPANY DETAILS
Company Name -
Postal Address
Physical Address -
Phone -
Fax -
Website -
CONTACT DETAILS
Contact Name -
Position -
Phone -
Alternative Phone -
Fax -
E-mail -
Notes -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
CURRENT STATUS
Supplier is{'active'}==1){ - print " checked "; -} -print ">Active -{'active'}==0){ - print " checked "; -} -print <Inactive -
ORDERING INFORMATION
Publishers and Imprints -
List Prices are -
Invoice Prices are -
GST Registered{'gstreg'}==1){ - print " checked"; -} -print ">Yes -{'gstreg'}==0){ - print " checked"; -} -print <No -
List Item Price Includes GST{'listincgst'}==1){ - print " checked"; -} -print ">Yes -{'listincgst'}==0){ - print " checked"; -} -print <No -
Invoice Item Price Includes GST{'invoiceincgst'}==1){ - print " checked"; -} -print ">Yes -{'invoiceincgst'}==0){ - print " checked"; -} -print <No -
Discount{'discount'}> % -
- - -
-EOP -; - - -print endmenu('acquisitions'); +my $query=new CGI; +my $id=$query->param('supplierid'); +my ($count,@booksellers)=bookseller($id); +my ($template, $loggedinuser, $cookie) + = get_template_and_user({template_name => "acqui/supplier.tmpl", + query => $query, + type => "intranet", + authnotrequired => 0, + flagsrequired => {acquisition => 1}, + debug => 1, + }); +#build array for currencies +my ($count, $currencies) = &getcurrencies(); +my @loop_pricescurrency; +my @loop_invoicecurrency; +for (my $i=0;$i<$count;$i++) { + if ($booksellers[0]->{'listprice'} eq $currencies->[$i]->{'currency'}) { + push @loop_pricescurrency, { currency => "" }; + } else { + push @loop_pricescurrency, { currency => ""}; + } + if ($booksellers[0]->{'invoiceprice'} eq $currencies->[$i]->{'currency'}) { + push @loop_invoicecurrency, { currency => ""}; + } else { + push @loop_invoicecurrency, { currency => ""}; + } +} +$template->param(id => $id, + name => $booksellers[0]->{'name'}, + postal =>$booksellers[0]->{'postal'}, + address1 => $booksellers[0]->{'address1'}, + address2 => $booksellers[0]->{'address2'}, + address3 => $booksellers[0]->{'address3'}, + address4 => $booksellers[0]->{'address4'}, + phone =>$booksellers[0]->{'phone'}, + fax => $booksellers[0]->{'fax'}, + url => $booksellers[0]->{'url'}, + contact => $booksellers[0]->{'contact'}, + contpos => $booksellers[0]->{'contpos'}, + contphone => $booksellers[0]->{'contphone'}, + contaltphone => $booksellers[0]->{'contaltphone'}, + contfax => $booksellers[0]->{'contfax'}, + contemail => $booksellers[0]->{'contemail'}, + contnotes => $booksellers[0]->{'contnotes'}, + active => $booksellers[0]->{'active'}, + specialty => $booksellers[0]->{'specialty'}, + gstreg => $booksellers[0]->{'gstreg'}, + listincgst => $booksellers[0]->{'listincgst'}, + invoiceincgst => $booksellers[0]->{'invoiceincgst'}, + discount => $booksellers[0]->{'discount'}, + loop_pricescurrency => \@loop_pricescurrency, + loop_invoicecurrency => \@loop_invoicecurrency,); -print endpage; +output_html_with_http_headers $query, $cookie, $template->output;