[Tcladdressbook-commits] Source TclAddressBookUtils.c,1.18,1.19
Status: Alpha
Brought to you by:
bdesgraupes
|
From: Bernard D. <bde...@us...> - 2004-08-01 06:35:24
|
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; |