[Tcladdressbook-commits] Source TclAddressBookUtils.c,1.18,1.19

[Bernard D. <bde...@us...>]

Update of /cvsroot/tcladdressbook/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29676/Source

Modified Files:
	TclAddressBookUtils.c 
Log Message:
More informative result in TclAB_RecordFromUID()

Index: TclAddressBookUtils.c
===================================================================
RCS file: /cvsroot/tcladdressbook/Source/TclAddressBookUtils.c,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- TclAddressBookUtils.c	30 Jul 2004 21:29:17 -0000	1.18
+++ TclAddressBookUtils.c	1 Aug 2004 06:35:15 -0000	1.19
@@ -627,7 +627,11 @@
 {
 	*outRecordRef = ABCopyRecordForUniqueId(ab, inUID);
 	if (!*outRecordRef) {
-		Tcl_AppendStringsToObj(resultPtr, "Unrecognized record ID", (char *) NULL);
+		char theStr[256];
+		Tcl_AppendStringsToObj(resultPtr, "Unrecognized record ID ", (char *) NULL);
+		if (CFStringGetCString(inUID, theStr, sizeof(theStr), NULL)) {
+			Tcl_AppendStringsToObj(resultPtr, theStr, (char *) NULL);
+		} 
 		return false;
 	}  
 	return true;