#!/usr/bin/perl


#script to show display basket of orders

# Copyright 2000-2002 Katipo Communications
# Copyright 2008-2009 BibLibre SARL
#
# 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.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 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 warnings;
use C4::Auth;
use C4::Acquisition;
use C4::Contract;
use C4::Biblio;
use C4::Output;
use C4::Dates qw/format_date /;
use CGI;

use C4::Bookseller;
use C4::Budgets;

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";
my ($template, $loggedinuser, $cookie) = get_template_and_user(
	{   template_name   => "acqui/supplier.tmpl",
		query           => $query,
		type            => "intranet",
		authnotrequired => 0,
		flagsrequired   => { acquisition => 'vendors_manage' },
		debug           => 1,
	}
);
my $seller_gstrate = $booksellers[0]->{'gstrate'};
# A perl-ism: '0'==false, '0.000'==true, but 0=='0.000' - this accounts for that
undef $seller_gstrate if ($seller_gstrate == 0);
my $GST = $seller_gstrate || C4::Context->preference("gist");
$GST *= 100;

my @contracts = GetContracts($id);
my $contractcount = scalar(@contracts);
$template->param(hascontracts => 1) if ($contractcount > 0);

#build array for currencies
if ($op eq "display") {

    # get contracts
    my @contracts = @{GetContract( { booksellerid => $id } )};

    # format dates
    for ( @contracts ) {
        $$_{contractstartdate} = format_date($$_{contractstartdate});
        $$_{contractenddate}   = format_date($$_{contractenddate});
    }

	$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'},
		gstreg        => $booksellers[0]->{'gstreg'},
		listincgst    => $booksellers[0]->{'listincgst'},
		invoiceincgst => $booksellers[0]->{'invoiceincgst'},
		gstrate       => $booksellers[0]->{'gstrate'}*100,
		discount      => $booksellers[0]->{'discount'},
		invoiceprice  => $booksellers[0]->{'invoiceprice'},
		listprice     => $booksellers[0]->{'listprice'},
		GST           => $GST,
		basketcount   => $booksellers[0]->{'basketcount'},
		contracts     => \@contracts
	);
}
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 => "<option selected=\"selected\" value=\"$currencies[$i]->{'currency'}\">$currencies[$i]->{'currency'}</option>" };
        } else {
            push @loop_pricescurrency, { currency => "<option value=\"$currencies[$i]->{'currency'}\">$currencies[$i]->{'currency'}</option>"};
        }
        if ($booksellers[0]->{'invoiceprice'} eq $currencies[$i]->{'currency'}) {
            push @loop_invoicecurrency, { currency => "<option selected=\"selected\" value=\"$currencies[$i]->{'currency'}\">$currencies[$i]->{'currency'}</option>"};
        } else {
            push @loop_invoicecurrency, { currency => "<option value=\"$currencies[$i]->{'currency'}\">$currencies[$i]->{'currency'}</option>"};
        }
    }
	$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               => $id?$booksellers[0]->{'active'}:1, # set active ON by default for supplier add (id empty for add)
		gstreg               => $booksellers[0]->{'gstreg'},
		listincgst           => $booksellers[0]->{'listincgst'},
		invoiceincgst        => $booksellers[0]->{'invoiceincgst'},
		gstrate              => $booksellers[0]->{'gstrate'}*100,
		discount             => $booksellers[0]->{'discount'},
		loop_pricescurrency  => \@loop_pricescurrency,
		loop_invoicecurrency => \@loop_invoicecurrency,
		GST                  => $GST,
		enter                => 1,
	);
}



output_html_with_http_headers $query, $cookie, $template->output;