*** Pg.pm.old	Sun Feb 28 02:39:41 1999
--- Pg.pm	Sun Feb 28 02:40:32 1999
***************
*** 126,132 ****
          my($dbh) = @_;
  
          my $sth = $dbh->prepare("
!             SELECT c.reltype, u.usename, c.relname, 'TABLE', '' 
              FROM pg_class c, pg_user u 
              WHERE c.relkind = 'r' 
              AND   c.relhasrules = FALSE
--- 126,132 ----
          my($dbh) = @_;
  
          my $sth = $dbh->prepare("
!             SELECT c.reltype, u.usename, c.relname, substring('TABLE'), substring('') 
              FROM pg_class c, pg_user u 
              WHERE c.relkind = 'r' 
              AND   c.relhasrules = FALSE
***************
*** 134,140 ****
              AND   c.relname !~ '^xin[vx][0-9]+' 
              AND   c.relowner = u.usesysid 
              UNION
!             SELECT c.reltype, u.usename, c.relname, 'VIEW', '' 
              FROM pg_class c, pg_user u 
              WHERE c.relkind = 'r' 
              AND   c.relhasrules = TRUE
--- 134,140 ----
              AND   c.relname !~ '^xin[vx][0-9]+' 
              AND   c.relowner = u.usesysid 
              UNION
!             SELECT c.reltype, u.usename, c.relname, substring('VIEW'), substring('') 
              FROM pg_class c, pg_user u 
              WHERE c.relkind = 'r' 
              AND   c.relhasrules = TRUE
