Index: openacs-4/packages/dotlrn/www/admin/departments.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/departments.adp,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/www/admin/departments.adp	18 May 2002 22:42:11 -0000	1.10
+++ openacs-4/packages/dotlrn/www/admin/departments.adp	19 May 2002 15:41:35 -0000	1.11
@@ -23,7 +23,7 @@
 <property name="context_bar">@context_bar@</property>
 
 [<small>
-  <a href="department-new?referer=departments">New <%= [dotlrn::parameter departments_pretty_name] %></a>
+  <a href="department-new?referer=@referer@">New <%= [dotlrn::parameter departments_pretty_name] %></a>
 </small>]
 
 <p></p>
@@ -32,17 +32,25 @@
 <table width="100%">
   <tr>
     <th align="left"><%= [dotlrn::parameter departments_pretty_name] %> Name</th>
+    <th align="left">Actions</th>
   </tr>
 <multiple name="departments">
   <tr>
     <td><a href="department?department_key=@departments.department_key@">@departments.pretty_name@</a></td>
+    <td>
+<if @can_create@>
+      [<small>
+        <a href="class-new?department_key=@departments.department_key@&referer=department?department_key=@departments.department_key@">New <%= [dotlrn::parameter classes_pretty_name] %></a>
+      </small>]
+</if>
+    </td>
   </tr>
 </multiple>
 </table>
 </if>
 
 <if @departments:rowcount@ gt 10>
 [<small>
-  <a href="department-new?referer=departments">New <%= [dotlrn::parameter departments_pretty_name] %></a>
+  <a href="department-new?referer=@referer@">New <%= [dotlrn::parameter departments_pretty_name] %></a>
 </small>]
 </if>
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.4 -r1.5
--- openacs-4/packages/dotlrn/www/admin/departments.tcl	18 May 2002 22:42:11 -0000	1.4
+++ openacs-4/packages/dotlrn/www/admin/departments.tcl	19 May 2002 15:41:36 -0000	1.5
@@ -29,6 +29,8 @@
 
 set title [dotlrn::parameter departments_pretty_plural]
 set context_bar [dotlrn::parameter departments_pretty_plural]
+set referer departments
+set can_create [dotlrn_class::can_create]
 
 db_multirow departments select_departments {}