Index: openacs-4/packages/assessment/tcl/as-pram-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-pram-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/tcl/as-pram-procs.tcl	10 Feb 2005 21:28:46 -0000	1.2
+++ openacs-4/packages/assessment/tcl/as-pram-procs.tcl	15 May 2007 20:14:17 -0000	1.3
@@ -32,7 +32,8 @@
     db_1row select_actions ""
    
     if { $maps == 0 } {
-	db_exec_plsql delete_action {} 
+        package_exec_plsql -var_list [list [list action_id $action_id]] \
+            as_action del
     } else {
 	ad_return_complaint 1 "You have information stored on the db related to this action"
     }