use strict;
-use Smart::Comments;
-
+# use Smart::Comments;
use vars qw($VERSION @ISA @EXPORT);
=head3 ModBookFund
-&ModBookFund($bookfundname,$branchcode,$bookfundid);
-this function update the bookfundname and the branchcode on aqbookfund table
-on database.
+&ModBookFund($bookfundname,$bookfundid,$current_branch, $branchcode) =
+this function update the bookfundname and the branchcode on aqbookfund table on database.
=cut
### $retval
# budgets depending on a bookfund must have the same branchcode
- # if the bookfund branchcode is set
+
+ # if the bookfund branchcode is set, and previous update is successfull, then update aqbudget.branchcode too.
if (defined $branchcode && $retval > 0) {
my $query = "UPDATE aqbudget
SET branchcode = ?