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 user’s 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 \