Index: openacs-4/packages/ams/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/index.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/ams/www/index.tcl	18 May 2005 17:11:48 -0000	1.6
+++ openacs-4/packages/ams/www/index.tcl	28 May 2005 15:37:27 -0000	1.7
@@ -1,112 +1,15 @@
-ad_page_contract {
-
-    @author Matthew Geddert openacs@geddert.com
-    @creation-date 2004-07-28
-    @cvs-id $Id$
-
-
-} {
-}
-
-set title "Attribute Management System"
-set context {}
-
-
-
-# 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"
-#
-#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 {
-#        ams::ad_form::save -package_key $package_key \
-#            -object_type $object_type \
-#            -list_name $list_name \
-#            -form_name "entry" \
-#            -object_id $object_id
-#    } -after_submit {
-#        if { ![exists_and_not_null return_url] } {
-#            set return_url "./"
-#        }
-#    }
-#
- 
-#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_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]
-#    ams::object::attribute::values -vars -object_id $object_id
-#}
-## set attr_list $rowcount
-#template::multirow foreach lists {
-#    ns_log Notice "$first_names $last_name $home_address"
-#}
-
-
-set fred ""
-
-foreach { arg_parser procedure } [info procs "::ams::widget::*"] {
-    regsub "::ams::widget::" $procedure "" widget
-    if { [exists_and_not_null widget] } {
-	lappend fred $widget
-    }
-}
-set fred "date"
-set fred [info procs "::ams::widget::${fred}"]
-
-ad_return_template
+ad_page_contract {
+
+    @author Matthew Geddert openacs@geddert.com
+    @creation-date 2004-07-28
+    @cvs-id $Id$
+
+
+} {
+}
+
+# MS (2005-05-29): Removed a ton of code that is unnecessary
+set title "[_ ams.lt_Attribute_Management_]"
+set context {}
+
+ad_return_template