Index: openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs-oracle.xql,v diff -u -r1.1 -r1.1.16.1 --- openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs-oracle.xql 14 Jan 2005 00:01:37 -0000 1.1 +++ openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs-oracle.xql 1 Oct 2020 11:24:12 -0000 1.1.16.1 @@ -1,4 +1,4 @@ - +?xml version="1.0"?> oracle8.1.6 @@ -12,20 +12,4 @@ - - - - delete from dotlrn_community_applets where applet_id = :applet_id - - - - - - - - delete from dotlrn_applets where applet_id = :applet_id - - - - Index: openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs-postgresql.xql,v diff -u -r1.3 -r1.3.12.1 --- openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs-postgresql.xql 8 Aug 2006 21:26:34 -0000 1.3 +++ openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs-postgresql.xql 1 Oct 2020 11:24:12 -0000 1.3.12.1 @@ -34,21 +34,4 @@ - - - - - delete from dotlrn_community_applets where applet_id = :applet_id - - - - - - - - delete from dotlrn_applets where applet_id = :applet_id - - - - Index: openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs.tcl,v diff -u -r1.10.2.2 -r1.10.2.3 --- openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs.tcl 24 Aug 2020 15:04:39 -0000 1.10.2.2 +++ openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs.tcl 1 Oct 2020 11:24:12 -0000 1.10.2.3 @@ -41,10 +41,7 @@ ad_proc -public dotlrn_evaluation::remove_applet {} { One time destroy. } { - set applet_id [dotlrn_applet::get_applet_id_from_key [my_package_key]] - db_exec_plsql delete_applet_from_communities { *SQL* } - db_exec_plsql delete_applet { *SQL* } -# dotlrn_applet::remove_applet_from_dotlrn -applet_key [applet_key] + dotlrn_applet::remove_applet_from_dotlrn -applet_key [applet_key] } ad_proc -public dotlrn_evaluation::add_applet_to_community {