Index: openacs-4/packages/dotlrn/www/admin/departments.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/departments.tcl,v
diff -u -r1.9.6.1 -r1.9.6.2
--- openacs-4/packages/dotlrn/www/admin/departments.tcl	25 Aug 2004 15:50:58 -0000	1.9.6.1
+++ openacs-4/packages/dotlrn/www/admin/departments.tcl	30 Sep 2004 17:14:09 -0000	1.9.6.2
@@ -21,6 +21,8 @@
     @creation-date 2002-01-20
     @version $Id$
 } -query {
+    {orderby "department_name,asc"}
+    page:optional
 } -properties {
     title:onevalue
     context_bar:onevalue
@@ -38,6 +40,41 @@
 set departments_pretty_plural [parameter::get -localize -parameter departments_pretty_plural]
 set classes_pretty_name [parameter::get -localize -parameter classes_pretty_name]
 
+set actions [list "[_ dotlrn.new_department]" "[export_vars -base "department-new" -url { referer }]"]
+
+template::list::create \
+    -name departments \
+    -multirow departments \
+    -actions $actions \
+    -pass_properties { can_create {} referer {} } \
+    -key department_key \
+    -page_size 50 \
+    -page_flush_p t \
+    -page_query_name departments_pagination \
+    -elements {
+        department_name {
+            label "[_ dotlrn.department_name]"
+	    orderby_asc {department_name asc}
+	    orderby_desc {department_name desc}	
+	    link_url_eval {[export_vars -base "department" { department_key }]}
+	}
+        actions {
+            label "[_ dotlrn.Actions]"
+	    display_template {
+		<if @can_create@>
+		\[
+		<a href="class-new?department_key=@departments.department_key@&referer=department?department_key=@departments.department_key@">[_ dotlrn.new_class_1]</a>
+		</if>
+		<if @departments.n_classes@ eq 0>
+		|
+		<a href="department-delete?department_key=@departments.department_key@&pretty_name=@departments.department_name@&referer=departments">[_ dotlrn.Delete]</a>
+		</if>
+		\]
+	    }
+        }
+    }
+
+
 db_multirow departments select_departments {}
 
 ad_return_template