Index: doc/src/sgml/libpgtcl.sgml
===================================================================
RCS file: /cvsroot/pgsql-server/doc/src/sgml/libpgtcl.sgml,v
retrieving revision 1.33
diff -c -c -r1.33 libpgtcl.sgml
*** doc/src/sgml/libpgtcl.sgml	15 Nov 2002 03:11:16 -0000	1.33
--- doc/src/sgml/libpgtcl.sgml	26 Nov 2002 21:36:55 -0000
***************
*** 728,733 ****
--- 728,743 ----
  </VARLISTENTRY>
  <VARLISTENTRY>
  <TERM>
+ <option>-cmdTuples</option>
+ </TERM>
+ <LISTITEM>
+ <PARA>
+ the number of tuples affected by the query.
+ </PARA>
+ </LISTITEM>
+ </VARLISTENTRY>
+ <VARLISTENTRY>
+ <TERM>
  <option>-numAttrs</option>
  </TERM>
  <LISTITEM>
Index: src/interfaces/libpgtcl/pgtclCmds.c
===================================================================
RCS file: /cvsroot/pgsql-server/src/interfaces/libpgtcl/pgtclCmds.c,v
retrieving revision 1.69
diff -c -c -r1.69 pgtclCmds.c
*** src/interfaces/libpgtcl/pgtclCmds.c	17 Oct 2002 14:51:50 -0000	1.69
--- src/interfaces/libpgtcl/pgtclCmds.c	26 Nov 2002 21:37:00 -0000
***************
*** 506,511 ****
--- 506,513 ----
  
  	-numTuples	the number of tuples in the query
  
+ 	-cmdTuples	the number of tuples affected by the query
+ 
  	-numAttrs	returns the number of attributes returned by the query
  
  	-assign arrayName
***************
*** 591,596 ****
--- 593,603 ----
  		sprintf(interp->result, "%d", PQntuples(result));
  		return TCL_OK;
  	}
+ 	else if (strcmp(opt, "-cmdTuples") == 0)
+ 	{
+ 		sprintf(interp->result, "%s", PQcmdTuples(result));
+ 		return TCL_OK;
+ 	}
  	else if (strcmp(opt, "-numAttrs") == 0)
  	{
  		sprintf(interp->result, "%d", PQnfields(result));
***************
*** 768,773 ****
--- 775,781 ----
  					 "\t-conn\n",
  					 "\t-oid\n",
  					 "\t-numTuples\n",
+ 					 "\t-cmdTuples\n",
  					 "\t-numAttrs\n"
  					 "\t-assign arrayVarName\n",
  					 "\t-assignbyidx arrayVarName ?appendstr?\n",