installer/data/mysql/db_revs/211200050.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "29924",
   5     description => "Add password expiration",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         unless( column_exists('categories', 'password_expiry_days') ){
  10             $dbh->do(q{
  11                 ALTER TABLE categories ADD password_expiry_days SMALLINT(5) NULL DEFAULT NULL AFTER enrolmentperioddate
  12             });
  13             say $out "Added password_expiry_days to categories";
  14         }
  15         unless( column_exists('borrowers', 'password_expiration_date') ){
  16             $dbh->do(q{
  17                 ALTER TABLE borrowers ADD password_expiration_date DATE NULL DEFAULT NULL AFTER dateexpiry
  18             });
  19             say $out "Added password_expiration_date field to borrowers";
  20         }
  21         unless( column_exists('deletedborrowers', 'password_expiration_date') ){
  22             $dbh->do(q{
  23                 ALTER TABLE deletedborrowers ADD password_expiration_date DATE NULL DEFAULT NULL AFTER dateexpiry
  24             });
  25             say $out "Added password_expiration_date field to borrowers";
  26         }
  27     },
  28 };