installer/data/mysql/atomicupdate/bug_31569.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "31569",
   5     description => "Add primary key for import_biblios",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         unless( primary_key_exists('import_biblios') ){
  10             $dbh->do(q{ALTER TABLE import_biblios ADD PRIMARY KEY (import_record_id)});
  11             say $out "Added primary key to import_biblios table";
  12         }
  13     },
  14 };