installer/data/mysql/db_revs/220600016.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "28854",
   5     description => "Add new unique index to return claims",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         if ( !unique_key_exists('return_claims', 'item_issue') ) {
  10             $dbh->do(q{
  11                 ALTER TABLE return_claims
  12                 ADD UNIQUE KEY item_issue (`itemnumber`,`issue_id`)
  13             });
  14             say $out "item_issue index added to return_claims";
  15         }
  16     },
  17 };