Index: openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request-2.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request-2.tcl	24 Aug 2005 12:45:53 -0000	1.1
@@ -0,0 +1,44 @@
+# packages/dotlrn-ecommerce/www/ecommerce/application-request-2.tcl
+
+ad_page_contract {
+    
+    Try to set the assessment subject to the purchaser
+    
+    @author Roel Canicula (roelmc@pldtdsl.net)
+    @creation-date 2005-08-24
+    @arch-tag: 1a9bde71-7fff-41f1-a351-c8578bb46173
+    @cvs-id $Id: application-request-2.tcl,v 1.1 2005/08/24 12:45:53 roelc Exp $
+} {
+    user_id:integer,notnull
+    return_url:notnull
+} -properties {
+} -validate {
+} -errors {
+}
+
+set assessment_id [parameter::get -parameter ApplicationAssessment -default ""]
+set viewing_user_id [ad_conn user_id]
+
+if { ! [empty_string_p $assessment_id] } {
+    db_dml set_assessment_subject {
+	update as_sessions
+	set subject_id = :user_id
+	where session_id = (select ss.session_id
+			    
+			    from (select a.*
+				  from as_assessmentsi a,
+				  cr_items i
+				  where a.assessment_id = i.latest_revision) a,
+			    as_sessions ss
+			    
+			    where a.assessment_id = ss.assessment_id
+			    and a.item_id = :assessment_id
+			    and ss.subject_id = :viewing_user_id
+			    
+			    order by creation_datetime desc
+			    
+			    limit 1)
+    }
+}
+
+ad_returnredirect $return_url
\ No newline at end of file
Index: openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request.tcl	18 Aug 2005 18:40:37 -0000	1.14
+++ openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request.tcl	24 Aug 2005 12:45:53 -0000	1.15
@@ -142,5 +142,6 @@
 if { [empty_string_p $assessment_id] || $type == "full" } {
     ad_returnredirect $next_url
 } else {
-    ad_returnredirect [export_vars -base "[apm_package_url_from_id [parameter::get -parameter AssessmentPackage]]assessment" { assessment_id  {return_url $next_url} }]
+    set return_url [export_vars -base "[ad_conn package_url]ecommerce/application-request-2" { user_id {return_url $next_url} }]
+    ad_returnredirect [export_vars -base "[apm_package_url_from_id [parameter::get -parameter AssessmentPackage]]assessment" { assessment_id return_url }]
 }