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

(-)a/installer/data/mysql/atomicupdate/bug_37954.pl (-5 / +3 lines)
Lines 1-5 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
use Koha::Installer::Output qw(say_warning say_failure say_success say_info);
3
2
4
return {
3
return {
5
    bug_number  => "37954",
4
    bug_number  => "37954",
Lines 14-20 return { Link Here
14
        }
13
        }
15
        );
14
        );
16
        if ($existing_holdings_barcode_setting) {
15
        if ($existing_holdings_barcode_setting) {
17
            say_info( $out, "Settings already exist" );
16
            say $out "Settings already exist";
18
        } else {
17
        } else {
19
            my ( $cannot_be_toggled, $is_hidden ) = $dbh->selectrow_array(
18
            my ( $cannot_be_toggled, $is_hidden ) = $dbh->selectrow_array(
20
                q{
19
                q{
Lines 29-37 return { Link Here
29
                    ('catalogue', 'detail', 'holdings_table', 'holdings_barcode', $cannot_be_toggled, $is_hidden )
28
                    ('catalogue', 'detail', 'holdings_table', 'holdings_barcode', $cannot_be_toggled, $is_hidden )
30
                }
29
                }
31
                );
30
                );
32
                say_success( $out, "Settings moved to holdings_barcode" );
31
                say $out "Settings moved to holdings_barcode";
33
            } else {
32
            } else {
34
                say_info( $out, "No settings for holdings_barcodes found" );
33
                say $out "No settings for holdings_barcodes found";
35
            }
34
            }
36
        }
35
        }
37
        $dbh->do(
36
        $dbh->do(
38
- 

Return to bug 37954