Index: openacs-4/packages/curriculum-central/catalog/curriculum-central.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/catalog/curriculum-central.en_US.ISO-8859-1.xml,v
diff -u -r1.47 -r1.48
--- openacs-4/packages/curriculum-central/catalog/curriculum-central.en_US.ISO-8859-1.xml 2 Apr 2006 02:06:06 -0000 1.47
+++ openacs-4/packages/curriculum-central/catalog/curriculum-central.en_US.ISO-8859-1.xml 12 Apr 2006 02:06:17 -0000 1.48
@@ -389,6 +389,8 @@
Edit faculty information
Delete staff member
Are you sure you want to delete @staff.staff_name@? Note: This will not delete the users account.
+ Delete Teaching and Learning Method
+ Are you sure you want to delete the Teaching and Learning method?
Faculty Name
Dean
Add Faculty
Index: openacs-4/packages/curriculum-central/www/coordinate/tl-method-del-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/coordinate/tl-method-del-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/curriculum-central/www/coordinate/tl-method-del-postgresql.xql 12 Apr 2006 02:06:18 -0000 1.1
@@ -0,0 +1,19 @@
+
+
+
+ postgresql7.4
+
+
+
+ SELECT cc_uos_tl__delete(:method_id)
+
+
+
+
+
+ UPDATE cc_uos_tl_method_map SET method_id = NULL
+ WHERE method_id = :method_id
+
+
+
+
Index: openacs-4/packages/curriculum-central/www/coordinate/tl-method-del.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/coordinate/tl-method-del.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/curriculum-central/www/coordinate/tl-method-del.tcl 12 Apr 2006 02:06:18 -0000 1.1
@@ -0,0 +1,30 @@
+ad_page_contract {
+ Deletes a user from the staff group and redirects back to listing of
+ staff. Able to specify a return_url if the default is not suitable.
+
+ @param staff_id The ID of the user that needs to be removed from the
+ staff list.
+ @param return_url Optional url to redirect to when the delete operation
+ is complete.
+
+ @author Nick Carroll (nick.c@rroll.net)
+ @creation-date 2005-12-04
+ @cvs-id $Id: tl-method-del.tcl,v 1.1 2006/04/12 02:06:18 ncarroll Exp $
+} {
+ method_id:integer
+ return_url:optional
+}
+
+if { ![info exists return_url] } {
+ set return_url "tl-methods"
+}
+
+set package_id [ad_conn package_id]
+
+db_transaction {
+ db_dml tl_method_map_update {}
+ db_exec_plsql tl_method_delete {}
+}
+
+ad_returnredirect $return_url
+ad_script_abort
Index: openacs-4/packages/curriculum-central/www/coordinate/tl-methods.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/coordinate/tl-methods.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/curriculum-central/www/coordinate/tl-methods.tcl 6 Jan 2006 05:46:13 -0000 1.3
+++ openacs-4/packages/curriculum-central/www/coordinate/tl-methods.tcl 12 Apr 2006 02:06:18 -0000 1.4
@@ -33,6 +33,14 @@
description {
label "#curriculum-central.description#"
}
+ delete {
+ sub_class narrow
+ display_template {
+
+ }
+ link_url_eval {[export_vars -base tl-method-del { method_id }]}
+ link_html {title "#curriculum-central.delete_tl_method#" onclick "return confirm(\'[_ curriculum-central.want_to_delete_tl_method]\');"}
+ }
}
template::list::create \