For many application the AMS and ad_form shorthand will be too simplistic. For those situations, you can use ams to interface with ad_form. You need to define ad_from -form elements like this: +
For many application the AMS and ad_form shorthand will be too simplistic. For those situations, you can use ams to interface with ad_form. You need to define ad_form -form elements like this:
ad_form ... -form [ams::ad_form::elements -package_key "contacts" -object_type "ct_contact" -list_name "contact_person"] ...-
Note that this procedure returns an ad form appropriate element list. If you intending to define other elements you will need to ad_from -extend -name form_name -form ...
Note that this procedure returns an ad form appropriate element list. If you intending to define other elements you will need to ad_form -extend -name form_name -form ...
In the ad_form -edit_request block put
ad_form ... -edit_request {
ams::object::attribute::values -vars -object_id $object_id
} ...
-This returns the variables upvared into your page, i.e. the first_names attribute could be returned with a value of "Jane" and the last_name attribute with a value of "Doe"... etc. ad_from looks for all form elements and appropriately pre-fills the form with the given values.
+This returns the variables upvared into your page, i.e. the first_names attribute could be returned with a value of "Jane" and the last_name attribute with a value of "Doe"... etc. ad_form looks for all form elements and appropriately pre-fills the form with the given values.
In the -on_submit block you enter the following:
-ad_from ... -on_submit {
+ad_form ... -on_submit {
ams::ad_form::save \
-package_key "contacts" \
-object_type "ct_contact" \
Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-scheduled-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-scheduled-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-scheduled-procs.tcl 14 Oct 2013 18:14:22 -0000 1.3
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-scheduled-procs.tcl 28 Mar 2018 23:36:17 -0000 1.4
@@ -10,7 +10,7 @@
@cvs-id $Id$
}
-namespace eval bug_tacker {}
+namespace eval bug_tracker {}
namespace eval bug_tracker::scheduled {}
ad_proc -public bug_tracker::scheduled::close_bugs {
Index: openacs-4/packages/cards/www/cards_list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cards/www/cards_list.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/cards/www/cards_list.tcl 22 Jun 2006 13:00:54 -0000 1.1
+++ openacs-4/packages/cards/www/cards_list.tcl 28 Mar 2018 23:36:17 -0000 1.2
@@ -139,7 +139,7 @@
template::list::create \
-name csv_members \
-multirow current_members \
- -key user_id_id \
+ -key user_id \
-elements $elements \
-selected_format csv -formats {
csv { output csv }
Index: openacs-4/packages/cms/www/modules/items/relate-items.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/relate-items.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/cms/www/modules/items/relate-items.tcl 17 May 2005 21:25:08 -0000 1.6
+++ openacs-4/packages/cms/www/modules/items/relate-items.tcl 28 Mar 2018 23:36:17 -0000 1.7
@@ -77,7 +77,7 @@
} elseif { $prev_item != $clip_row(related_id) && [llength $item_tags] > 0 } {
- # Apppend another row
+ # Append another row
add_row
set item_tags [list [list $clip_row(relation_tag) $clip_row(relation_tag)]]
Index: openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl,v
diff -u -r1.62 -r1.63
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl 26 Jun 2007 02:53:13 -0000 1.62
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl 28 Mar 2018 23:36:17 -0000 1.63
@@ -226,7 +226,7 @@
{-party_id:required}
{-form:required}
} {
- This callback is executed first in the new_data or edit_data ad_from
+ This callback is executed first in the new_data or edit_data ad_form
blocks when creating or saving a contacts information
} -
Index: openacs-4/packages/ecommerce/www/thank-you.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/thank-you.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/ecommerce/www/thank-you.tcl 11 Aug 2008 13:01:10 -0000 1.8
+++ openacs-4/packages/ecommerce/www/thank-you.tcl 28 Mar 2018 23:36:17 -0000 1.9
@@ -49,7 +49,7 @@
if { [empty_string_p $order_id] } {
rp_internal_redirect index
- ad_stript_abort
+ ad_script_abort
}
set order_summary [ec_order_summary_for_customer $order_id $user_id]
Index: openacs-4/packages/imsld/tcl/imsld-gsi-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-gsi-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/imsld/tcl/imsld-gsi-procs.tcl 27 Mar 2018 17:08:50 -0000 1.2
+++ openacs-4/packages/imsld/tcl/imsld-gsi-procs.tcl 28 Mar 2018 23:36:17 -0000 1.3
@@ -129,7 +129,7 @@
set full_data_list [list]
foreach usage_id $usages {
#si es deploy o close, la lista es {deploy {} {}} o {close {} {}}
- set function_name [db_string get_funtion_name {
+ set function_name [db_string get_function_name {
select fu.function_name
from imsld_gsi_funct_usage us,
imsld_gsi_functions fu
Index: openacs-4/packages/imsld/tcl/imsld-runtime-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-runtime-procs.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/imsld/tcl/imsld-runtime-procs.tcl 14 Jan 2010 09:44:45 -0000 1.23
+++ openacs-4/packages/imsld/tcl/imsld-runtime-procs.tcl 28 Mar 2018 23:36:17 -0000 1.24
@@ -444,7 +444,7 @@
{-with_control_p ""}
-action:required
} {
- mark a class as showh or hidden. NOTE: not recursively
+ mark a class as shown or hidden. NOTE: not recursively
} {
set user_id [expr { [string eq "" $user_id] ? [ad_conn user_id] : $user_id }]
if { [string eq $action "show"] } {
@@ -480,7 +480,7 @@
-action
-user_id
} {
- mark an environment as showh or hidden. NOTE: not recursively
+ mark an environment as shown or hidden. NOTE: not recursively
} {
if {![info exist user_id]} {
Index: openacs-4/packages/imsld/www/doc/ch04s01.html
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/doc/ch04s01.html,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/imsld/www/doc/ch04s01.html 23 Jun 2008 08:55:30 -0000 1.6
+++ openacs-4/packages/imsld/www/doc/ch04s01.html 28 Mar 2018 23:36:17 -0000 1.7
@@ -52,7 +52,7 @@
servicesemail_service_id
select - all-persons-in-role, persons-in-role
title
is_visible_p
imsld_email_data
sendmail_service_id - references imsld_email_services
role_id - references imsld_roles
email_data
email_property_id - references imsld_properties **
username_property_id - references imsld_properties **
imsld_conference_services
conference_id
conference_type - synchronous, asynchronous or - announcement
title
item_id - references imsld_items
is_visible_p
imsld_index_search_services
search_service_id
title
index_class - this element selects the calss to make the + announcement
title
item_id - references imsld_items
is_visible_p
imsld_index_search_services
search_service_id
title
index_class - this element selects the class to make the index on
index_element - this element selects the element to make the index on
index_type_of_element - type of element to index on
search_type - type of search facility that is expected at
runtime: free-text-search, index-with-reference,
Index: openacs-4/packages/imsld/www/doc/xmlfiles/imsld-data-model.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/doc/xmlfiles/imsld-data-model.xml,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/imsld/www/doc/xmlfiles/imsld-data-model.xml 5 Jul 2005 16:13:45 -0000 1.2
+++ openacs-4/packages/imsld/www/doc/xmlfiles/imsld-data-model.xml 28 Mar 2018 23:36:17 -0000 1.3
@@ -472,7 +472,7 @@