Index: openacs-4/packages/assessment/tcl/as-apm-param-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-apm-param-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/tcl/as-apm-param-procs.tcl	28 Feb 2005 17:10:00 -0000	1.1
@@ -0,0 +1,56 @@
+ad_library {
+    @author Anny Flores (annyflores@viaro.net) Viaro Networks (www.viaro.net)
+    @creation_date 2004-12-03
+    
+}
+
+namespace eval as::parameter {}
+    
+ad_proc -public as::parameter::reset_parameter {
+    {-package_id}
+    {-node_id ""}
+} {
+} { 
+    set exist_assessment [parameter::get -parameter AsmForRegisterId]
+    if { $exist_assessment != 0} {
+	set par_package_id [db_string package_id {select package_id from cr_folders where folder_id=(select context_id from acs_objects where object_id=:exist_assessment)}]
+	
+	if { $package_id == $par_package_id } {
+	parameter::set_value -package_id [ad_conn package_id] -parameter AsmForRegisterId -value 0
+	}
+    }
+}
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+