Index: openacs-4/packages/dotlrn/www/manage-memberships.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/manage-memberships.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/dotlrn/www/manage-memberships.tcl	28 Jun 2015 11:58:50 -0000	1.22
+++ openacs-4/packages/dotlrn/www/manage-memberships.tcl	7 Aug 2017 23:48:09 -0000	1.23
@@ -38,8 +38,8 @@
 } -query {
     {member_department_key ""}
     {non_member_department_key ""}
-    {member_term_id -1}
-    {non_member_term_id -1}
+    {member_term_id:integer -1}
+    {non_member_term_id:integer -1}
 } -properties {
 }
 
@@ -84,23 +84,25 @@
 }]
 set terms [linsert $terms 0 [list [_ dotlrn.All] -1]]
 
-form create member_form
+form create member_form \
+    -has_submit 1
 
 element create member_form member_department_key \
     -label "[_ dotlrn.Department]" \
     -datatype text \
     -widget select \
     -options $departments \
-    -html {onChange document.member_form.submit()} \
+    -html {class auto-member-form-submit} \
     -value $member_department_key
 
 element create member_form member_term_id \
     -label "[_ dotlrn.Term]" \
     -datatype integer \
     -widget select \
     -options $terms \
-    -html {onChange document.member_form.submit()} \
+    -html {class auto-member-form-submit} \
     -value $member_term_id
+template::add_event_listener -CSSclass auto-member-form-submit -event change -script {document.member_form.submit();}
 
 element create member_form non_member_department_key \
     -label "[_ dotlrn.Department]" \
@@ -114,6 +116,8 @@
     -widget hidden \
     -value $non_member_term_id
 
+
+
 if {[form is_valid member_form]} {
     form get_values member_form \
         member_department_key member_term_id \
@@ -132,7 +136,12 @@
 
 set n_member_classes [db_string select_n_member_classes {}]
 
-template::list::create -name member_classes -multirow member_classes -pass_properties { show_drop_button_p referer } -html {width 100%} -elements {
+template::list::create \
+    -name member_classes \
+    -multirow member_classes \
+    -pass_properties { show_drop_button_p referer } \
+    -html {width 100%} \
+    -elements {
     name {
         html {align left style "width:55%"}
         label "[_ dotlrn.class_instances_pretty_name]"
@@ -209,23 +218,25 @@
     set role [dotlrn_community::get_role_pretty_name -community_id $club_id -rel_type $rel_type]
 }
 
-form create non_member_form
+form create non_member_form \
+    -has_submit 1
 
 element create non_member_form non_member_department_key \
     -label "[_ dotlrn.Department]" \
     -datatype text \
     -widget select \
     -options $departments \
-    -html {onChange document.non_member_form.submit()} \
+    -html {class auto-non_member-form-submit} \
     -value $non_member_department_key
 
 element create non_member_form non_member_term_id \
     -label "[_ dotlrn.Term]" \
     -datatype integer \
     -widget select \
     -options $terms \
-    -html {onChange document.non_member_form.submit()} \
+    -html {class auto-non_member-form-submit} \
     -value $non_member_term_id
+template::add_event_listener -CSSclass auto-non_member-form-submit -event change -script {document.non_member_form.submit();}
 
 element create non_member_form member_department_key \
     -label "[_ dotlrn.Department]" \
@@ -365,3 +376,9 @@
 set context [list $doc(title)]
 
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: