[Tcladdressbook-commits] Help TclAB_QuickStart.aida,1.7,1.8

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

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

Modified Files:
	TclAB_QuickStart.aida 
Log Message:
More [identifier] doc and examples

Index: TclAB_QuickStart.aida
===================================================================
RCS file: /cvsroot/tcladdressbook/Help/TclAB_QuickStart.aida,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- TclAB_QuickStart.aida	29 Jul 2004 13:31:36 -0000	1.7
+++ TclAB_QuickStart.aida	30 Jul 2004 13:07:28 -0000	1.8
@@ -6,7 +6,7 @@
 :Author:		Bernard Desgraupes <bde...@ea...>
 :Homepage:		<http://webperso.easyconnect.fr/bdesgraupes/>
 :Created: 		2003-12-14 18:26:47
-:Modified:	 	2004-07-29 01:35:42
+:Modified:	 	2004-07-30 14:43:09
 :Keywords:		Address book, data base
 
 
@@ -93,6 +93,15 @@
 |))
 
 
+((s2 The [setme] subcommand
+Set the record that will represent in the database the logged-in user.
+((|
+	set theid [lindex [addressbook persons -ids] 2]
+	addressbook setme $theid
+	addressbook save
+|))
+
+
 ((s2 The [record] subcommand
 Store the ID of the first record in the variable ((i theid i))
 ((|
@@ -365,6 +374,46 @@
 lu))
 
 
+((s2 The [identifier] subcommand
+This command is useful to manage distribution lists, groups used 
+as a mailing list for instance. It has several subcommands (count, 
+get, primary, set).
+((nl Suppose ((i theid i)) is the record ID of a person in the 
+group ((i groupid i)):
+((|
+    set groupid [lindex [addressbook groups -ids] 0]
+    set theid [lindex [addressbook persons -ids -ingroup $groupid] 0]
+|))
+
+((nl Count the identifiers of the Phone property:
+((|
+    addressbook identifier count $theid Phone
+|))
+
+((nl Get some identifiers (suppose here that there are at least two of them):
+((|
+    set ident1 [addressbook identifier get $theid Phone 0]
+    set ident2 [addressbook identifier get $theid Phone 1]
+|))
+
+((nl Get the primary identifier (the one which is chosen by default if 
+none has been specified otherwise):
+((|
+    addressbook identifier primary $theid Phone
+|))
+
+((nl Get the current distribution identifier:
+((|
+    addressbook identifier set $groupid $theid Phone
+|))
+
+((nl Set the distribution identifier to ((i ident2 i)):
+((|
+    addressbook identifier set $groupid $theid Phone $ident2
+|))
+
+
+
 ((a ukl)) a))
 ((s1 Using keyed lists
 Keyed lists can be easily manipulated using the ((b  keylget  b))  and