Index: openacs-4/packages/dotlrn-fs/www/all-objects.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/www/all-objects.tcl,v
diff -u -r1.16.2.1 -r1.16.2.2
--- openacs-4/packages/dotlrn-fs/www/all-objects.tcl	11 Sep 2015 11:40:57 -0000	1.16.2.1
+++ openacs-4/packages/dotlrn-fs/www/all-objects.tcl	10 Nov 2016 15:02:13 -0000	1.16.2.2
@@ -38,19 +38,19 @@
 
 set days_singular_or_plural [ad_decode $n_past_days "1" [_ dotlrn-fs.day] [_ dotlrn-fs.days]]
 
-form create n_past_days_form
+form create n_past_days_form -has_submit 1
 
 set options [list [list [_ dotlrn-fs.All] 999999] {1 1} {2 2} {3 3} {7 7} {14 14} {30 30}]
 element create n_past_days_form n_past_days \
     -label "" \
     -datatype text \
     -widget select \
     -options $options \
-    -html {onChange document.n_past_days_form.submit()} \
     -value $n_past_days
+template::add_event_listener -id n_past_days -event change -script {document.n_past_days_form.submit();}
 
 element create n_past_days_form orderby \
-    -label "[_ dotlrn-fs.Order_By]" \
+    -label [_ dotlrn-fs.Order_By] \
     -datatype text \
     -widget hidden \
     -value $orderby
@@ -94,23 +94,26 @@
     }
 
 db_multirow -extend {name_url folder_name_url content_size_url} files_list select_folder_contents {} {
-    set folder_name_url "[site_node_object_map::get_url -object_id $parent_id]?folder_id=$parent_id"
+    set parent_url [site_node_object_map::get_url -object_id $parent_id]
+    set folder_name_url "$parent_url?folder_id=$parent_id"
     set last_modified [lc_time_fmt $last_modified "%q"]
     switch $type {
 	"folder" {
 	    set name_url "[site_node_object_map::get_url -object_id $object_id]?folder_id=$object_id"
 	    set content_size "$content_size item[ad_decode $content_size 1 {} s]"
 	}
 	"url" {
-	    set name_url "[site_node_object_map::get_url -object_id $parent_id]url-goto?url_id=$object_id"
+	    set name_url "${parent_url}url-goto?url_id=$object_id"
 	    set content_size "$content_size byte[ad_decode $content_size 1 {} s]"
 	}
 	default {
-	    set name_url "[site_node_object_map::get_url -object_id $parent_id]download/$file_upload_name?version_id=$live_revision" 
+	    set name_url "${parent_url}download/$file_upload_name?version_id=$live_revision" 
 	}
     }
 }
 
+template::add_event_listener -id "number_of_members" -event change -script {TaskInGroups();}
+
 ad_return_template
 
 # Local variables: