Bug 5742 follow-up permissions for RU and UK languages
[koha.git] / installer / data / mysql / atomicupdate / bug_7144-add-returnbranch-to-branch-item-issuing-rules.pl
1 #! /usr/bin/perl
2 use strict;
3 use warnings;
4 use C4::Context;
5 my $dbh=C4::Context->dbh;
6
7 $dbh->do("ALTER TABLE default_circ_rules ADD
8                 COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
9 $dbh->do("ALTER TABLE branch_item_rules ADD
10                 COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
11 $dbh->do("ALTER TABLE default_branch_circ_rules ADD
12                 COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
13 $dbh->do("ALTER TABLE default_branch_item_rules ADD
14                 COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
15
16 # set the default rule to the current value of HomeOrHoldingBranchReturn (default to 'homebranch' if need be)
17 my $homeorholdingbranchreturn = C4::Context->prefernce('HomeOrHoldingBranchReturn') || 'homebranch';
18 $dbh->do("UPDATE default_circ_rules SET returnbranch = '$homeorholdingbranchreturn'");
19
20 print "Upgrade done (Adding 'returnbranch' to branch/item issuing rules tables)\n";