installer/data/mysql/db_revs/221200037.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "31212",
   5     description => "Update items.datelastseen and deleteditems.datelastseen to datetime data format",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         $dbh->do(q{
  10             ALTER TABLE `items` MODIFY COLUMN `datelastseen` DATETIME DEFAULT NULL
  11         });
  12         $dbh->do(q{
  13             ALTER TABLE `deleteditems` MODIFY COLUMN `datelastseen` DATETIME DEFAULT NULL
  14         });
  15         say $out "items and deleteditems table updated";
  16     },
  17 };