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";