Line 0
Link Here
|
0 |
- |
1 |
$DBversion = 'XXX'; # will be replaced by the RM |
|
|
2 |
if( CheckVersion( $DBversion ) ) { |
3 |
my $where = q|host='clio-db.cc.columbia.edu' AND port=7090|; |
4 |
my $sql = "SELECT COUNT(*) FROM z3950servers WHERE $where"; |
5 |
my ( $cnt ) = $dbh->selectrow_array( $sql ); |
6 |
if( $cnt ) { |
7 |
$dbh->do( "DELETE FROM z3950servers WHERE $where" ); |
8 |
print "Removed $cnt Z39.50 target(s) for Columbia University\n"; |
9 |
} |
10 |
|
11 |
SetVersion( $DBversion ); |
12 |
print "Upgrade to $DBversion done (Bug 19043 - Z39.50 target for Columbia University is no longer publicly available.)\n"; |
13 |
} |