Line 0
Link Here
|
0 |
- |
1 |
$DBversion = 'XXX'; |
|
|
2 |
if( CheckVersion( $DBversion ) ) { |
3 |
|
4 |
$dbh->do(q| |
5 |
INSERT IGNORE INTO keyboard_shortcuts (shortcut_name, shortcut_keys) VALUES |
6 |
("insert_copyright","Alt-C"), |
7 |
("insert_copyright_sound","Alt-P"), |
8 |
("insert_delimiter","Ctrl-D"), |
9 |
("subfield_help","Ctrl-H"), |
10 |
("link_authorities","Shift-Ctrl-L"), |
11 |
("delete_field","Ctrl-X"), |
12 |
("delete_subfield","Shift-Ctrl-X"), |
13 |
("new_line","Enter"), |
14 |
("line_break","Shift-Enter"), |
15 |
("next_position","Tab"), |
16 |
("prev_position","Shift-Tab"), |
17 |
("toggle_keyboard", "Shift-Ctrl-K") |
18 |
;|); |
19 |
|
20 |
SetVersion( $DBversion ); |
21 |
print "Upgrade to $DBversion done (Bug 23396 - Fix missing keyboard_shortcuts table)\n"; |
22 |
} |