@@ -, +, @@ --- C4/Circulation.pm | 11 +++++++---- admin/branch_transfer_limits.pl | 3 ++- 2 files changed, 9 insertions(+), 5 deletions(-) --- a/C4/Circulation.pm +++ a/C4/Circulation.pm @@ -2974,14 +2974,17 @@ sub CreateBranchTransferLimit { =head2 DeleteBranchTransferLimits - DeleteBranchTransferLimits(); +DeleteBranchTransferLimits($frombranch); + +Deletes all the branch transfer limits for one branch =cut sub DeleteBranchTransferLimits { - my $dbh = C4::Context->dbh; - my $sth = $dbh->prepare("TRUNCATE TABLE branch_transfer_limits"); - $sth->execute(); + my $branch = shift; + my $dbh = C4::Context->dbh; + my $sth = $dbh->prepare("DELETE FROM branch_transfer_limits WHERE fromBranch = ?"); + $sth->execute($branch); } sub ReturnLostItem{ --- a/admin/branch_transfer_limits.pl +++ a/admin/branch_transfer_limits.pl @@ -93,7 +93,8 @@ while ( my $row = $sth->fetchrow_hashref ) { ## If Form Data Passed, Update the Database if ( $input->param('updateLimits') ) { - DeleteBranchTransferLimits(); + DeleteBranchTransferLimits($branchcode); + foreach my $code ( @codes ) { foreach my $toBranch ( @branchcodes ) { --