|
Lines 1-6
Link Here
|
| 1 |
$DBversion = 'XXX'; # will be replaced by the RM |
1 |
$DBversion = 'XXX'; # will be replaced by the RM |
| 2 |
if( CheckVersion( $DBversion ) ) { |
2 |
if( CheckVersion( $DBversion ) ) { |
| 3 |
if( !index_exists( 'library_groups', 'library_groups_uniq_2' ) ) { |
3 |
if( !index_exists( 'library_groups', 'library_groups_uniq_2' ) ) { |
|
|
4 |
my $library_groups = $dbh->selectall_arrayref(q|SELECT id, parent_id, branchcode FROM library_groups|, { Slice => {} }); |
| 5 |
my %existing_groups; |
| 6 |
for my $g ( @$library_groups ) { |
| 7 |
|
| 8 |
next unless $g->{parent_id}; |
| 9 |
|
| 10 |
unless ( exists $existing_groups{$g->{parent_id}}{$g->{branchcode}} ) { |
| 11 |
$existing_groups{$g->{parent_id}}{$g->{branchcode}} = 1; |
| 12 |
next; |
| 13 |
} |
| 14 |
|
| 15 |
$dbh->do(q|DELETE FROM library_groups WHERE id=?|, undef, $g->{id}); |
| 16 |
} |
| 4 |
$dbh->do(q| |
17 |
$dbh->do(q| |
| 5 |
ALTER TABLE library_groups |
18 |
ALTER TABLE library_groups |
| 6 |
ADD UNIQUE KEY library_groups_uniq_2 (parent_id, branchcode) |
19 |
ADD UNIQUE KEY library_groups_uniq_2 (parent_id, branchcode) |
| 7 |
- |
|
|