From: Chris Nighswonger <chris.nighswonger@liblime.com>
Date: Fri, 25 Jul 2008 15:37:49 +0000 (-0500)
Subject: kohabug 2390 Setting default fund for new orders
X-Git-Tag: ffzg~43
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=a6c829e2bf706379305d4aa961e3cc29653b8bd4;p=koha.git

kohabug 2390 Setting default fund for new orders

If a new order was created and no fund selected, a db error was thrown due to the
'bookfundid' field being set to NULL. This patch sets the first fund retrieved from
available funds as the default selection in the scrolling list.

A further enhancement might be to allow the library to choose which fund is the
default fund.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---

diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl
index 103f98dc85..1340543d3b 100755
--- 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 =>'',