- $template->param(
- count => 1,
- biblionumber => @$results[0]->{'biblionumber'},
- ordernumber => @$results[0]->{'ordernumber'},
- biblioitemnumber => @$results[0]->{'biblioitemnumber'},
- supplierid => @$results[0]->{'booksellerid'},
- freight => $freight,
- gst => $gst,
- name => $bookseller->{'name'},
- date => format_date($date),
- title => @$results[0]->{'title'},
- author => @$results[0]->{'author'},
- copyrightdate => @$results[0]->{'copyrightdate'},
- isbn => @$results[0]->{'isbn'},
- seriestitle => @$results[0]->{'seriestitle'},
- bookfund => @$results[0]->{'bookfundid'},
- quantity => @$results[0]->{'quantity'},
- quantityreceivedplus1 => @$results[0]->{'quantityreceived'} + 1,
- quantityreceived => @$results[0]->{'quantityreceived'},
- rrp => @$results[0]->{'rrp'},
- ecost => @$results[0]->{'ecost'},
- unitprice => @$results[0]->{'unitprice'},
- invoice => $invoice,
- datereceived => $datereceived->output(),
- datereceived_iso => $datereceived->output('iso'),
- notes => $order->{notes}
- );
-}
-else {
- my @loop;
- for ( my $i = 0 ; $i < $count ; $i++ ) {
- my %line = %{ @$results[$i] };
-
- $line{invoice} = $invoice;
- $line{datereceived} = $datereceived->output();
- $line{freight} = $freight;
- $line{gst} = $gst;
- $line{title} = @$results[$i]->{'title'};
- $line{author} = @$results[$i]->{'author'};
- $line{supplierid} = $supplierid;
- push @loop, \%line;
+ }
+
+my $suggestion = GetSuggestionInfoFromBiblionumber($order->{biblionumber});
+
+my $authorisedby = $order->{authorisedby};
+my $member = GetMember( borrowernumber => $authorisedby );
+
+my $budget = GetBudget( $order->{budget_id} );
+
+$template->param(
+ AcqCreateItem => $AcqCreateItem,
+ count => 1,
+ biblionumber => $order->{'biblionumber'},
+ ordernumber => $order->{'ordernumber'},
+ subscriptionid => $order->{subscriptionid},
+ booksellerid => $order->{'booksellerid'},
+ freight => $freight,
+ 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 ),
+ memberfirstname => $member->{firstname} || "",
+ membersurname => $member->{surname} || "",
+ invoiceid => $invoice->{invoiceid},
+ invoice => $invoice->{invoicenumber},
+ datereceived => $datereceived->output(),
+ datereceived_iso => $datereceived->output('iso'),
+ order_internalnote => $order->{order_internalnote},
+ order_vendornote => $order->{order_vendornote},
+ suggestionid => $suggestion->{suggestionid},
+ surnamesuggestedby => $suggestion->{surnamesuggestedby},
+ firstnamesuggestedby => $suggestion->{firstnamesuggestedby},
+);
+
+my $borrower = GetMember( 'borrowernumber' => $loggedinuser );
+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( $borrower, $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,
+ };