|
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{ |