Index: openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl	15 May 2002 20:32:01 -0000	1.17
+++ openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl	15 May 2002 22:35:04 -0000	1.18
@@ -123,10 +123,18 @@
 }
 
 if {$view == "list"} {
+    set sort_by [ns_queryget sort_by]
+
+    if {[empty_string_p $sort_by]} {
+        set sort_by "item_type"
+    }
+
     set cal_stuff [calendar::list_display \
             -item_template $item_template \
             -date $current_date \
             -calendar_id_list $list_of_calendar_ids \
+            -sort_by $sort_by \
+            -url_template "?view=list&sort_by=\$order_by&page_num=$page_num" \
             -url_stub_callback "calendar_portlet_display::get_url_stub" \
             -show_calendar_name_p $show_calendar_name_p]
 }