=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) ;
}
}
AND branchcode = ?
";
my $sth = $dbh->prepare($query);
- $sth->execute($bookfundid,$branchcode);
+ $sth->execute($bookfundid,"$branchcode");
return $sth->fetchrow;
}