Bug 26296: DBrev 21.12.00.004
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
parent
432f296b96
commit
3eb7480e0c
3 changed files with 16 additions and 16 deletions
2
Koha.pm
2
Koha.pm
|
@ -29,7 +29,7 @@ use vars qw{ $VERSION };
|
||||||
# - #4 : the developer version. The 4th number is the database subversion.
|
# - #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
|
# used by developers when the database changes. updatedatabase take care of the changes itself
|
||||||
# and is automatically called by Auth.pm when needed.
|
# and is automatically called by Auth.pm when needed.
|
||||||
$VERSION = "21.12.00.003";
|
$VERSION = "21.12.00.004";
|
||||||
|
|
||||||
sub version {
|
sub version {
|
||||||
return $VERSION;
|
return $VERSION;
|
||||||
|
|
|
@ -1,15 +0,0 @@
|
||||||
$DBversion = 'XXX'; # will be replaced by the RM
|
|
||||||
if( CheckVersion( $DBversion ) ) {
|
|
||||||
# you can use $dbh here like:
|
|
||||||
# $dbh->do( "ALTER TABLE biblio ADD COLUMN badtaste int" );
|
|
||||||
|
|
||||||
# or perform some test and warn
|
|
||||||
# if( !column_exists( 'biblio', 'biblionumber' ) ) {
|
|
||||||
# warn "There is something wrong";
|
|
||||||
# }
|
|
||||||
|
|
||||||
$dbh->do("UPDATE systempreferences SET value = REPLACE(value, ',', '|') WHERE variable IN ('OPACSuggestionMandatoryFields','OPACSuggestionUnwantedFields')");
|
|
||||||
|
|
||||||
# Always end with this (adjust the bug info)
|
|
||||||
NewVersion( $DBversion, 26296, "Replace comma with pipe in OPACSuggestion field preferences");
|
|
||||||
}
|
|
15
installer/data/mysql/db_revs/211200004.pl
Executable file
15
installer/data/mysql/db_revs/211200004.pl
Executable file
|
@ -0,0 +1,15 @@
|
||||||
|
use Modern::Perl;
|
||||||
|
|
||||||
|
return {
|
||||||
|
bug_number => "26296",
|
||||||
|
description => "Replace comma with pipe in OPACSuggestion field preferences",
|
||||||
|
up => sub {
|
||||||
|
my ($args) = @_;
|
||||||
|
my $dbh = $args->{dbh};
|
||||||
|
|
||||||
|
$dbh->do(q{
|
||||||
|
UPDATE systempreferences SET value = REPLACE(value, ',', '|')
|
||||||
|
WHERE variable IN ('OPACSuggestionMandatoryFields','OPACSuggestionUnwantedFields')
|
||||||
|
});
|
||||||
|
},
|
||||||
|
}
|
Loading…
Reference in a new issue