installer/data/mysql/atomicupdate/bug_18936.perl

   1 $DBversion = 'XXX';  # will be replaced by the RM
   2 if( CheckVersion( $DBversion ) ) {
   3         my @columns = qw(
   4                 restrictedtype
   5                 rentaldiscount
   6                 fine
   7                 finedays
   8                 maxsuspensiondays
   9                 firstremind
  10                 chargeperiod
  11                 chargeperiod_charge_at
  12                 accountsent
  13                 issuelength
  14                 lengthunit
  15                 hardduedate
  16                 hardduedatecompare
  17                 renewalsallowed
  18                 renewalperiod
  19                 norenewalbefore
  20                 auto_renew
  21                 no_auto_renewal_after
  22                 no_auto_renewal_after_hard_limit
  23                 reservesallowed
  24                 holds_per_record
  25                 overduefinescap
  26                 cap_fine_to_replacement_price
  27                 onshelfholds
  28                 opacitemholds
  29                 article_requests
  30         );
  31
  32     if ( column_exists( 'issuingrules', 'categorycode' ) ) {
  33                 foreach my $column ( @columns ) {
  34                         $dbh->do("
  35                                 INSERT INTO circulation_rules ( categorycode, branchcode, itemtype, rule_name, rule_value )
  36                                 SELECT categorycode, branchcode, itemtype, 'column', $column
  37                                 FROM issuingrules
  38                         ");
  39                 }
  40         $dbh->do("DROP TABLE issuingrules");
  41     }
  42
  43     SetVersion( $DBversion );
  44     print "Upgrade to $DBversion done (Bug 18930 - Move lost item refund rules to circulation_rules table)\n";
  45 }