*** mainlib.tcl	Thu Feb  8 14:57:50 2001
--- /bjm/12	Wed May 30 10:48:09 2001
***************
*** 105,111 ****
  
  
  proc {cmd_Functions} {} {
! global CurrentDB
  	set maxim 16384
  	setCursor CLOCK
  	catch {
--- 105,111 ----
  
  
  proc {cmd_Functions} {} {
! global CurrentDB PgAcVar
  	set maxim 16384
  	setCursor CLOCK
  	catch {
***************
*** 115,121 ****
  	}
  	.pgaw:Main.lb delete 0 end
  	catch {
! 		wpg_select $CurrentDB "select proname from pg_proc where oid>$maxim order by proname" rec {
  			.pgaw:Main.lb insert end $rec(proname)
  		}	
  	}
--- 115,128 ----
  	}
  	.pgaw:Main.lb delete 0 end
  	catch {
!     set alex_owner_id $PgAcVar(opendb,username)
! if {! $PgAcVar(pref,systemtables)} {
!     set alex_owner " and proowner = (SELECT usesysid FROM pg_user WHERE usename = '$alex_owner_id') "
! } else {
!     set alex_owner ""
! }
! 
! 		wpg_select $CurrentDB "select proname from pg_proc where oid>$maxim $alex_owner order by proname" rec {
  			.pgaw:Main.lb insert end $rec(proname)
  		}	
  	}
***************
*** 1014,1018 ****
  	grid $base.fb.btncancel \
  		-in .pgaw:OpenDB.fb -column 1 -row 0 -columnspan 1 -rowspan 1 -padx 5 
  }
- 
  
--- 1021,1024 ----