Lines 2938-2951
sub CreateBranchTransferLimit {
Link Here
|
2938 |
|
2938 |
|
2939 |
=head2 DeleteBranchTransferLimits |
2939 |
=head2 DeleteBranchTransferLimits |
2940 |
|
2940 |
|
2941 |
DeleteBranchTransferLimits(); |
2941 |
DeleteBranchTransferLimits($frombranch); |
|
|
2942 |
|
2943 |
Deletes all the branch transfer limits for one branch |
2942 |
|
2944 |
|
2943 |
=cut |
2945 |
=cut |
2944 |
|
2946 |
|
2945 |
sub DeleteBranchTransferLimits { |
2947 |
sub DeleteBranchTransferLimits { |
2946 |
my $dbh = C4::Context->dbh; |
2948 |
my $branch = shift; |
2947 |
my $sth = $dbh->prepare("TRUNCATE TABLE branch_transfer_limits"); |
2949 |
my $dbh = C4::Context->dbh; |
2948 |
$sth->execute(); |
2950 |
my $sth = $dbh->prepare("DELETE FROM branch_transfer_limits WHERE fromBranch = ?"); |
|
|
2951 |
$sth->execute($branch); |
2949 |
} |
2952 |
} |
2950 |
|
2953 |
|
2951 |
sub ReturnLostItem{ |
2954 |
sub ReturnLostItem{ |