Lines 1781-1786
sub GetHistory {
Link Here
|
1781 |
aqorders.ordernumber, |
1781 |
aqorders.ordernumber, |
1782 |
aqorders.booksellerinvoicenumber as invoicenumber, |
1782 |
aqorders.booksellerinvoicenumber as invoicenumber, |
1783 |
aqbooksellers.id as id, |
1783 |
aqbooksellers.id as id, |
|
|
1784 |
aqorders.branch, |
1785 |
aqorders.budget_id, |
1784 |
aqorders.biblionumber |
1786 |
aqorders.biblionumber |
1785 |
FROM aqorders |
1787 |
FROM aqorders |
1786 |
LEFT JOIN aqbasket ON aqorders.basketno=aqbasket.basketno |
1788 |
LEFT JOIN aqbasket ON aqorders.basketno=aqbasket.basketno |
Lines 1863-1868
sub GetHistory {
Link Here
|
1863 |
$total_qty += $line->{'quantity'}; |
1865 |
$total_qty += $line->{'quantity'}; |
1864 |
$total_qtyreceived += $line->{'quantityreceived'}; |
1866 |
$total_qtyreceived += $line->{'quantityreceived'}; |
1865 |
$total_price += $line->{'quantity'} * $line->{'ecost'}; |
1867 |
$total_price += $line->{'quantity'} * $line->{'ecost'}; |
|
|
1868 |
my $budget = C4::Budgets::GetBudget($line->{budget_id}); |
1869 |
$line->{budget_name} = $budget->{budget_name} if $budget; |
1870 |
$line->{branchname} = C4::Branch::GetBranchName($line->{branch}); |
1866 |
} |
1871 |
} |
1867 |
return \@order_loop, $total_qty, $total_price, $total_qtyreceived; |
1872 |
return \@order_loop, $total_qty, $total_price, $total_qtyreceived; |
1868 |
} |
1873 |
} |