From 9893fa198bba78b0e43155dbceb57a955cada9d7 Mon Sep 17 00:00:00 2001 From: Mason James Date: Wed, 31 Oct 2007 19:57:32 -0500 Subject: [PATCH] bug-1494, fixed bookfund modify code Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/Bookfund.pm | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/C4/Bookfund.pm b/C4/Bookfund.pm index 553180a8f1..7c00067501 100644 --- a/C4/Bookfund.pm +++ b/C4/Bookfund.pm @@ -19,8 +19,7 @@ package C4::Bookfund; use strict; -use Smart::Comments; - +# use Smart::Comments; use vars qw($VERSION @ISA @EXPORT); @@ -316,9 +315,8 @@ sub NewBookFund{ =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 @@ -339,7 +337,8 @@ sub ModBookFund { ### $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 = ? -- 2.39.5