Moving server_version to PGObject::Util::DBAdmin

credil · Sep 14, 2014 · e51e581 · e51e581
1 parent 7f9985a
commit e51e581
Showing 1 changed file with 0 additions and 17 deletions.
diff --git a/LedgerSMB/Database.pm b/LedgerSMB/Database.pm
@@ -335,23 +335,6 @@ sub get_info {
    return $retval;
 }
 
-=head2 $db->server_version();
-
-Connects to the server and returns the version number in x.y.z format.
-
-=cut
-
-sub server_version {
-    my $self = shift @_;
-    $logger->trace("\$self=".Data::Dumper::Dumper(\$self));
-    my $dbh = $self->connect;
-    my ($version) = $dbh->selectrow_array('SELECT version()');
-    $version =~ /(\d+\.\d+\.\d+)/;
-    my $retval = $1;
-    $dbh->disconnect;
-    return $retval;
-}
-
 =head2 $db->copy('new_name')
 
 Copies the existing database to a new name.