+
+@title@
+@context@
+
+Pretty Name: @pretty_name@
+Pretty Plural: @pretty_plural@
+Widget: @attribute_info.widget_name@
+
+
+
Index: openacs-4/packages/ams/www/attribute.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/attribute.tcl,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/ams/www/attribute.tcl 30 Oct 2004 00:23:54 -0000 1.1
@@ -0,0 +1,129 @@
+ad_page_contract {
+
+ @author Matthew Geddert openacs@geddert.com
+ @creation-date 2004-07-28
+ @cvs-id $Id: attribute.tcl,v 1.1 2004/10/30 00:23:54 matthewg Exp $
+
+
+} {
+ {ams_attribute_id:notnull}
+ orderby:optional
+}
+
+ams::attribute::get -ams_attribute_id $ams_attribute_id -array "attribute_info"
+acs_object_type::get -object_type $attribute_info(object_type) -array "object_info"
+
+
+set pretty_name [_ $attribute_info(pretty_name)]
+set pretty_plural [_ $attribute_info(pretty_plural)]
+set title $pretty_name
+set context [list [list objects Objects] [list "object?object_type=$attribute_info(object_type)" $object_info(pretty_name)] $title]
+
+
+
+
+list::create \
+ -name options \
+ -multirow options \
+ -key option_id \
+ -row_pretty_plural "Options" \
+ -checkbox_name checkbox \
+ -selected_format "normal" \
+ -class "list" \
+ -main_class "list" \
+ -sub_class "narrow" \
+ -pass_properties {
+ } -actions {
+ } -bulk_action_export_vars {
+ ams_attribute_id
+ } -bulk_actions {
+ "Update" "attribute-options-update" "Update Options"
+ } -elements {
+ edit {
+ label {}
+ }
+ option {
+ label "Option"
+ display_template {
+
+ @options.option@
+
+
+
+ }
+ }
+ sort_order {
+ label "Sort Order"
+ display_template {
+ @title@
@context@
-This is currently a testing page for the save and retrieval procs
-
-
-@attr_list@
-
-
-
-
-
-
-
- @lists.first_names@ @lists.last_name@ @lists.middle_names@
-
-
-
+
Index: openacs-4/packages/ams/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/index.tcl,v
diff -u -N -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]
Index: openacs-4/packages/ams/www/list-add.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/list-add.adp,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/ams/www/list-add.adp 30 Oct 2004 00:23:54 -0000 1.1
@@ -0,0 +1,11 @@
+
+@title@
+@context@
+
+Note: Adding an AMS List here is primarily for demonstration purposes. In order for AMS Lists to be useful you need to integrated them with your package .
+
+$list_name already exists for $object_info(pretty_name) ."
+ }
+} -on_submit {
+
+ ams::list::flush -package_key $package_key -object_type $object_type -list_name $list_name
+
+ ams::list::new -list_id $list_id \
+ -package_key $package_key \
+ -object_type $object_type \
+ -list_name $list_name \
+ -pretty_name $pretty_name \
+ -description $description \
+ -description_mime_type "text/plain" \
+ -context_id ""
+
+ ams::list::flush -package_key $package_key -object_type $object_type -list_name $list_name
+
+
+} -edit_data {
+} -after_submit {
+ ad_returnredirect "list?[export_vars -url {package_key object_type list_name}]"
+ ad_script_abort
+}
+
+
+ad_return_template
Index: openacs-4/packages/ams/www/list-attributes-map.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/list-attributes-map.tcl,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/ams/www/list-attributes-map.tcl 30 Oct 2004 00:23:54 -0000 1.1
@@ -0,0 +1,23 @@
+ad_page_contract {
+
+
+ @author Matthew Geddert openacs@geddert.com
+ @creation-date 2004-07-28
+ @cvs-id $Id: list-attributes-map.tcl,v 1.1 2004/10/30 00:23:54 matthewg Exp $
+
+} {
+ {ams_attribute_id:integer,multiple}
+ {list_id:integer,notnull}
+}
+
+foreach ams_attribute_id $ams_attribute_id {
+ ams::list::attribute::map -list_id $list_id -ams_attribute_id $ams_attribute_id
+}
+
+ams::list::get -list_id $list_id -array "list_info"
+set package_key $list_info(package_key)
+set object_type $list_info(object_type)
+set list_name $list_info(list_name)
+
+ad_returnredirect "list?[export_vars -url {package_key object_type list_name}]"
+ad_script_abort
Index: openacs-4/packages/ams/www/list-attributes-optional.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/list-attributes-optional.tcl,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/ams/www/list-attributes-optional.tcl 30 Oct 2004 00:23:54 -0000 1.1
@@ -0,0 +1,23 @@
+ad_page_contract {
+
+
+ @author Matthew Geddert openacs@geddert.com
+ @creation-date 2004-07-28
+ @cvs-id $Id: list-attributes-optional.tcl,v 1.1 2004/10/30 00:23:54 matthewg Exp $
+
+} {
+ {ams_attribute_id:integer,multiple,notnull}
+ {list_id:integer,notnull}
+}
+
+foreach ams_attribute_id $ams_attribute_id {
+ ams::list::attribute::optional -list_id $list_id -ams_attribute_id $ams_attribute_id
+}
+
+ams::list::get -list_id $list_id -array "list_info"
+set package_key $list_info(package_key)
+set object_type $list_info(object_type)
+set list_name $list_info(list_name)
+
+ad_returnredirect "list?[export_vars -url {package_key object_type list_name}]"
+ad_script_abort
Index: openacs-4/packages/ams/www/list-attributes-required.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/list-attributes-required.tcl,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/ams/www/list-attributes-required.tcl 30 Oct 2004 00:23:54 -0000 1.1
@@ -0,0 +1,23 @@
+ad_page_contract {
+
+
+ @author Matthew Geddert openacs@geddert.com
+ @creation-date 2004-07-28
+ @cvs-id $Id: list-attributes-required.tcl,v 1.1 2004/10/30 00:23:54 matthewg Exp $
+
+} {
+ {ams_attribute_id:integer,multiple,notnull}
+ {list_id:integer,notnull}
+}
+
+foreach ams_attribute_id $ams_attribute_id {
+ ams::list::attribute::required -list_id $list_id -ams_attribute_id $ams_attribute_id
+}
+
+ams::list::get -list_id $list_id -array "list_info"
+set package_key $list_info(package_key)
+set object_type $list_info(object_type)
+set list_name $list_info(list_name)
+
+ad_returnredirect "list?[export_vars -url {package_key object_type list_name}]"
+ad_script_abort
Index: openacs-4/packages/ams/www/list-attributes-unmap.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/list-attributes-unmap.tcl,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/ams/www/list-attributes-unmap.tcl 30 Oct 2004 00:23:54 -0000 1.1
@@ -0,0 +1,22 @@
+ad_page_contract {
+
+ @author Matthew Geddert openacs@geddert.com
+ @creation-date 2004-07-28
+ @cvs-id $Id: list-attributes-unmap.tcl,v 1.1 2004/10/30 00:23:54 matthewg Exp $
+
+} {
+ {ams_attribute_id:integer,multiple}
+ {list_id:integer,notnull}
+}
+
+foreach ams_attribute_id $ams_attribute_id {
+ ams::list::attribute::unmap -list_id $list_id -ams_attribute_id $ams_attribute_id
+}
+
+ams::list::get -list_id $list_id -array "list_info"
+set package_key $list_info(package_key)
+set object_type $list_info(object_type)
+set list_name $list_info(list_name)
+
+ad_returnredirect "list?[export_vars -url {package_key object_type list_name}]"
+ad_script_abort
Index: openacs-4/packages/ams/www/list-order-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/list-order-update.tcl,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/ams/www/list-order-update.tcl 30 Oct 2004 00:23:54 -0000 1.1
@@ -0,0 +1,49 @@
+ad_page_contract {
+
+ Update sort order
+
+ @author Matthew Geddert openacs@geddert.com
+ @creation-date 2004-07-28
+ @cvs-id $Id: list-order-update.tcl,v 1.1 2004/10/30 00:23:54 matthewg Exp $
+
+
+} {
+ sort_key:array
+ list_id:integer,notnull
+}
+
+
+set ams_attribute_ids [db_list get_attribute_ids { select ams_attribute_id from ams_list_attribute_map where list_id = :list_id order by sort_order }]
+
+
+# first we get the highest sort_order so variables without a sort_order can be given one
+set highest_sort 0
+set used_sorts [list]
+foreach ams_attribute_id $ams_attribute_ids {
+ if { $sort_key(${ams_attribute_id}) > $highest_sort } {
+ set highest_sort $sort_key(${ams_attribute_id})
+ }
+}
+
+db_transaction {
+ foreach ams_attribute_id $ams_attribute_ids {
+ set sort_order $sort_key(${ams_attribute_id})
+ incr highest_sort 1
+ db_dml update_sort_order { update ams_list_attribute_map set sort_order = :highest_sort where sort_order = :sort_order and list_id = :list_id }
+ if { ![exists_and_not_null sort_order] } {
+ incr highest_sort 1
+ set sort_order $highest_sort
+ }
+ db_dml update_sort_order { update ams_list_attribute_map set sort_order = :sort_order where ams_attribute_id = :ams_attribute_id and list_id = :list_id }
+ }
+}
+
+ams::list::get -list_id $list_id -array "list_info"
+set package_key $list_info(package_key)
+set object_type $list_info(object_type)
+set list_name $list_info(list_name)
+
+ad_returnredirect "list?[export_vars -url {package_key object_type list_name}]"
+ad_script_abort
+
+ad_returnredirect "object-map?object_id=$object_id"
Index: openacs-4/packages/ams/www/list.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/list.adp,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/ams/www/list.adp 30 Oct 2004 00:23:54 -0000 1.1
@@ -0,0 +1,21 @@
+
+@title@
+@context@
+
+
+Package Key: @package_key@
+Object Type: @object_type@
+List Name: @list_name@
+
+Mapped Attributes
+
+Unmapped Attributes
+
+Unmap
+ }
+ }
+ answer {
+ label "Required"
+ display_template {
+
+
+
+
+ }
+ }
+ sort_order {
+ label "Ordering"
+ display_template {
+ Map
+ }
+ }
+ } -filters {
+ } -groupby {
+ } -orderby {
+ } -formats {
+ normal {
+ label "Table"
+ layout table
+ row {
+ checkbox {}
+ pretty_name {}
+ widget {}
+ action {}
+ }
+ }
+ }
+
+
+
+# This query will override the ad_page_contract value entry_id
+
+db_multirow -extend { attribute_url } -unclobber unmapped_attributes get_unmapped_attributes {
+ select ams.ams_attribute_id,
+ ams.widget_name,
+ ams.deprecated_p,
+ acs.attribute_name,
+ acs.pretty_name,
+ acs.pretty_plural,
+ acs.object_type
+ from ams_attributes ams,
+ acs_attributes acs
+ where ams.ams_attribute_id not in ( select alam.ams_attribute_id from ams_list_attribute_map alam where alam.list_id = :list_id )
+ and ams.attribute_id = acs.attribute_id
+} {
+ set pretty_name [_ $pretty_name]
+ set attribute_url "attribute?[export_vars -url {ams_attribute_id}]"
+
+}
+
+
+
+ad_return_template
+
+
+
+
+
Index: openacs-4/packages/ams/www/lists.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/lists.adp,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/ams/www/lists.adp 30 Oct 2004 00:23:54 -0000 1.1
@@ -0,0 +1,11 @@
+
+
+@title@
+@context@
+
+You can create a list by selecting an acs_object . Note that list creation should be done with contracting packages. These lists shows what ams can do for your package.
+
+
+
+
+@title@
+@context@
+
+
+
+AMS Attributes
+Attributes not managed by AMS
+AMS Lists associated with @object_info.pretty_plural@
+Upgrade to AMS Attribute Upgrade to AMS Attribute
+ }
+ }
+ } -filters {
+ object_type {}
+ } -groupby {
+ } -orderby {
+ } -formats {
+ normal {
+ label "Table"
+ layout table
+ row {
+ pretty_name {}
+ attribute_name {}
+ }
+ }
+ }
+
+
+db_multirow non_ams_object_attributes select_non_ams_object_attributess {
+ select acs.attribute_name,
+ acs.pretty_name,
+ acs.pretty_plural,
+ acs.attribute_id
+ from acs_attributes acs
+ where acs.object_type = :object_type
+ and acs.attribute_id not in ( select attribute_id from ams_attributes )
+} {
+}
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+# AMS Lists associated with this object type
+
+list::create \
+ -name ams_lists \
+ -multirow ams_lists \
+ -key list_id \
+ -row_pretty_plural "Attributes not managed by AMS" \
+ -checkbox_name checkbox \
+ -selected_format "normal" \
+ -class "list" \
+ -main_class "list" \
+ -sub_class "narrow" \
+ -pass_properties {
+ variable
+ } -actions [list "Add" "list-add?object_type=$object_type" "Add an AMS List"] \
+ -bulk_actions {
+ } -elements {
+ package_key {
+ label "Package Key"
+ display_col package_key
+ }
+ object_type {
+ label "Object Type"
+ display_col object_type
+ }
+ list_name {
+ label "List Name"
+ display_col list_name
+ link_url_eval $list_link
+ }
+ pretty_name {
+ display_col pretty_name
+ label "Pretty Name"
+ }
+ description {
+ display_col description_html;noquote
+ label "Description"
+ }
+ actions {
+ label ""
+ display_template {
+
+
+@title@
+@context@
+
+
+
+
+
+@title@
+@context@
+
+
+$widget_name
$pretty_plural
widget: $widget
"]
+ lappend form_elements $form_element
+}
+
+ad_form -name widgets_form -form $form_elements -on_submit {}
+
+
+
+ad_return_template
+ 
+