@@ -13,12 +13,13 @@ PgAccess - a database management tool for <A HREF="http://www.postgreSQL.org">Po
...
@@ -13,12 +13,13 @@ PgAccess - a database management tool for <A HREF="http://www.postgreSQL.org">Po
<P>This program is protected by the following <AHREF="copyright.html">copyright</A>
<P>This program is protected by the following <AHREF="copyright.html">copyright</A>
<LI>
<LI>
<AHREF="pgaccess-0.86.tar.gz">Download the last version of PgAccess (press
<AHREF="pgaccess-0.88.tar.gz">Download the last version of PgAccess (press
shift and click this link)</A>.</LI>
shift and click this link)</A>.</LI>
<P>Latest version of PgAccess is 0.86 , 29 March 1998 !
<P>Latest version of PgAccess is 0.88 , 7 June 1998 !
<BR>
<BR><br>
<fontcolor='red'><b>NEW * NEW * NEW *</b></font> Precompiled libpgtcl and libpq binaries for i386 are <ahref='ftp://ftp.flex.ro/pub/pgaccess'> here </a>!!!
@@ -1494,10 +1505,13 @@ if {[catch {set newdbc [pg_connect $newdbname -host $newhost -port $newpport]} m
...
@@ -1494,10 +1505,13 @@ if {[catch {set newdbc [pg_connect $newdbname -host $newhost -port $newpport]} m
set host $newhost
set host $newhost
set pport $newpport
set pport $newpport
set dbname $newdbname
set dbname $newdbname
set username $newusername
set password $newpassword
set sdbname $dbname
set sdbname $dbname
set pref(lastdb)$dbname
set pref(lastdb)$dbname
set pref(lasthost)$host
set pref(lasthost)$host
set pref(lastport)$pport
set pref(lastport)$pport
set pref(lastusername)$username
save_pref
save_pref
catch {cursor_arrow .dbod; Window hide .dbod}
catch {cursor_arrow .dbod; Window hide .dbod}
tab_click .dw.tabTables
tab_click .dw.tabTables
...
@@ -2430,16 +2444,15 @@ Window show .tiw
...
@@ -2430,16 +2444,15 @@ Window show .tiw
set tiw(isunique){}
set tiw(isunique){}
set tiw(isclustered){}
set tiw(isclustered){}
set tiw(indexfields){}
set tiw(indexfields){}
pg_select $dbc "select attnum,attname,typname,attlen,usename,pg_class.oid from pg_class,pg_user,pg_attribute,pg_type where (pg_class.relname='$tiw(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 {
pg_select $dbc "select attnum,attname,typname,attlen,atttypmod,usename,pg_class.oid from pg_class,pg_user,pg_attribute,pg_type where (pg_class.relname='$tiw(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 {
set fsize $rec(attlen)
set fsize $rec(attlen)
set fsize1 $rec(atttypmod)
set ftype $rec(typname)
set ftype $rec(typname)
if {$ftype=="varchar"}{
if { $fsize=="-1" && $fsize1!="-1"}{
incr fsize -4
set fsize $rec(atttypmod)
}
if {$ftype=="bpchar"}{
incr fsize -4
incr fsize -4
}
}
if {$ftype=="text"}{
if { $fsize1=="-1" && $fsize=="-1"}{
set fsize ""
set fsize ""
}
}
if {$rec(attnum)>0}{.tiw.lb insert end [format "%-33s %-14s %-4s" $rec(attname) $ftype $fsize]}
if {$rec(attnum)>0}{.tiw.lb insert end [format "%-33s %-14s %-4s" $rec(attname) $ftype $fsize]}
...
@@ -2540,10 +2553,12 @@ if {$retval} {
...
@@ -2540,10 +2553,12 @@ if {$retval} {
}
}
proc {main}{argc argv}{
proc {main}{argc argv}{
global pref newdbname newpport newhost dbc
global pref newdbname newpport newhost newusername newpassword dbc
