Index: openacs-4/packages/acs-subsite/lib/user-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-new.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-subsite/lib/user-new.tcl	24 Jul 2004 08:34:06 -0000	1.8
+++ openacs-4/packages/acs-subsite/lib/user-new.tcl	28 Feb 2005 18:24:55 -0000	1.9
@@ -37,6 +37,20 @@
     ad_user_logout 
 }
 
+if {[apm_package_installed_p "assessment"]} {
+
+    set exist_assessment [parameter::get -parameter AsmForRegisterId]
+} else {
+    set exist_assessment ""
+}
+
+if { $exist_assessment != "" && $exist_assessment!=0} {
+    set 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)}]
+    set url [apm_package_url_from_id $package_id]
+
+    ad_returnredirect "${url}assessment?assessment_id=$exist_assessment"
+} else {
+
 # Pre-generate user_id for double-click protection
 set user_id [db_nextval acs_object_id_seq]
 
@@ -166,3 +180,4 @@
         ad_script_abort
     }
 }
+}
\ No newline at end of file