|
7 | 7 | * |
8 | 8 | * |
9 | 9 | * IDENTIFICATION |
10 | | - * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.16 1997/09/25 15:48:51 momjian Exp $ |
| 10 | + * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.17 1997/10/30 05:00:56 momjian Exp $ |
11 | 11 | * |
12 | 12 | *------------------------------------------------------------------------- |
13 | 13 | */ |
@@ -645,7 +645,7 @@ Pg_result(ClientData cData, Tcl_Interp * interp, int argc, char *argv[]) |
645 | 645 | #ifdefTCL_ARRAYS |
646 | 646 | for (i=0;i<PQnfields(result);i++) |
647 | 647 | { |
648 | | -Tcl_AppendElement(interp,tcl_value(PQgetvalue(result,tupno,i))); |
| 648 | +Tcl_AppendElement(interp,PQgetvalue(result,tupno,i)); |
649 | 649 | } |
650 | 650 | #else |
651 | 651 | /*Tcl_AppendResult(interp, PQgetvalue(result,tupno,0),NULL); */ |
|