kohabug 2390 Setting default fund for new orders

[koha.git] / acqui / neworderempty.pl

diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl
index 103f98d..1340543 100755 (executable)
--- a/acqui/neworderempty.pl
+++ b/acqui/neworderempty.pl
@@ -186,7 +186,7 @@ my $CGIbookfund = CGI::scrolling_list(
     -name     => 'bookfund',
        -id       => 'bookfund',
     -values   => \@select_bookfund,
-    -default  => $data->{'bookfundid'},
+    -default  => ($data->{'bookfundid'} ? $data->{'bookfundid'} : $select_bookfund[0]),
     -labels   => \%select_bookfunds,
        #-size     => 1,
        -tabindex =>'',