diff options
| author | Bruce Momjian <bruce@momjian.us> | 2001-05-30 15:37:38 +0000 |
|---|---|---|
| committer | Bruce Momjian <bruce@momjian.us> | 2001-05-30 15:37:38 +0000 |
| commit | 5b42666fd93ac4a1bdde7a84d90e3f9879799709 (patch) | |
| tree | ebb3357e027026e5fb3c3dd97f988e95c0a4ad92 /src/bin/pgaccess/lib/tables.tcl | |
| parent | 1172fcdad029fc172d0fb7744c190dbde95fe443 (diff) | |
| download | postgresql-5b42666fd93ac4a1bdde7a84d90e3f9879799709.tar.gz postgresql-5b42666fd93ac4a1bdde7a84d90e3f9879799709.zip | |
Fix missing relation in FROM causing NOTICE. Cleanup.
Diffstat (limited to 'src/bin/pgaccess/lib/tables.tcl')
| -rw-r--r-- | src/bin/pgaccess/lib/tables.tcl | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/src/bin/pgaccess/lib/tables.tcl b/src/bin/pgaccess/lib/tables.tcl index 4c38951fd9d..6b555f5bd27 100644 --- a/src/bin/pgaccess/lib/tables.tcl +++ b/src/bin/pgaccess/lib/tables.tcl @@ -75,7 +75,7 @@ global PgAcVar CurrentDB } } set PgAcVar(tblinfo,indexlist) {} - wpg_select $CurrentDB "select oid,indexrelid from pg_index where (pg_class.relname='$PgAcVar(tblinfo,tablename)') and (pg_class.oid=pg_index.indrelid)" rec { + wpg_select $CurrentDB "select pg_index.oid,indexrelid from pg_index, pg_class where (pg_class.relname='$PgAcVar(tblinfo,tablename)') and (pg_class.oid=pg_index.indrelid)" rec { lappend PgAcVar(tblinfo,indexlist) $rec(oid) wpg_select $CurrentDB "select relname from pg_class where oid=$rec(indexrelid)" rec1 { .pgaw:TableInfo.f2.fl.ilb insert end $rec1(relname) @@ -1881,11 +1881,6 @@ if {[set PgAcVar(tblinfo,col_id) [.pgaw:TableInfo.f1.lb curselection]]==""} then grid $base.f0.fi.l8 \ -in .pgaw:TableInfo.f0.fi -column 1 -row 3 -columnspan 1 -rowspan 1 -padx 2 \ -pady 2 - grid $base.f0.fi.l9 \ - -in .pgaw:TableInfo.f0.fi -column 0 -row 4 -columnspan 1 -rowspan 1 -sticky w - grid $base.f0.fi.l10 \ - -in .pgaw:TableInfo.f0.fi -column 1 -row 4 -columnspan 1 -rowspan 1 -padx 2 \ - -pady 2 grid $base.f0.fi.l11 \ -in .pgaw:TableInfo.f0.fi -column 0 -row 5 -columnspan 1 -rowspan 1 -sticky w grid $base.f0.fi.l12 \ @@ -2163,7 +2158,7 @@ proc vTclWindow.pgaw:Permissions {base} { # # This file contains Tcl procedures used to input Japanese text. # -# $Header: /cvsroot/pgsql/src/bin/pgaccess/lib/Attic/tables.tcl,v 1.8 2001/05/30 14:44:00 momjian Exp $ +# $Header: /cvsroot/pgsql/src/bin/pgaccess/lib/Attic/tables.tcl,v 1.9 2001/05/30 15:37:38 momjian Exp $ # # Copyright (c) 1993 Software Research Associates, Inc. # |