|
7 | 7 | * |
8 | 8 | * |
9 | 9 | * IDENTIFICATION |
10 | | - * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.17 1997/10/3005:00:56 momjian Exp $ |
| 10 | + * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.18 1997/10/3017:29:57 momjian Exp $ |
11 | 11 | * |
12 | 12 | *------------------------------------------------------------------------- |
13 | 13 | */ |
@@ -1331,8 +1331,8 @@ Pg_select(ClientData cData, Tcl_Interp * interp, int argc, char **argv) |
1331 | 1331 |
|
1332 | 1332 | for (column=0;column<ncols;column++) |
1333 | 1333 | { |
1334 | | -strcpy(buffer,PQgetvalue(result,tupno,column)); |
1335 | | -Tcl_SetVar2(interp,argv[3],info[column].cname,buffer,0); |
| 1334 | +Tcl_SetVar2(interp,argv[3],info[column].cname, |
| 1335 | +PQgetvalue(result,tupno,column),0); |
1336 | 1336 | } |
1337 | 1337 |
|
1338 | 1338 | Tcl_SetVar2(interp,argv[3],".command","update",0); |
|