Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Modbookfund() now correctly updating all aqbudget.branchcode's linked to mod-ed bookfund

Browse source 
Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Mason James 2007-10-31 19:57:29 -05:00 committed by Joshua Ferraro
parent 8e76a806bc
commit 98683262ca
1 changed files with 18 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

49
C4/Bookfund.pm
View file

@ -19,6 +19,7 @@ package C4::Bookfund;
use strict;
use Smart::Comments;
use vars qw($VERSION @ISA @EXPORT);
@ -321,50 +322,36 @@ on database.
=cut
sub ModBookFund {
my ($bookfundname,$bookfundid,$current_branch, $branchcode) = @_;
my $dbh = C4::Context->dbh;
=c
my $query = "
UPDATE aqbookfund
SET bookfundname = ?,
branchcode = ?
WHERE bookfundid = ?
AND branchcode= ?
";
warn "$bookfundname,$branchcode, $bookfundid,$current_branch";
my $sth=$dbh->prepare($query);
$sth->execute($bookfundname,"$branchcode", $bookfundid,"$current_branch");
=cut
my $retval = $dbh->do('
my $retval = $dbh->do("
UPDATE aqbookfund
SET bookfundname = $bookfundname,
branchcode = $branchcode
WHERE bookfundid = $bookfundid
AND branchcode= $current_branch
');
SET bookfundname = '$bookfundname',
branchcode = '$branchcode'
WHERE bookfundid = '$bookfundid'
AND branchcode = '$current_branch'
");
warn "$bookfundname,$branchcode, $bookfundid,$current_branch";
### $retval
### $retval
# budgets depending on a bookfund must have the same branchcode
# if the bookfund branchcode is set
if (defined $branchcode) {
$query = "
UPDATE aqbudget
# budgets depending on a bookfund must have the same branchcode
# if the bookfund branchcode is set
if (defined $branchcode && $retval > 0) {
my $query = "UPDATE aqbudget
SET branchcode = ?
WHERE bookfundid = ?
";
$sth=$dbh->prepare($query);
WHERE bookfundid = ? ";
my $sth=$dbh->prepare($query);
$sth->execute($branchcode, $bookfundid) ;
}
}
#-------------------------------------------------------------#
=head3 SearchBookFund