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

Working on fixing bug for acquisition bookfund modifying, work in progress

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:28 -05:00 committed by Joshua Ferraro
parent bd5ee4c5b2
commit 8e76a806bc
1 changed files with 28 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
C4/Bookfund.pm
View file

@ -322,26 +322,46 @@ on database.
=cut
sub ModBookFund {
my ($bookfundname,$bookfundid,$branchcode) = @_;
my ($bookfundname,$bookfundid,$current_branch, $branchcode) = @_;
my $dbh = C4::Context->dbh;
=c
my $query = "
UPDATE aqbookfund
SET bookfundname = ?
SET bookfundname = ?,
branchcode = ?
WHERE bookfundid = ?
AND branchcode= ?
";
warn "name : $bookfundname";
warn "$bookfundname,$branchcode, $bookfundid,$current_branch";
my $sth=$dbh->prepare($query);
$sth->execute($bookfundname,$bookfundid,"$branchcode");
$sth->execute($bookfundname,"$branchcode", $bookfundid,"$current_branch");
=cut
my $retval = $dbh->do('
UPDATE aqbookfund
SET bookfundname = $bookfundname,
branchcode = $branchcode
WHERE bookfundid = $bookfundid
AND branchcode= $current_branch
');
warn "$bookfundname,$branchcode, $bookfundid,$current_branch";
### $retval
# budgets depending on a bookfund must have the same branchcode
# if the bookfund branchcode is set
if (defined $branchcode) {
$query = "
UPDATE aqbudget
SET branchcode = ?
UPDATE aqbudget
SET branchcode = ?
WHERE bookfundid = ?
";
$sth=$dbh->prepare($query);
$sth->execute($branchcode);
$sth->execute($branchcode, $bookfundid) ;
}
}
@ -445,7 +465,7 @@ sub Countbookfund {
AND branchcode = ?
";
my $sth = $dbh->prepare($query);
$sth->execute($bookfundid,$branchcode);
$sth->execute($bookfundid,"$branchcode");
return $sth->fetchrow;
}