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 -r1.17
--- openacs-4/packages/dotlrn-fs/www/all-objects.tcl	27 Oct 2014 16:41:20 -0000	1.16
+++ openacs-4/packages/dotlrn-fs/www/all-objects.tcl	7 Aug 2017 23:48:10 -0000	1.17
@@ -27,7 +27,7 @@
 
 } -query {
     {n_past_days:integer 999999}
-    {orderby "name"}
+    {orderby:token "name"}
 } -properties {
     n_past_days:onevalue
     days_singular_or_plural:onevalue
@@ -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,21 +94,30 @@
     }
 
 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:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: