installer/data/mysql/atomicupdate/add_keyboard_shortcuts.perl

   1 $DBversion = 'XXX';
   2 if( CheckVersion( $DBversion ) ) {
   3     unless ( TableExists( 'keyboard_shortcuts' ) ) {
   4         $dbh->do(q|
   5             CREATE TABLE keyboard_shortcuts (
   6             shortcut_name varchar(80) NOT NULL,
   7             shortcut_keys varchar(80) NOT NULL,
   8             shortcut_desc varchar(200) NOT NULL,
   9             PRIMARY KEY (shortcut_name)
  10             ) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;|
  11         );
  12     }
  13     $dbh->do(q|
  14         INSERT IGNORE INTO keyboard_shortcuts (shortcut_name, shortcut_keys, shortcut_desc) VALUES
  15         ("insert_copyright","Alt-C","Insert copyright symbol (©)"),
  16         ("insert_copyright_sound","Alt-P","Insert copyright symbol (℗) (sound recordings)"),
  17         ("insert_delimiter","Ctrl-D","Insert delimiter (‡)"),
  18         ("subfield_help","Ctrl-H","Get help on current subfield"),
  19         ("link_authorities","Shift-Ctrl-L","Link field to authorities"),
  20         ("delete_field","Ctrl-X","Delete current field"),
  21         ("delete_subfield","Shift-Ctrl-X","Delete current subfield"),
  22         ("new_line","Enter","New field on next line"),
  23         ("line_break","Shift-Enter","Insert line break"),
  24         ("next_position","Tab","Move to next position"),
  25         ("prev_position","Shift-Tab","Move to previous position")
  26         ;|
  27     );
  28     SetVersion( $DBversion );
  29     print "Upgrade to $DBversion done (Bug XXXXX - Add keyboard_shortcuts table)\n";
  30 }