Index: openacs-4/packages/dotlrn/catalog/dotlrn.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/catalog/dotlrn.en_US.ISO-8859-1.xml,v
diff -u -N -r1.33.2.6.4.16 -r1.33.2.6.4.17
--- openacs-4/packages/dotlrn/catalog/dotlrn.en_US.ISO-8859-1.xml	15 Feb 2005 20:28:41 -0000	1.33.2.6.4.16
+++ openacs-4/packages/dotlrn/catalog/dotlrn.en_US.ISO-8859-1.xml	25 Feb 2005 21:16:38 -0000	1.33.2.6.4.17
@@ -53,6 +53,7 @@
   <msg key="archived_classes_and_communities">Archived %class_instances_pretty_plural% and %clubs_pretty_plural%</msg>
   <msg key="archived_groups">Archived %groups_pretty_plural%</msg>
   <msg key="Are_you_sure">Are you sure?</msg>
+  <msg key="Are_you_sure_del_class">Are you sure you want to delete subject</msg>
   <msg key="are_you_sure_you_want_to_send">Are you sure you want to send the following</msg>
   <description key="are_you_sure_you_want_to_send">Context?? the following what? Or is that the end of the phrase?</description>
 
@@ -132,7 +133,7 @@
   <msg key="Delete">Delete</msg>
   <msg key="Delete_Empty">Delete empty %departments_pretty_name%.</msg>
   <description key="Delete_Empty">Used as title of page for deleting empty department.</description>
-
+  <msg key="Delete_Empty_Class">Delete empty %pretty_name%.</msg>
   <msg key="Department">Department</msg>
   <msg key="department_must_be_empty_to_be_deleted">Error: %departments_pretty_name% must be empty to be deleted</msg>
   <msg key="department_name">%departments_pretty_name% Name</msg>
@@ -263,6 +264,7 @@
   <msg key="lt_Class_Key_a_short_nam">Class Key (a short name, no spaces)</msg>
   <msg key="lt_Communitys_Web_Addres">Community's Web Address</msg>
   <msg key="lt_Current_clubs_pretty_">Current %clubs_pretty_plural%</msg>
+  <msg key="lt_Delete_class">Delete subject</msg>
   <msg key="lt_Do_you_really_want_to">Do you really want to remove the following members?</msg>
   <msg key="lt_Do_you_really_want_to_1">Do you really want to remove %num_users% users?</msg>
   <msg key="lt_dotLRN_properties_for">dotLRN properties for this user.</msg>
Index: openacs-4/packages/dotlrn/www/admin/class-delete.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-delete.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/class-delete.adp	25 Feb 2005 21:16:38 -0000	1.1.2.1
@@ -0,0 +1,33 @@
+<%
+
+    #
+    #  Copyright (C) 2001, 2002 MIT
+    #
+    #  This file is part of dotLRN.
+    #
+    #  dotLRN is free software; you can redistribute it and/or modify it under the
+    #  terms of the GNU General Public License as published by the Free Software
+    #  Foundation; either version 2 of the License, or (at your option) any later
+    #  version.
+    #
+    #  dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+    #  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+    #  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
+    #  details.
+    #
+
+%>
+
+<master src="dotlrn-admin-master">
+<property name="context_bar">@context_bar@</property>
+
+<property name="title">@title@</property>
+
+#dotlrn.Are_you_sure_del_class# <strong>@pretty_name@</strong>?
+<br>
+
+<formtemplate id="delete_class"></formtemplate>
+
+
+
+
Index: openacs-4/packages/dotlrn/www/admin/class-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-delete.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/class-delete.tcl	25 Feb 2005 21:16:38 -0000	1.1.2.1
@@ -0,0 +1,45 @@
+#
+#  Copyright (C) 2001, 2002 MIT
+#
+#  This file is part of dotLRN.
+#
+#  dotLRN is free software; you can redistribute it and/or modify it under the
+#  terms of the GNU General Public License as published by the Free Software
+#  Foundation; either version 2 of the License, or (at your option) any later
+#  version.
+#
+#  dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+#  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+#  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
+#  details.
+#
+
+ad_page_contract {
+} {
+    class_key:notnull
+}
+
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin 
+
+# Get information about that class
+if {![db_0or1row select_class_info {}]} {
+    ad_returnredirect classes
+    ad_script_abort
+}
+
+ad_form -name delete_class -form {
+    {class_key:text(hidden)}
+} -on_request {
+    ad_set_form_values class_key
+} -on_submit {
+    #here's where we actually do the delete.
+    dotlrn_class::delete -class_key $class_key
+} -after_submit {
+    ad_returnredirect classes?[export_vars {department_key}]
+    ad_script_abort
+} -cancel_url classes?[export_vars {department_key}]
+
+
+set title "[_ dotlrn.Delete_Empty_Class]"
+set context_bar [list [list classes?[export_vars {department_key}] [parameter::get -localize -parameter classes_pretty_plural]] Delete]
Index: openacs-4/packages/dotlrn/www/admin/class-delete.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-delete.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/class-delete.xql	25 Feb 2005 21:16:38 -0000	1.1.2.1
@@ -0,0 +1,16 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+    <fullquery name="select_class_info">
+        <querytext>
+            select pretty_name,
+                   description,
+                   supertype,
+                   department_key
+            from dotlrn_classes_full
+            where class_key = :class_key
+        </querytext>
+    </fullquery>
+
+</queryset>
\ No newline at end of file
Index: openacs-4/packages/dotlrn/www/admin/classes-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/classes-chunk.tcl,v
diff -u -N -r1.9.6.2 -r1.9.6.3
--- openacs-4/packages/dotlrn/www/admin/classes-chunk.tcl	22 Nov 2004 22:23:08 -0000	1.9.6.2
+++ openacs-4/packages/dotlrn/www/admin/classes-chunk.tcl	25 Feb 2005 21:17:19 -0000	1.9.6.3
@@ -123,6 +123,13 @@
 		       \]</small>
 		</nobr>
 		</if>
+        <if @classes.n_instances@ eq 0>
+		<nobr>
+		<small>\[
+		<a href="class-delete?class_key=@classes.class_key@">[_ dotlrn.lt_Delete_class]</a>
+		       \]</small>
+		</nobr>
+        </if>
 	    }
         }
     }