Bug 19043: (QA follow-up) Add update DB entry and print warning
This follow-up takes care of the requested warning at upgrade time. At the same time it removes the obsolete Columbia record when host and port are equal to the formerly used values. Note that the new host for on-campus use has been changed. Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
parent
7f6f98e00c
commit
ecc5daaceb
1 changed files with 13 additions and 0 deletions
13
installer/data/mysql/atomicupdate/bug19043.perl
Normal file
13
installer/data/mysql/atomicupdate/bug19043.perl
Normal file
|
@ -0,0 +1,13 @@
|
|||
$DBversion = 'XXX'; # will be replaced by the RM
|
||||
if( CheckVersion( $DBversion ) ) {
|
||||
my $where = q|host='clio-db.cc.columbia.edu' AND port=7090|;
|
||||
my $sql = "SELECT COUNT(*) FROM z3950servers WHERE $where";
|
||||
my ( $cnt ) = $dbh->selectrow_array( $sql );
|
||||
if( $cnt ) {
|
||||
$dbh->do( "DELETE FROM z3950servers WHERE $where" );
|
||||
print "Removed $cnt Z39.50 target(s) for Columbia University\n";
|
||||
}
|
||||
|
||||
SetVersion( $DBversion );
|
||||
print "Upgrade to $DBversion done (Bug 19043 - Z39.50 target for Columbia University is no longer publicly available.)\n";
|
||||
}
|
Loading…
Reference in a new issue