Attachment #174239 for bug #38394

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

Lines 1-5 Link Here

(-)a/installer/data/mysql/atomicupdate/skeleton.pl (-2 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "BUG_NUMBER",	5	bug_number => "BUG_NUMBER",
Lines 31-37 return { Link Here
31	say $out "Added 'XXX' HTML customization";	31	say $out "Added 'XXX' HTML customization";
32		32
33	# Other information	33	# Other information
34	say_failure( $out, "Use red for danger/failure" );
35	say_success( $out, "Use green for success" );	34	say_success( $out, "Use green for success" );
36	say_warning( $out, "Use yellow for warning/a call to action" );	35	say_warning( $out, "Use yellow for warning/a call to action" );
37	say_info( $out, "Use blue for further information" );	36	say_info( $out, "Use blue for further information" );

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/231200044.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "36120",	5	bug_number => "36120",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/231200051.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "31097",	5	bug_number => "31097",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/231200054.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "19768",	5	bug_number => "19768",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/231200059.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "36819",	5	bug_number => "36819",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/231200060.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "36665",	5	bug_number => "36665",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/231200061.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "26176",	5	bug_number => "26176",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600001.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "36986",	5	bug_number => "36986",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600002.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "36453",	5	bug_number => "36453",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600003.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "34597",	5	bug_number => "34597",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600004.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "18493",	5	bug_number => "18493",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600005.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "35639",	5	bug_number => "35639",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600006.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "35597",	5	bug_number => "35597",




use Modern::Perl;
use Koha::Installer::Output qw(say_warning say_success say_info);

return {
    bug_number  => "36330",

        my ( $dbh, $out ) = @$args{qw(dbh out)};

        # Update columns, only changing the COMMENT
        $dbh->do(
            q{ ALTER TABLE course_items MODIFY `location` varchar(80) DEFAULT NULL COMMENT 'new shelving location for the item to have while on reserve (optional)' }
        );
        say_success( $out, "Comment for course_items.location was updated." );

        $dbh->do(
            say_failure( $out, "Comment for course_items.location was not updated." );
        }
        my $affected2 = $dbh->do(
            q{ ALTER TABLE course_items MODIFY `enabled` enum('yes','no') NOT NULL DEFAULT 'no' COMMENT 'if at least one enabled course has this item on reserve, this field will be ''yes'', otherwise it will be ''no''' }
        );
        say_success( $out, "Comment for course_items.enabled was updated." );
            say_success( $out, "Comment for course_items.enabled was updated." );
        } else {
            say_failure( $out, "Comment for course_items.enabled was not updated." );
        }

    },
};

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600008.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "35153",	5	bug_number => "35153",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600009.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "33317",	5	bug_number => "33317",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600010.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "34481",	5	bug_number => "34481",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600011.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "37216",	5	bug_number => "37216",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600012.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "26205",	5	bug_number => "26205",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600013.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "18317",	5	bug_number => "18317",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600014.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "33363",	5	bug_number => "33363",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600015.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "36453",	5	bug_number => "36453",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600016.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "28924",	5	bug_number => "28924",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600017.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "13888",	5	bug_number => "13888",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600018.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3	use Array::Utils qw( array_minus );	3	use Array::Utils qw( array_minus );
4		4
5	return {	5	return {

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600019.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "23781",	5	bug_number => "23781",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600020.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "36996",	5	bug_number => "36996",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600021.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "35539",	5	bug_number => "35539",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600022.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "37419",	5	bug_number => "37419",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600023.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "36757",	5	bug_number => "36757",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600024.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "35044",	5	bug_number => "35044",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600025.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "26777",	5	bug_number => "26777",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600026.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "20411",	5	bug_number => "20411",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600027.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "27490",	5	bug_number => "27490",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600028.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "37757",	5	bug_number => "37757",




use Modern::Perl;
use Koha::Installer::Output qw(say_warning say_success say_info);

return {
    bug_number  => '37592',

            ALTER TABLE bookings ADD COLUMN modification_date DATETIME DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP COMMENT 'The datetime for when a booking has been updated'
        SQL
        if ( @{$existing_columns} == 0 ) {
            $dbh->do("$creation_date_statement AFTER `end_date`");
            say_success( $out, q{Added column 'bookings.creation_date'} );
            } else {
                say_failure( $out, q{Failed to add column 'bookings.creation_date': } . $dbh->errstr );
            }

            $dbh->do("$modification_date_statement AFTER `creation_date`");
            say_success( $out, q{Added column 'bookings.modification_date'} );
            } else {
                say_failure( $out, q{Failed to add column 'bookings.modification_date': } . $dbh->errstr );
            }

            return;
        }

                    $statement = "$modification_date_statement AFTER `creation_date`";
                }

                $dbh->do($statement);
                say_success( $out, "Added column 'bookings.$column'" );
                } else {
                    say_failure( $out, "Failed to add column 'bookings.$column': " . $dbh->errstr );
                }
            }
        }
    },

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600030.pl (-6 / +3 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => '37601',	5	bug_number => '37601',
Lines 20-29 return { Link Here
20	ALTER TABLE `bookings`	20	ALTER TABLE `bookings`
21	ADD COLUMN `status` ENUM('new', 'cancelled', 'completed') NOT NULL DEFAULT 'new' COMMENT 'current status of the booking' $after;	21	ADD COLUMN `status` ENUM('new', 'cancelled', 'completed') NOT NULL DEFAULT 'new' COMMENT 'current status of the booking' $after;
22	SQL	22	SQL
23	if ( $dbh->do($statement) ) {	23	$dbh->do($statement);
24	say_success( $out, q{Added column 'bookings.status'} );	24	say_success( $out, q{Added column 'bookings.status'} );
25	} else {
26	say_failure( $out, q{Failed to add column 'bookings.status'} );
27	}
28	},	25	},
29	};	26	};

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600031.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "23685",	5	bug_number => "23685",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600032.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "37856",	5	bug_number => "37856",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600033.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "35655",	5	bug_number => "35655",




use Modern::Perl;
use Koha::Installer::Output qw(say_warning say_success say_info);

return {
    bug_number  => "37967",

        my ($args) = @_;
        my ( $dbh, $out ) = @$args{qw(dbh out)};

        $dbh->do(
            q{
            INSERT IGNORE INTO message_transports (`message_attribute_id`, `message_transport_type`, `is_digest`, `letter_module`, `letter_code`) VALUES
            (9, 'phone', 1, 'circulation', 'AUTO_RENEWALS_DGST'),
            (9, 'phone',  0, 'circulation', 'AUTO_RENEWALS');
        }
        );
        say_success( $out, "Added phone messaging transports for auto-renewals" );
            say_success( $out, "Added phone messaging transports for auto-renewals" );
        } catch {
            say_failure( $out, "Error adding phone messaging transports for auto-renewals: $_" );
        };
    },
};

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600036.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "37954",	5	bug_number => "37954",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600037.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "36798",	5	bug_number => "36798",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600038.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "36766",	5	bug_number => "36766",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600039.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "28575",	5	bug_number => "28575",




use Modern::Perl;
use Koha::Installer::Output qw(say_warning say_success say_info);

return {
    bug_number  => "23295",


        say_success ( $out, "Added new system preference 'RestrictPatronsWithFailedNotices'" );

        $dbh->do(
            q{INSERT IGNORE INTO restriction_types (code, display_text, is_system, is_default) VALUES ('NOTICE_FAILURE_SUSPENSION', 'Notice failure suspension', 1, 0)}
        );
        say_success( $out, "Added new system restriction type 'NOTICE_FAILURE_SUSPENSION'" );
            say_success( $out, "Added new system restriction type 'NOTICE_FAILURE_SUSPENSION'" );
        } catch {
            say_failure( $out, "Database modification failed with errors: $_" );
        };

    },
};

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600041.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "30955",	5	bug_number => "30955",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600042.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "37969",	5	bug_number => "37969",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600043.pl (-6 / +3 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => '38193',	5	bug_number => '38193',
Lines 18-27 return { Link Here
18	ALTER TABLE `bookings`	18	ALTER TABLE `bookings`
19	ADD COLUMN `cancellation_reason` varchar(80) DEFAULT NULL COMMENT 'optional authorised value BOOKING_CANCELLATION' AFTER `status`;	19	ADD COLUMN `cancellation_reason` varchar(80) DEFAULT NULL COMMENT 'optional authorised value BOOKING_CANCELLATION' AFTER `status`;
20	SQL	20	SQL
21	if ( $dbh->do($statement) ) {	21	$dbh->do($statement);
22	say_success( $out, q{Added column 'bookings.cancellation_reason'} );	22	say_success( $out, q{Added column 'bookings.cancellation_reason'} );
23	} else {
24	say_failure( $out, q{Failed to add column 'bookings.cancellation_reason'} );
25	}
26	},	23	},
27	};	24	};

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600044.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => '28833',	5	bug_number => '28833',

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600045.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "35906",	5	bug_number => "35906",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600046.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "38222",	5	bug_number => "38222",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600047.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "35659",	5	bug_number => "35659",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600048.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "33484",	5	bug_number => "33484",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600049.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "38274",	5	bug_number => "38274",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600050.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "30648",	5	bug_number => "30648",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600051.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "14180",	5	bug_number => "14180",

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600052.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "35305",	5	bug_number => "35305",




use Modern::Perl;
use Koha::Installer::Output qw(say_warning say_success say_info);
use Try::Tiny;

return {

        my ( $dbh, $out ) = @$args{qw(dbh out)};

        if ( !column_exists( 'currency', 'p_cs_precedes' ) ) {
            $dbh->do(
                q{
                    q{
 ALTER TABLE `currency` ADD COLUMN `p_cs_precedes` tinyint(1) DEFAULT 1 AFTER p_sep_by_space
            }
            );
            say_success( $out, "Added column 'currency.p_cs_precedes'" );
            } catch {
                say_failure(
                    $out,
                    "Adding column 'currency.p_cs_precedes' failed with errors: $_"
                );
            };
        } else {
            say_info( $out, "Column 'currency.p_cs_precedes' already exists" );
        }

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600054.pl (-1 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	use C4::Context;	4	use C4::Context;
5	use Koha::Reports;	5	use Koha::Reports;

Lines 1-5 Link Here

(-)a/installer/data/mysql/db_revs/240600055.pl (-2 / +1 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);	2	use Koha::Installer::Output qw(say_warning say_success say_info);
3		3
4	return {	4	return {
5	bug_number => "33462",	5	bug_number => "33462",
6	-

Return to bug 38394