View | Details | Raw Unified | Return to bug 21674
Collapse All | Expand All

(-)a/installer/data/mysql/atomicupdate/bug_21674.perl (-1 / +13 lines)
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
- 

Return to bug 21674