Index: openacs-4/packages/contacts/lib/contacts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/contacts/lib/contacts.tcl	14 Jun 2005 08:56:17 -0000	1.5
+++ openacs-4/packages/contacts/lib/contacts.tcl	14 Jun 2005 09:05:28 -0000	1.6
@@ -1,40 +1,15 @@
-set required_param_list [list ]
-set optional_param_list [list rel_type search_id query]
-set default_param_list [list orderby format page_size]
-set optional_unset_list [list page]
-
-set  _orderby "first_names,asc"
-set  _format "normal"
-set  _page_size "25"
-
-foreach required_param $required_param_list {
-    if {![info exists $required_param]} {
-	return -code error "$required_param is a required parameter."
-    }
+ad_page_contract {
+    List and manage contacts
+} {
+    {orderby "first_names,asc"}
+    {format "normal"}
+    {search_id:integer ""}
+    {query ""}
+    {page:optional}
+    {page_size:integer "25"}
 }
 
-foreach optional_param $optional_param_list {
-    if {![info exists $optional_param]} {
-	set $optional_param {}
-    }
-}
 
-
-foreach default_param $default_param_list {
-    if {![info exists $default_param]} {
-	set $default_param [set _${default_param}]
-    }
-}
-
-foreach optional_unset $optional_unset_list {
-    if {[info exists $optional_unset]} {
-	if {[empty_string_p [set $optional_unset]]} {
-	    unset $optional_unset
-	}
-    }
-}
-
-
 if { $orderby == "first_names,asc" } {
     set name_order 0
     set name_label "[_ contacts.Sort_by]: [_ contacts.First_Names] | <a href=\"[export_vars -base . -url {format search_id query page page_size {orderby {last_name,asc}}}]\">[_ contacts.Last_Name]</a>"