installer/data/mysql/atomicupdate/bug-34657-update-unimarc-123defg-plugins.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number  => "34657",
   5     description => "Update MARC frameworks to use renamed UNIMARC plugin",
   6     up          => sub {
   7         my ($args) = @_;
   8         my ( $dbh, $out ) = @$args{qw(dbh out)};
   9
  10         # Do you stuffs here
  11         $dbh->do(q{
  12             UPDATE `marc_subfield_structure` SET `value_builder` = 'unimarc_field_123defg.pl' WHERE (`value_builder` = 'unimarc_field_123d.pl' OR `value_builder` = 'unimarc_field_123e.pl' OR `value_builder` = 'unimarc_field_123f.pl' OR `value_builder` = 'unimarc_field_123g.pl' );
  13         });
  14
  15         say $out "Update complete: MARC subfields which were configured to use unimarc_field123d.pl, unimarc_field123e.pl, unimarc_field123f.pl, or unimarc_field123g.pl will now use unimarc_field123defg.pl";
  16
  17     },
  18 };