installer/data/mysql/db_revs/211200038.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "29648",
   5     description => "Move NumSavedReports to table settings and allow tables_settings.default_display_length to be NULL",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9
  10         $dbh->do(q{
  11             ALTER TABLE tables_settings
  12             MODIFY COLUMN default_display_length smallint(6) DEFAULT NULL
  13         });
  14
  15         my $NumSavedReports = C4::Context->preference('NumSavedReports');
  16         $dbh->do(q{
  17             DELETE FROM systempreferences
  18             WHERE variable="NumSavedReports"
  19         });
  20
  21         if ( $NumSavedReports ) {
  22             $dbh->do(q{
  23                 INSERT IGNORE INTO tables_settings (module, page, tablename, default_display_length, default_sort_order)
  24                 VALUES('reports', 'saved-sql', 'table_reports', ?, 1)
  25             }, undef, $NumSavedReports);
  26             say $out "NumSavedReports value '$NumSavedReports' moved to table settings";
  27         }
  28     },
  29 };