Movatterモバイル変換

[0]ホーム
URL:

Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

 Sign up
Appearance settings

Commit1172fcd

Browse files
committed
Remove reference to pg_class.relhaspkey from code. Column is unused.
1 parentb6ec9d4 commit1172fcd

File tree

1 file changed

+2
-14
lines changed

1 file changed

+2
-14
lines changed

‎src/bin/pgaccess/lib/tables.tcl

Lines changed: 2 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -44,7 +44,7 @@ global PgAcVar CurrentDB
4444
set PgAcVar(tblinfo,isunique) {}
4545
set PgAcVar(tblinfo,isclustered) {}
4646
set PgAcVar(tblinfo,indexfields) {}
47-
wpg_select$CurrentDB"select attnum,attname,typname,attlen,attnotnull,atttypmod,usename,usesysid,pg_class.oid,relpages,reltuples,relhaspkey,relhasrules,relacl from pg_class,pg_user,pg_attribute,pg_type where (pg_class.relname='$PgAcVar(tblinfo,tablename)') and (pg_class.oid=pg_attribute.attrelid) and (pg_class.relowner=pg_user.usesysid) and (pg_attribute.atttypid=pg_type.oid) order by attnum" rec {
47+
wpg_select$CurrentDB"select attnum,attname,typname,attlen,attnotnull,atttypmod,usename,usesysid,pg_class.oid,relpages,reltuples,relhasrules,relacl from pg_class,pg_user,pg_attribute,pg_type where (pg_class.relname='$PgAcVar(tblinfo,tablename)') and (pg_class.oid=pg_attribute.attrelid) and (pg_class.relowner=pg_user.usesysid) and (pg_attribute.atttypid=pg_type.oid) order by attnum" rec {
4848
set fsize$rec(attlen)
4949
set fsize1$rec(atttypmod)
5050
set ftype$rec(typname)
@@ -68,11 +68,6 @@ global PgAcVar CurrentDB
6868
set PgAcVar(tblinfo,numtuples)$rec(reltuples)
6969
set PgAcVar(tblinfo,numpages)$rec(relpages)
7070
set PgAcVar(tblinfo,permissions)$rec(relacl)
71-
if {$rec(relhaspkey)=="t"} {
72-
set PgAcVar(tblinfo,hasprimarykey) [intlmsg Yes]
73-
}else {
74-
set PgAcVar(tblinfo,hasprimarykey) [intlmsg No]
75-
}
7671
if {$rec(relhasrules)=="t"} {
7772
set PgAcVar(tblinfo,hasrules) [intlmsg Yes]
7873
}else {
@@ -1723,13 +1718,6 @@ if {[set PgAcVar(tblinfo,col_id) [.pgaw:TableInfo.f1.lb curselection]]==""} then
17231718
-anchor w -borderwidth 1\
17241719
-relief sunken -text {} -textvariable PgAcVar(tblinfo,ownerid)\
17251720
-width 200
1726-
label$base.f0.fi.l9\
1727-
-borderwidth 0\
1728-
-relief raised -text [intlmsg {Has primary key ?}]
1729-
label$base.f0.fi.l10\
1730-
-anchor w -borderwidth 1\
1731-
-relief sunken -text {}\
1732-
-textvariable PgAcVar(tblinfo,hasprimarykey) -width 200
17331721
label$base.f0.fi.l11\
17341722
-borderwidth 0\
17351723
-relief raised -text [intlmsg {Has rules ?}]
@@ -2175,7 +2163,7 @@ proc vTclWindow.pgaw:Permissions {base} {
21752163
#
21762164
# This file contains Tcl procedures used to input Japanese text.
21772165
#
2178-
# $Header: /cvsroot/pgsql/src/bin/pgaccess/lib/Attic/tables.tcl,v 1.7 2001/02/26 05:15:48 ishii Exp $
2166+
# $Header: /cvsroot/pgsql/src/bin/pgaccess/lib/Attic/tables.tcl,v 1.8 2001/05/30 14:44:00 momjian Exp $
21792167
#
21802168
# Copyright (c) 1993 Software Research Associates, Inc.
21812169
#

0 commit comments

Comments
 (0)
[8]ページ先頭
©2009-2025 Movatter.jp