Index: openacs-4/packages/ams/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/index.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/ams/www/index.tcl	24 Oct 2004 23:17:26 -0000	1.4
+++ openacs-4/packages/ams/www/index.tcl	30 Oct 2004 00:23:54 -0000	1.5
@@ -12,40 +12,43 @@
 set context {}
 
 
-# YOU NEED TO SPECIFY A VALID OBJECT_ID
-#set object_id   "2864"
 
 # Once done comment out the error line
-#ad_return_error "You need to specify and valid object id in the packages/ams/www/index.tcl file" "Once done comment out this line."
-set package_key      "ams"
-set object_type      "ams_list"
-set list_name        "ams_list_demo3"
-set pretty_name      "The Fields used to Add/Edit a Contact Person"
+# ad_return_error "You need to specify and valid object id in the packages/ams/www/index.tcl file" "Once done comment out this line."
 
-ams::define_list -package_key $package_key \
-    -object_type $object_type \
-    -list_name $list_name \
-    -pretty_name $pretty_name \
-    -attributes {
-        {first_names textbox {First Name(s)} {First Names} required}
-        {middle_names textbox {Middle Name(s)} {Middle Names}}
-        {last_name textbox {Last Name} {Last Names} required}
-        {email email {Email Address} {Email Addresses}}
-        {url url {Website} {Websites}}
-        {home_address address {Home Address} {Home Addresses}}
-        {organization_address address {Organization Address} {Organization Addresses}}
-    }
 
-set object_id [ams::list::get_list_id \
-                   -package_key $package_key \
-                   -object_type $object_type \
-                   -list_name $list_name]
-
-#ad_form -name entry \
-#    -form [ams::ad_form::elements -package_key $package_key \
-#               -object_type $object_type \
-#               -list_name $list_name \
-#              -key "object_id"] \
+ 
+#set package_key      "ams"
+#set object_type      "ams_list"
+#set list_name        "ams_list_demo3"
+#set pretty_name      "The Fields used to Add/Edit a Contact Person"
+#
+#ams::define_list -package_key $package_key \
+#    -object_type $object_type \
+#     -list_name $list_name \
+#    -pretty_name $pretty_name \
+#    -attributes {
+#        {first_names textbox {First Name(s)} {First Names} required {description {this is my description of first names}}}
+#        {middle_names textbox {Middle Name(s)} {Middle Names}}
+#        {last_name textbox {Last Name} {Last Names} required}
+#        {email email {Email Address} {Email Addresses}}
+#        {url url {Website} {Websites}}
+#         {home_address address {Home Address} {Home Addresses}}
+#        {organization_address address {Organization Address} {Organization Addresses}}
+#        {home_phone telecom_number {Home Phone} {Home Phones}}
+#        {gender radio {Gender} {Genders} {options {{Male} {Female}}} required}
+#    }
+#
+#set object_id [ams::list::get_list_id \
+#                   -package_key $package_key \
+#                    -object_type $object_type \
+#                   -list_name $list_name]
+#set object_id "452"
+##ad_form -name entry \
+##    -form [ams::ad_form::elements -package_key $package_key \
+##               -object_type $object_type \
+##               -list_name $list_name \
+##              -key "object_id"] \
 #    -edit_request {
 #        ams::object::attribute::values -vars -object_id $object_id
 #    } -on_submit {
@@ -60,29 +63,30 @@
 #        }
 #    }
 #
-
-ams_form -package_key $package_key \
-    -object_type $object_type \
-    -list_name $list_name \
-    -form_name "entry" \
-    -object_id $object_id \
-    -return_url "./"
-
-set attr_list [ams::object::attribute::values -object_id $object_id]
-
-
-db_multirow lists get_list { select list_id, pretty_name from ams_lists }
-
-ams::multirow::extend \
-    -package_key $package_key \
-    -object_type $object_type \
-    -list_name $list_name \
-    -multirow "lists" \
-    -key "list_id"
+ 
+#ams_form -package_key $package_key \
+#    -object_type $object_type \
+#    -list_name $list_name \
+#    -form_name "entry" \
+#    -object_id $object_id \
+#    -return_url "./"
 #
-#template::multirow extend lists [list first_names last_name home_address first_names]
+# set attr_list [ams::object::attribute::values_flush -object_id $object_id]
+#set attr_list [ams::object::attribute::values -object_id $object_id]
 #
 #
+#db_multirow lists get_list { select list_id, pretty_name from ams_lists }
+#
+#ams::multirow::extend \
+#    -package_key $package_key \
+#     -object_type $object_type \
+#    -list_name $list_name \
+#    -multirow "lists" \
+#    -key "list_id"
+##
+##template::multirow extend lists [list first_names last_name home_address first_names]
+##
+##
 #set key_id "list_id"
 #template::multirow foreach lists {
 #    set object_id [set $key_id]