Add pg_catalog to pltcl code

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
NotDashEscaped: You need GnuPG to verify this message

Small changes to use the absolute path to system catalogs:

--
Greg Sabino Mullane greg(at)turnstep(dot)com
PGP Key: 0x14964AC8 200305051153

? test/test.out
Index: pltcl.c
===================================================================
RCS file: /projects/cvsroot/pgsql-server/src/pl/tcl/pltcl.c,v
retrieving revision 1.69
diff -c -r1.69 pltcl.c
*** pltcl.c 2003/02/06 17:02:11 1.69
--- pltcl.c 2003/05/05 15:52:06
***************
*** 309,315 ****
/************************************************************
* Check if table pltcl_modules exists
************************************************************/
! spi_rc = SPI_exec("select 1 from pg_class "
"where relname = 'pltcl_modules'", 1);
SPI_freetuptable(SPI_tuptable);
if (spi_rc != SPI_OK_SELECT)
--- 309,315 ----
/************************************************************
* Check if table pltcl_modules exists
************************************************************/
! spi_rc = SPI_exec("select 1 from pg_catalog.pg_class "
"where relname = 'pltcl_modules'", 1);
SPI_freetuptable(SPI_tuptable);
if (spi_rc != SPI_OK_SELECT)
Index: modules/pltcl_loadmod.in
===================================================================
RCS file: /projects/cvsroot/pgsql-server/src/pl/tcl/modules/pltcl_loadmod.in,v
retrieving revision 1.2
diff -c -r1.2 pltcl_loadmod.in
*** modules/pltcl_loadmod.in 2001/05/11 23:38:06 1.2
--- modules/pltcl_loadmod.in 2003/05/05 15:52:06
***************
*** 84,90 ****
set found 0

pg_select $conn "select C.relname, A.attname, A.attnum, T.typname \
! from pg_class C, pg_attribute A, pg_type T \
where C.relname = '$tabname' \
and A.attrelid = C.oid \
and A.attnum > 0 \
--- 84,90 ----
set found 0

pg_select $conn "select C.relname, A.attname, A.attnum, T.typname \
! from pg_catalog.pg_class C, pg_catalog.pg_attribute A, pg_catalog.pg_type T \
where C.relname = '$tabname' \
and A.attrelid = C.oid \
and A.attnum > 0 \
Index: test/test_setup.sql
===================================================================
RCS file: /projects/cvsroot/pgsql-server/src/pl/tcl/test/test_setup.sql,v
retrieving revision 1.5
diff -c -r1.5 test_setup.sql
*** test/test_setup.sql 2002/10/19 22:01:45 1.5
--- test/test_setup.sql 2003/05/05 15:52:06
***************
*** 319,325 ****
# Lookup the fields type in pg_attribute
#
set n [spi_exec "select T.typname \\
! from pg_type T, pg_attribute A, pg_class C \\
where C.relname = ''[quote $keyrel]'' \\
and C.oid = A.attrelid \\
and A.attname = ''[quote $key]'' \\
--- 319,325 ----
# Lookup the fields type in pg_attribute
#
set n [spi_exec "select T.typname \\
! from pg_catlog.pg_type T, pg_catalog.pg_attribute A, pg_catalog.pg_class C \\
where C.relname = ''[quote $keyrel]'' \\
and C.oid = A.attrelid \\
and A.attname = ''[quote $key]'' \\
***************
*** 343,349 ****
#
# Lookup and remember the table name for later error messages
#
! spi_exec "select relname from pg_class \\
where oid = ''$TG_relid''::oid"
set GD($planrel) $relname
}
--- 343,349 ----
#
# Lookup and remember the table name for later error messages
#
! spi_exec "select relname from pg_catalog.pg_class \\
where oid = ''$TG_relid''::oid"
set GD($planrel) $relname
}

-----BEGIN PGP SIGNATURE-----
Comment: http://www.turnstep.com/pgp.html

iD8DBQE+tokmvJuQZxSWSsgRAuTWAKC3mY3NkCXE16M/3Qj9ON/j9K57SACg6Zg9
jN5sYcyajS5pRyIaOx8Mrt0=
=NQgU
-----END PGP SIGNATURE-----