Tidying up formatting
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
parent
b47e7a9be4
commit
590551e14d
1 changed files with 100 additions and 98 deletions
|
@ -20,7 +20,6 @@
|
|||
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
|
||||
# Suite 330, Boston, MA 02111-1307 USA
|
||||
|
||||
|
||||
use strict;
|
||||
use C4::Auth;
|
||||
use C4::Koha;
|
||||
|
@ -88,12 +87,13 @@ my $basket = GetBasket($basketno);
|
|||
$booksellerid = $basket->{booksellerid} unless $booksellerid;
|
||||
my ($bookseller) = GetBookSellerFromId($booksellerid);
|
||||
|
||||
if (! $bookseller){
|
||||
if ( !$bookseller ) {
|
||||
$template->param( NO_BOOKSELLER => 1 );
|
||||
}
|
||||
else {
|
||||
# get librarian branch...
|
||||
if ( C4::Context->preference("IndependantBranches") ) {
|
||||
|
||||
# get librarian branch...
|
||||
if ( C4::Context->preference("IndependantBranches") ) {
|
||||
my $userenv = C4::Context->userenv;
|
||||
unless ( $userenv->{flags} == 1 ) {
|
||||
my $validtest = ( $basket->{creationdate} eq '' )
|
||||
|
@ -105,34 +105,34 @@ if ( C4::Context->preference("IndependantBranches") ) {
|
|||
exit 1;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
# 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} ;
|
||||
# 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 @results = GetOrders( $basketno, $order );
|
||||
my $count = scalar @results;
|
||||
my @results = GetOrders( $basketno, $order );
|
||||
my $count = scalar @results;
|
||||
|
||||
my $line_total; # total of each line
|
||||
my $sub_total; # total of line totals
|
||||
my $gist; # GST
|
||||
my $grand_total; # $subttotal + $gist
|
||||
my $toggle = 0;
|
||||
my $line_total; # total of each line
|
||||
my $sub_total; # total of line totals
|
||||
my $gist; # GST
|
||||
my $grand_total; # $subttotal + $gist
|
||||
my $toggle = 0;
|
||||
|
||||
# my $line_total_est; # total of each line
|
||||
my $sub_total_est; # total of line totals
|
||||
my $sub_total_rrp; # total of line totals
|
||||
my $gist_est; # GST
|
||||
my $grand_total_est; # $subttotal + $gist
|
||||
|
||||
# my $line_total_est; # total of each line
|
||||
my $sub_total_est; # total of line totals
|
||||
my $sub_total_rrp; # total of line totals
|
||||
my $gist_est; # GST
|
||||
my $grand_total_est; # $subttotal + $gist
|
||||
|
||||
my $qty_total;
|
||||
my @books_loop;
|
||||
for ( my $i = 0 ; $i < $count ; $i++ ) {
|
||||
my $qty_total;
|
||||
my @books_loop;
|
||||
for ( my $i = 0 ; $i < $count ; $i++ ) {
|
||||
my $rrp = $results[$i]->{'listprice'};
|
||||
$rrp = ConvertCurrency( $results[$i]->{'currency'}, $rrp );
|
||||
$sub_total_rrp += $results[$i]->{'quantity'} * $results[$i]->{'rrp'};
|
||||
|
@ -140,7 +140,8 @@ for ( my $i = 0 ; $i < $count ; $i++ ) {
|
|||
$sub_total += $line_total;
|
||||
$qty_total += $results[$i]->{'quantity'};
|
||||
my %line;
|
||||
%line=%{$results[$i]};
|
||||
%line = %{ $results[$i] };
|
||||
|
||||
if ( $toggle == 0 ) {
|
||||
$line{color} = '#EEEEEE';
|
||||
$toggle = 1;
|
||||
|
@ -149,7 +150,8 @@ for ( my $i = 0 ; $i < $count ; $i++ ) {
|
|||
$line{color} = 'white';
|
||||
$toggle = 0;
|
||||
}
|
||||
$line{order_received} = ($results[$i]->{'quantity'} eq $results[$i]->{'quantityreceived'});
|
||||
$line{order_received} =
|
||||
( $results[$i]->{'quantity'} eq $results[$i]->{'quantityreceived'} );
|
||||
$line{publishercode} = $results[$i]->{'publishercode'};
|
||||
$line{basketno} = $basketno;
|
||||
$line{i} = $i;
|
||||
|
@ -158,18 +160,18 @@ for ( my $i = 0 ; $i < $count ; $i++ ) {
|
|||
$line{line_total} = sprintf( "%.2f", $line_total );
|
||||
$line{odd} = $i % 2;
|
||||
push @books_loop, \%line;
|
||||
}
|
||||
my $prefgist = C4::Context->preference("gist");
|
||||
$gist = sprintf( "%.2f", $sub_total * $prefgist );
|
||||
$grand_total = $sub_total;
|
||||
$grand_total_est = $sub_total_est;
|
||||
unless ($bookseller->{'listincgst'}) {
|
||||
}
|
||||
my $prefgist = C4::Context->preference("gist");
|
||||
$gist = sprintf( "%.2f", $sub_total * $prefgist );
|
||||
$grand_total = $sub_total;
|
||||
$grand_total_est = $sub_total_est;
|
||||
unless ( $bookseller->{'listincgst'} ) {
|
||||
$grand_total += $gist;
|
||||
$grand_total_est += sprintf( "%.2f", $sub_total_est * $prefgist );
|
||||
}
|
||||
my $grand_total_rrp = sprintf( "%.2f", $sub_total_rrp );
|
||||
$gist_est = sprintf( "%.2f", $sub_total_est * $prefgist );
|
||||
$template->param(
|
||||
}
|
||||
my $grand_total_rrp = sprintf( "%.2f", $sub_total_rrp );
|
||||
$gist_est = sprintf( "%.2f", $sub_total_est * $prefgist );
|
||||
$template->param(
|
||||
basketno => $basketno,
|
||||
creationdate => format_date( $basket->{creationdate} ),
|
||||
authorisedby => $basket->{authorisedby},
|
||||
|
@ -185,9 +187,9 @@ $template->param(
|
|||
entrydate => format_date( $results[0]->{'entrydate'} ),
|
||||
books_loop => \@books_loop,
|
||||
count => $count,
|
||||
sub_total => sprintf( "%.2f", $sub_total),
|
||||
sub_total => sprintf( "%.2f", $sub_total ),
|
||||
gist => $gist,
|
||||
grand_total => sprintf( "%.2f", $grand_total),
|
||||
grand_total => sprintf( "%.2f", $grand_total ),
|
||||
sub_total_est => $sub_total_est,
|
||||
gist_est => $gist_est,
|
||||
grand_total_est => $grand_total_est,
|
||||
|
@ -195,6 +197,6 @@ $template->param(
|
|||
currency => $bookseller->{'listprice'},
|
||||
qty_total => $qty_total,
|
||||
GST => $prefgist,
|
||||
);
|
||||
}
|
||||
);
|
||||
}
|
||||
output_html_with_http_headers $query, $cookie, $template->output;
|
||||
|
|
Loading…
Reference in a new issue