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