# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
use C4::Auth;
use C4::Koha;
use C4::Output;
use CGI;
-use C4::Interface::CGI::Output;
-
-
use C4::Acquisition;
use C4::Bookfund;
use C4::Bookseller;
-use C4::Date;
+use C4::Dates qw/format_date/;
+
+use vars qw($debug);
+
+BEGIN {
+ $debug = $ENV{DEBUG} || 1;
+}
=head1 NAME
# if new basket, pre-fill infos
$basket->{creationdate} = "" unless ( $basket->{creationdate} );
$basket->{authorisedby} = $loggedinuser unless ( $basket->{authorisedby} );
+$debug and warn
+ sprintf "loggedinuser: $loggedinuser; creationdate: %s; authorisedby: %s",
+ $basket->{creationdate}, $basket->{authorisedby} ;
+
my ( $count, @results );
@results = GetOrders( $basketno, $order );
grand_total_est => $grand_total_est,
currency => $booksellers[0]->{'listprice'},
qty_total => $qty_total,
+ GST => C4::Context->preference("gist"),
);
output_html_with_http_headers $query, $cookie, $template->output;