|
Lines 32-37
use C4::Output;
Link Here
|
| 32 |
use C4::Auth; |
32 |
use C4::Auth; |
| 33 |
use C4::Koha; |
33 |
use C4::Koha; |
| 34 |
use C4::Debug; |
34 |
use C4::Debug; |
|
|
35 |
use Koha::CirculationRules; |
| 35 |
|
36 |
|
| 36 |
my $input = new CGI; |
37 |
my $input = new CGI; |
| 37 |
my $dbh = C4::Context->dbh; |
38 |
my $dbh = C4::Context->dbh; |
|
Lines 91-96
if ($frombranch && $tobranch) {
Link Here
|
| 91 |
$sth = $dbh->prepare($query); |
92 |
$sth = $dbh->prepare($query); |
| 92 |
$res = $sth->execute(); |
93 |
$res = $sth->execute(); |
| 93 |
|
94 |
|
|
|
95 |
# For already moved rules, maxissueqty and maxonsiteissueqty |
| 96 |
Koha::CirculationRules->search({branchcode => $tobranch})->delete; |
| 97 |
my $rules = Koha::CirculationRules->search({ branchcode => $frombranch eq '*' ? undef : $frombranch }); |
| 98 |
while ( my $rule = $rules->next ) { |
| 99 |
my $cloned_rule = $rule->unblessed; |
| 100 |
$cloned_rule->{branchcode} = $tobranch; |
| 101 |
delete $cloned_rule->{id}; |
| 102 |
Koha::CirculationRule->new( $cloned_rule )->store; |
| 103 |
} |
| 104 |
|
| 94 |
$template->param(result => "1"); |
105 |
$template->param(result => "1"); |
| 95 |
$template->param(error => $error); |
106 |
$template->param(error => $error); |
| 96 |
} |
107 |
} |
| 97 |
- |
|
|