Index: openacs-4/packages/dotlrn/www/admin/term.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/term.tcl,v
diff -u -r1.12.6.1 -r1.12.6.2
--- openacs-4/packages/dotlrn/www/admin/term.tcl	25 Aug 2004 15:50:58 -0000	1.12.6.1
+++ openacs-4/packages/dotlrn/www/admin/term.tcl	30 Sep 2004 17:14:09 -0000	1.12.6.2
@@ -23,6 +23,8 @@
 } -query {
     term_id:integer,notnull
     {department_key ""}
+    {orderby "department_name,asc"}
+    page:optional
 } -properties {
     classes:multirow
 }
@@ -97,15 +99,16 @@
 }
 
 set query "select_classes"
+set paginator_query "select_classes_paginator"
 if {$term_id == -1} {
     set query "select_all_classes"
+    set paginator_query "select_all_classes_paginator"
 }
 if {![empty_string_p $department_key]} {
     append query "_by_department"
+    append paginator_query "_by_department"
 }
 
-db_multirow classes $query {}
-
 if {$term_id == -1} {
     set title "[_ dotlrn.All_Terms]"
     set context_bar [list [list terms [_ dotlrn.Terms]] "[_ dotlrn.All_Terms]"]
@@ -122,4 +125,55 @@
 # Used by the en_US version of the no_class_instances message in the adp
 set class_instances_pretty_plural [parameter::get -localize -parameter class_instances_pretty_plural]
 
+set elements [list department_name \
+		  [list label "[parameter::get -localize -parameter departments_pretty_name]" \
+		       orderby_asc {department_name asc, class_name asc, pretty_name asc} \
+		       orderby_desc {department_name desc, class_name desc, pretty_name desc} \
+		       link_url_eval {[export_vars -base "department" { department_key }]}] \
+		  class_name \
+		  [list label "[parameter::get -localize -parameter classes_pretty_name]" \
+		       orderby_asc {class_name asc, pretty_name asc} \
+		       orderby_desc {class_name desc, pretty_name desc} \
+		       link_url_eval {[export_vars -base "class" { class_key }]}] \
+		 ]
+
+if { $term_id == -1 } {
+    lappend elements term_name \
+	[list label "[_ dotlrn.term]" \
+	     orderby_asc {term_name asc, pretty_name asc} \
+	     orderby_desc {term_name desc, pretty_name desc}]
+}
+
+lappend elements pretty_name \
+    [list label "[parameter::get -localize -parameter class_instances_pretty_name]" \
+	 link_url_col url \
+	 orderby_asc {pretty_name asc} \
+	 orderby_desc {pretty_name desc}]
+lappend elements n_members \
+    [list label "[_ dotlrn.actions]"]
+lappend elements action \
+    [list label "[_ dotlrn.Actions]" \
+	 display_template {
+	     <center>
+	     <nobr>
+	     <small>
+	     <a href="@classes.url@one-community-admin">[_ dotlrn.administer_link]</a>
+	     </small>
+	     </nobr>
+	     </center>
+	 }]
+
+
+template::list::create \
+    -name classes \
+    -multirow classes \
+    -filters { department_key {} term_id {} } \
+    -key class_key \
+    -page_size 50 \
+    -page_flush_p t \
+    -page_query_name $paginator_query \
+    -elements $elements
+
+db_multirow classes $query {}
+
 ad_return_template