+
+$template->param(
+ AcqCreateItem => $AcqCreateItem,
+ count => 1,
+ biblionumber => $order->{'biblionumber'},
+ ordernumber => $order->{'ordernumber'},
+ subscriptionid => $order->{subscriptionid},
+ booksellerid => $order->{'booksellerid'},
+ freight => $freight,
+ name => $bookseller->name,
+ cur_active_sym => $active_currency->symbol,
+ cur_active => $active_currency->currency,
+ listincgst => $bookseller->listincgst,
+ invoiceincgst => $bookseller->invoiceincgst,
+ title => $order->{'title'},
+ author => $order->{'author'},
+ copyrightdate => $order->{'copyrightdate'},
+ isbn => $order->{'isbn'},
+ seriestitle => $order->{'seriestitle'},
+ bookfund => $budget->{budget_name},
+ quantity => $order->{'quantity'},
+ quantityreceivedplus1 => $order->{'quantityreceived'} + 1,
+ quantityreceived => $order->{'quantityreceived'},
+ rrp => $rrp,
+ replacementprice => $order->{'replacementprice'},
+ ecost => $ecost,
+ unitprice => $unitprice,
+ tax_rate => $tax_rate,
+ creator => $creator,
+ invoiceid => $invoice->{invoiceid},
+ invoice => $invoice->{invoicenumber},
+ datereceived => $datereceived,
+ order_internalnote => $order_internalnote,
+ order_vendornote => $order_vendornote,
+ suggestionid => $suggestion->{suggestionid},
+ surnamesuggestedby => $suggestion->{surnamesuggestedby},
+ firstnamesuggestedby => $suggestion->{firstnamesuggestedby},
+ gst_values => \@gst_values,
+);
+
+my $patron = Koha::Patrons->find( $loggedinuser )->unblessed;
+my @budget_loop;
+my $periods = GetBudgetPeriods( );
+foreach my $period (@$periods) {
+ if ($period->{'budget_period_id'} == $budget->{'budget_period_id'}) {
+ $template->{'VARS'}->{'budget_period_description'} = $period->{'budget_period_description'};
+ }
+ next if $period->{'budget_period_locked'} || !$period->{'budget_period_description'};
+ my $budget_hierarchy = GetBudgetHierarchy( $period->{'budget_period_id'} );
+ my @funds;
+ foreach my $r ( @{$budget_hierarchy} ) {
+ next unless ( CanUserUseBudget( $patron, $r, $userflags ) );
+ if ( !defined $r->{budget_amount} || $r->{budget_amount} == 0 ) {
+ next;
+ }
+ push @funds,
+ {
+ b_id => $r->{budget_id},
+ b_txt => $r->{budget_name},
+ b_sel => ( $r->{budget_id} == $order->{budget_id} ) ? 1 : 0,
+ };