5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
21 # This script clones issuing rules from a library to another
23 # - frombranch : the branch we want to clone issuing rules from
24 # - tobranch : the branch we want to clone issuing rules to
26 # The script can be called with one of the parameters, both or none
35 use Koha::CirculationRules;
38 my $dbh = C4::Context->dbh;
40 my ($template, $loggedinuser, $cookie)
41 = get_template_and_user({template_name => "admin/clone-rules.tt",
45 flagsrequired => {parameters => 'manage_circ_rules'},
49 my $frombranch = $input->param("frombranch");
50 my $tobranch = $input->param("tobranch");
52 $template->param(frombranch => $frombranch) if ($frombranch);
53 $template->param(tobranch => $tobranch) if ($tobranch);
55 if ($frombranch && $tobranch) {
59 # First, we create a temporary table with the rules we want to clone
60 my $query = "CREATE TEMPORARY TABLE tmpissuingrules ENGINE=memory SELECT * FROM issuingrules WHERE branchcode=?";
61 my $sth = $dbh->prepare($query);
62 my $res = $sth->execute($frombranch);
63 $error = 1 unless ($res);
66 # We modify these rules according to the new branchcode
67 $query = "UPDATE tmpissuingrules SET branchcode=? WHERE branchcode=?";
68 $sth = $dbh->prepare($query);
69 $res = $sth->execute($tobranch, $frombranch);
70 $error = 1 unless ($res);
74 # We delete the rules for the existing branchode
75 $query = "DELETE FROM issuingrules WHERE branchcode=?";
76 $sth = $dbh->prepare($query);
77 $res = $sth->execute($tobranch);
78 $error = 1 unless ($res);
83 # We insert the new rules from our temporary table
84 $query = "INSERT INTO issuingrules SELECT * FROM tmpissuingrules WHERE branchcode=?";
85 $sth = $dbh->prepare($query);
86 $res = $sth->execute($tobranch);
87 $error = 1 unless ($res);
90 # Finally, we delete our temporary table
91 $query = "DROP TABLE tmpissuingrules";
92 $sth = $dbh->prepare($query);
93 $res = $sth->execute();
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;
105 $template->param(result => "1");
106 $template->param(error => $error);
111 output_html_with_http_headers $input, $cookie, $template->output;