Attachment #130405 for bug #30065

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

Lines 29-35 use vars qw{ $VERSION }; Link Here

(-)a/Koha.pm (-1 / +1 lines)
29	# - #4 : the developer version. The 4th number is the database subversion.	29	# - #4 : the developer version. The 4th number is the database subversion.
30	# used by developers when the database changes. updatedatabase take care of the changes itself	30	# used by developers when the database changes. updatedatabase take care of the changes itself
31	# and is automatically called by Auth.pm when needed.	31	# and is automatically called by Auth.pm when needed.
32	$VERSION = "21.05.09.000";	32	$VERSION = "21.05.09.002";
33		33
34	sub version {	34	sub version {
35	return $VERSION;	35	return $VERSION;




use Modern::Perl;

return {
    bug_number => "29457",
    description => "Fee Cancellation records the wrong manager_id",
    up => sub {
        my ($args) = @_;
        my ($dbh, $out) = @$args{qw(dbh out)};
        say $out "WARNING: You may have some incorrect manager_id's recorded against account cancellation lines, please see bugzilla for details.";
        say $out "NOTE: You may already have this bugfix applied at an earlier upgrade.";
    },
}




use Modern::Perl;

return {
    bug_number => "29557",
    description => "Add auto_account_expired to AUTO_RENEWALS notice. Please update your AUTO_RENEWALS notice manually if you have changed or translated it.",
    up => sub {
        my ($args) = @_;
        my ($dbh, $out) = @$args{qw(dbh out)};
        my @c = $dbh->do(q{
            UPDATE letter
            SET content=REPLACE(content, "[% ELSIF checkout.auto_renew_error == 'too_unseen' %]\r\nThis item must be renewed at the library.\r\n[% END %]", "[% ELSIF checkout.auto_renew_error == 'too_unseen' %]\r\nThis item must be renewed at the library.\r\n[% ELSIF checkout.auto_renew_error == 'auto_account_expired' %]\r\nYour account has expired.\r\n[% END %]")
            WHERE code="AUTO_RENEWALS"
        });
    },
}




    NewVersion( $DBversion, "", "Koha 21.05.09 release" );
}

$DBversion = '21.05.09.001';
if( CheckVersion( $DBversion ) ) {
    NewVersion( $DBversion, "29457", "WARNING: You may have some incorrect manager_id's recorded against account cancellation lines, please see bugzilla for details. NOTE: You may already have this bugfix applied at an earlier upgrade.");
}

$DBversion = '21.05.09.002';
if( CheckVersion( $DBversion ) ) {
    $dbh->do(q{
            UPDATE letter
            SET content=REPLACE(content, "[% ELSIF checkout.auto_renew_error == 'too_unseen' %]\r\nThis item must be renewed at the library.\r\n[% END %]", "[% ELSIF checkout.auto_renew_error == 'too_unseen' %]\r\nThis item must be renewed at the library.\r\n[% ELSIF checkout.auto_renew_error == 'auto_account_expired' %]\r\nYour account has expired.\r\n[% END %]")
            WHERE code="AUTO_RENEWALS"
            });
    NewVersion( $DBversion, "29557", "Add auto_account_expired to AUTO_RENEWALS notice. Please update your AUTO_RENEWALS notice manually if you have changed or translated it." );
}

# SEE bug 13068
# if there is anything in the atomicupdate, read and execute it.
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';
- 

Return to bug 30065

Lines 24561-24566 if( CheckVersion( $DBversion ) ) { Link Here

(-)a/installer/data/mysql/updatedatabase.pl (-1 / +15 lines)
24561	NewVersion( $DBversion, "", "Koha 21.05.09 release" );	24561	NewVersion( $DBversion, "", "Koha 21.05.09 release" );
24562	}	24562	}
24563		24563
		24564	$DBversion = '21.05.09.001';
		24565	if( CheckVersion( $DBversion ) ) {
		24566	NewVersion( $DBversion, "29457", "WARNING: You may have some incorrect manager_id's recorded against account cancellation lines, please see bugzilla for details. NOTE: You may already have this bugfix applied at an earlier upgrade.");
		24567	}
		24568
		24569	$DBversion = '21.05.09.002';
		24570	if( CheckVersion( $DBversion ) ) {
		24571	$dbh->do(q{
		24572	UPDATE letter
		24573	SET content=REPLACE(content, "[% ELSIF checkout.auto_renew_error == 'too_unseen' %]\r\nThis item must be renewed at the library.\r\n[% END %]", "[% ELSIF checkout.auto_renew_error == 'too_unseen' %]\r\nThis item must be renewed at the library.\r\n[% ELSIF checkout.auto_renew_error == 'auto_account_expired' %]\r\nYour account has expired.\r\n[% END %]")
		24574	WHERE code="AUTO_RENEWALS"
		24575	});
		24576	NewVersion( $DBversion, "29557", "Add auto_account_expired to AUTO_RENEWALS notice. Please update your AUTO_RENEWALS notice manually if you have changed or translated it." );
		24577	}
		24578
24564	# SEE bug 13068	24579	# SEE bug 13068
24565	# if there is anything in the atomicupdate, read and execute it.	24580	# if there is anything in the atomicupdate, read and execute it.
24566	my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';	24581	my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';
24567	-

Lines 1-12 Link Here

(-)a/installer/data/mysql/db_revs/210508001.pl (-12 lines)
1	use Modern::Perl;
2
3	return {
4	bug_number => "29457",
5	description => "Fee Cancellation records the wrong manager_id",
6	up => sub {
7	my ($args) = @_;
8	my ($dbh, $out) = @$args{qw(dbh out)};
9	say $out "WARNING: You may have some incorrect manager_id's recorded against account cancellation lines, please see bugzilla for details.";
10	say $out "NOTE: You may already have this bugfix applied at an earlier upgrade.";
11	},
12	}