X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=acqui%2Fsupplier.pl;h=4db98d6a36f0ac9749bb097fa505e7f3380c9d4d;hb=e63971707053633f12cabcddaae3ef32847a7901;hp=1824d2569af10cad35e20a5e89c9c9f869de9802;hpb=528f1b2b8006061a4b2d10a53f367d84b7b6e50b;p=koha.git diff --git a/acqui/supplier.pl b/acqui/supplier.pl index 1824d2569a..4db98d6a36 100755 --- a/acqui/supplier.pl +++ b/acqui/supplier.pl @@ -1,252 +1,152 @@ #!/usr/bin/perl + #script to show display basket of orders #written by chris@katipo.co.nz 24/2/2000 -use C4::Catalogue; +# 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 + +=head1 NAME + +supplier.pl + +=head1 DESCRIPTION +this script shows the details for a bookseller given on input arg. +It allows to edit & save information about this bookseller. + +=head1 CGI PARAMETERS + +=over 4 + +=item supplierid +To know the bookseller this script has to display details. + +=back + +=cut + +use strict; +use C4::Auth; +use C4::Acquisition; use C4::Biblio; use C4::Output; use CGI; -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 -; +use C4::Bookseller; +use C4::Bookfund; +my $query=new CGI; +my $id=$query->param('supplierid'); +my @booksellers = GetBookSellerFromId($id) if $id; +my $count = scalar @booksellers; +my $op=$query->param('op') || "display"; -print endmenu('acquisitions'); +my ($template, $loggedinuser, $cookie) + = get_template_and_user({template_name => "acqui/supplier.tmpl", + query => $query, + type => "intranet", + authnotrequired => 0, + flagsrequired => {acquisition => 1}, + debug => 1, + }); -print endpage; +#build array for currencies +if ($op eq "display"){ + $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'}, + notes => $booksellers[0]->{'notes'}, + active => $booksellers[0]->{'active'}, + specialty => $booksellers[0]->{'specialty'}, + gstreg => $booksellers[0]->{'gstreg'}, + listincgst => $booksellers[0]->{'listincgst'}, + invoiceincgst => $booksellers[0]->{'invoiceincgst'}, + discount => $booksellers[0]->{'discount'}, + invoiceprice=>$booksellers[0]->{'invoiceprice'}, + listprice=>$booksellers[0]->{'listprice'}, + GST => C4::Context->preference("gist"), + basketcount =>$booksellers[0]->{'basketcount'}, + ); +} elsif ($op eq 'delete') { + &DelBookseller($id); + print $query->redirect("/cgi-bin/koha/acqui/acqui-home.pl"); + exit; +} else { + my @currencies = GetCurrencies(); + my $count = scalar @currencies; + + 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'}, + notes => $booksellers[0]->{'notes'}, + 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, + GST => C4::Context->preference("gist"), + enter=>1, + ); +} +output_html_with_http_headers $query, $cookie, $template->output;