installer/data/mysql/atomicupdate/bug_24080.perl

   1 $DBversion = 'XXX';    # will be replaced by the RM
   2 if ( CheckVersion($DBversion) ) {
   3
   4     $dbh->do(
   5         qq{
   6             INSERT IGNORE INTO account_debit_types (
   7               code,
   8               description,
   9               can_be_added_manually,
  10               default_amount,
  11               is_system
  12             )
  13             VALUES
  14               ('PAYOUT', 'Payment from library to patron', 0, NULL, 1)
  15         }
  16     );
  17
  18     $dbh->do(qq{
  19         INSERT IGNORE INTO account_offset_types ( type ) VALUES ('PAYOUT');
  20     });
  21
  22     $dbh->do(qq{
  23         INSERT IGNORE permissions (module_bit, code, description)
  24         VALUES
  25         (10, 'payout', 'Perform account payout action')
  26     });
  27
  28     SetVersion($DBversion);
  29     print "Upgrade to $DBversion done (Bug 24080 - Add PAYOUT account_debit_type)\n";
  30     print "Upgrade to $DBversion done (Bug 24080 - Add PAYOUT account_offset_type)\n";
  31     print "Upgrade to $DBversion done (Bug 24080 - Add accounts payout permission)\n";
  32 }