Working on fixing bug for acquisition bookfund modifying, work in progress
Signed-off-by: Chris Cormack <crc@liblime.com> Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
parent
bd5ee4c5b2
commit
8e76a806bc
1 changed files with 28 additions and 8 deletions
|
@ -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 = ?
|
||||
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;
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in a new issue