installer/data/mysql/db_revs/220600012.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "24010",
   5     description => "Make subscription.staffdisplaycount and opacdisplaycount integer columns",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9
  10         $dbh->do(q{
  11             UPDATE subscription
  12             SET staffdisplaycount = NULL
  13             WHERE staffdisplaycount = ""
  14         });
  15         $dbh->do(q{
  16             ALTER TABLE subscription
  17             MODIFY COLUMN staffdisplaycount INT(11) NULL DEFAULT NULL
  18             COMMENT 'how many issues to show to the staff'
  19         });
  20
  21         $dbh->do(q{
  22             UPDATE subscription
  23             SET opacdisplaycount = NULL
  24             WHERE opacdisplaycount = ""
  25         });
  26         $dbh->do(q{
  27             ALTER TABLE subscription
  28             MODIFY COLUMN opacdisplaycount INT(11) NULL DEFAULT NULL
  29             COMMENT 'how many issues to show to the public'
  30         });
  31     },
  32 };