Line 0
Link Here
|
0 |
- |
1 |
$DBversion = 'XXX'; # will be replaced by the RM |
|
|
2 |
if( CheckVersion( $DBversion ) ) { |
3 |
|
4 |
|
5 |
# On a new installation the class_sources.sql will have failed, so we need to add all missing data |
6 |
|
7 |
my( $sort_cnt ) = $dbh->selectrow_array( q|SELECT COUNT(*) FROM class_sort_rules|); |
8 |
if( !$sort_cnt ) { |
9 |
$dbh->do(q|INSERT INTO `class_sort_rules` (`class_sort_rule`, `description`, `sort_routine`) VALUES |
10 |
('dewey', 'Default filing rules for DDC', 'Dewey'), |
11 |
('lcc', 'Default filing rules for LCC', 'LCC'), |
12 |
('generic', 'Generic call number filing rules', 'Generic') |
13 |
|); |
14 |
} |
15 |
|
16 |
my ( $split_cnt ) = $dbh->selectrow_array( q|SELECT COUNT(*) FROM class_split_rules|); |
17 |
if( !$split_cnt ) { |
18 |
$dbh->do(q|INSERT INTO `class_split_rules` (`class_split_rule`, `description`, `split_routine`) VALUES |
19 |
('dewey', 'Default splitting rules for DDC', 'Dewey'), |
20 |
('lcc', 'Default splitting rules for LCC', 'LCC'), |
21 |
('generic', 'Generic call number splitting rules', 'Generic') |
22 |
|); |
23 |
} |
24 |
|
25 |
my( $source_cnt ) = $dbh->selectrow_array( q|SELECT COUNT(*) FROM class_sources|); |
26 |
if( !$source_cnt ) { |
27 |
$dbh->do(q|INSERT INTO `class_sources` (`cn_source`, `description`, `used`, `class_sort_rule`, `class_split_rule`) VALUES |
28 |
('ddc', 'Dewey Decimal Classification', 1, 'dewey', 'dewey'), |
29 |
('lcc', 'Library of Congress Classification', 1, 'lcc', 'lcc'), |
30 |
('udc', 'Universal Decimal Classification', 0, 'generic', 'generic'), |
31 |
('sudocs', 'SuDoc Classification (U.S. GPO)', 0, 'generic', 'generic'), |
32 |
('anscr', 'ANSCR (Sound Recordings)', 0, 'generic', 'generic'), |
33 |
('z', 'Other/Generic Classification Scheme', 0, 'generic', 'generic') |
34 |
|); |
35 |
|
36 |
} |
37 |
|
38 |
SetVersion( $DBversion ); |
39 |
print "Upgrade to $DBversion done (Bug 22024 - Add missing splitting rule definitions)\n"; |
40 |
} |