gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 22600: DBRev 18.12.00.039 

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
This commit is contained in:
Nick Clemens 2019-04-10 19:55:14 +00:00
parent 34b1713d86
commit 6d4eb48dd4
3 changed files with 54 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Koha.pm
View File

@ -29,7 +29,7 @@ use vars qw{ $VERSION };
# - #4 : the developer version. The 4th number is the database subversion.
# used by developers when the database changes. updatedatabase take care of the changes itself
# and is automatically called by Auth.pm when needed.
$VERSION = "18.12.00.038";
$VERSION = "18.12.00.039";
sub version {
return $VERSION;

52
installer/data/mysql/atomicupdate/bug_22600.perl
View File

@ -1,52 +0,0 @@
$DBversion = 'XXX'; # will be replaced by the RM
if ( CheckVersion($DBversion) ) {
if ( !column_exists( 'accountlines', 'interface' ) ) {
$dbh->do(
qq{
ALTER TABLE `accountlines`
ADD
`interface` varchar(16)
AFTER
`manager_id`;
}
);
}
$dbh->do(qq{
UPDATE
`accountlines`
SET
interface = 'opac'
WHERE
borrowernumber = manager_id;
});
$dbh->do(qq{
UPDATE
`accountlines`
SET
interface = 'cron'
WHERE
manager_id IS NULL
AND
branchcode IS NULL;
});
$dbh->do(qq{
UPDATE
`accountlines`
SET
interface = 'intranet'
WHERE
interface IS NULL;
});
$dbh->do(qq{
ALTER TABLE `accountlines`
MODIFY COLUMN `interface` varchar(16) NOT NULL;
});
SetVersion($DBversion);
print "Upgrade to $DBversion done (Bug 22600 - Add interface to accountlines)\n";
}

53
installer/data/mysql/updatedatabase.pl
View File

@ -17886,6 +17886,59 @@ if ( CheckVersion($DBversion) ) {
print "Upgrade to $DBversion done (Bug 22512 - Add status to accountlines)\n";
}
$DBversion = '18.12.00.039';
if ( CheckVersion($DBversion) ) {
if ( !column_exists( 'accountlines', 'interface' ) ) {
$dbh->do(
qq{
ALTER TABLE `accountlines`
ADD
`interface` varchar(16)
AFTER
`manager_id`;
}
);
}
$dbh->do(qq{
UPDATE
`accountlines`
SET
interface = 'opac'
WHERE
borrowernumber = manager_id;
});
$dbh->do(qq{
UPDATE
`accountlines`
SET
interface = 'cron'
WHERE
manager_id IS NULL
AND
branchcode IS NULL;
});
$dbh->do(qq{
UPDATE
`accountlines`
SET
interface = 'intranet'
WHERE
interface IS NULL;
});
$dbh->do(qq{
ALTER TABLE `accountlines`
MODIFY COLUMN `interface` varchar(16) NOT NULL;
});
SetVersion($DBversion);
print "Upgrade to $DBversion done (Bug 22600 - Add interface to accountlines)\n";
}
# SEE bug 13068
# if there is anything in the atomicupdate, read and execute it.