- $template->param(
- AcqCreateItem => $AcqCreateItem,
- count => 1,
- biblionumber => $order->{'biblionumber'},
- ordernumber => $order->{'ordernumber'},
- biblioitemnumber => $order->{'biblioitemnumber'},
- booksellerid => $order->{'booksellerid'},
- freight => $freight,
- gstrate => $order->{gstrate} || $bookseller->{gstrate} || C4::Context->preference("gist") || 0,
- name => $bookseller->{'name'},
- date => format_date($order->{entrydate}),
- 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 => sprintf( "%.2f", $rrp ),
- ecost => sprintf( "%.2f", $ecost ),
- unitprice => sprintf( "%.2f", $unitprice),
- memberfirstname => $member->{firstname} || "",
- membersurname => $member->{surname} || "",
- invoiceid => $invoice->{invoiceid},
- invoice => $invoice->{invoicenumber},
- datereceived => $datereceived->output(),
- datereceived_iso => $datereceived->output('iso'),
- notes => $order->{notes},
- suggestionid => $suggestion->{suggestionid},
- surnamesuggestedby => $suggestion->{surnamesuggestedby},
- firstnamesuggestedby => $suggestion->{firstnamesuggestedby},
- );
-}
-else {
- my @loop;
- for ( my $i = 0 ; $i < $count ; $i++ ) {
- my %line = %{ @$results[$i] };
-
- $line{invoice} = $invoice->{invoicenumber};
- $line{datereceived} = $datereceived->output();
- $line{freight} = $freight;
- $line{gstrate} = @$results[$i]->{'gstrate'} || $bookseller->{gstrate} || C4::Context->preference("gist") || 0;
- $line{title} = @$results[$i]->{'title'};
- $line{author} = @$results[$i]->{'author'};
- $line{booksellerid} = $booksellerid;
- push @loop, \%line;
+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,
+ };