From c46ac6b041d0c0f59afec237b9e92f9ca862c940 Mon Sep 17 00:00:00 2001
From: rbt <rbt>
Date: Sun, 1 May 2005 05:13:38 +0000
Subject: [PATCH] Finish() the GetVersion sql statement.

Set the FK Group number back to being a number instead of the schema name. Accidentally converted earlier while removing the $group variable.
---
 postgresql_autodoc.pl | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/postgresql_autodoc.pl b/postgresql_autodoc.pl
index 00c1cee..3faeb34 100755
--- a/postgresql_autodoc.pl
+++ b/postgresql_autodoc.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 # -- # -*- Perl -*-w
-# $Header: /cvsroot/autodoc/autodoc/postgresql_autodoc.pl,v 1.10 2005/04/18 23:53:52 rbt Exp $
+# $Header: /cvsroot/autodoc/autodoc/postgresql_autodoc.pl,v 1.11 2005/05/01 05:13:38 rbt Exp $
 #  Imported 1.22 2002/02/08 17:09:48 into sourceforge
 
 # Postgres Auto-Doc Version 1.25
@@ -198,8 +198,6 @@ Msg
 
     info_collect( $dbh, \%db, $database, $only_schema, $statistics );
 
-    $dbh->disconnect() if $dbh;
-
     # Write out *ALL* templates
     write_using_templates( \%db, $database, $statistics, $template_path,
         $output_filename_base, $wanted_output );
@@ -229,6 +227,7 @@ sub info_collect($$$$$)
     $sth_GetVersion->execute();
     my $version   = $sth_GetVersion->fetchrow_hashref;
     my $pgversion = $version->{'version'};
+    $sth_GetVersion->finish();
 
     # Ensure we only retrieve information for the requested schemas.
     #
@@ -1313,7 +1312,7 @@ sub write_using_templates($$$$$)
                           {
                             column_fk            => 'FOREIGN KEY',
                             column_fk_colnum     => $fkcol,
-                            column_fk_keygroup   => $fkschema,
+                            column_fk_keygroup   => $fkgroup,
                             column_fk_schema     => $fkschema,
                             column_fk_schema_dbk => docbook($fkschema),
                             column_fk_schema_dot => graphviz($fkschema),
-- 
2.40.0