? pgaccess
Index: lib/mainlib.tcl
===================================================================
RCS file: /home/projects/pgsql/cvsroot/pgsql/src/bin/pgaccess/lib/mainlib.tcl,v
retrieving revision 1.7
diff -c -r1.7 mainlib.tcl
*** lib/mainlib.tcl	2001/02/07 21:30:12	1.7
--- lib/mainlib.tcl	2001/05/30 18:06:26
***************
*** 105,116 ****
  
  
  proc {cmd_Functions} {} {
! global CurrentDB
  	set maxim 16384
  	setCursor CLOCK
! 	catch {
! 		wpg_select $CurrentDB "select oid from pg_database where datname='template1'" rec {
! 			set maxim $rec(oid)
  		}
  	}
  	.pgaw:Main.lb delete 0 end
--- 105,122 ----
  
  
  proc {cmd_Functions} {} {
! global PgAcVar CurrentDB
  	set maxim 16384
  	setCursor CLOCK
! 	set dbname $PgAcVar(opendb,dbname)
! 	if [catch {wpg_select $CurrentDB "select datlastsysoid from pg_database where datname='$dbname'" rec {
! 			set maxim $rec(datlastsysoid)
! 		}
! 	}] {
! 		catch {
! 			wpg_select $CurrentDB "select oid from pg_database where datname='template1'" rec {
! 				set maxim $rec(oid)
! 			}
  		}
  	}
  	.pgaw:Main.lb delete 0 end
