Index: openacs-4/packages/dotlrn-ecommerce/www/home.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/home.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn-ecommerce/www/home.tcl	3 Sep 2005 07:28:32 -0000	1.9
+++ openacs-4/packages/dotlrn-ecommerce/www/home.tcl	3 Sep 2005 07:46:45 -0000	1.10
@@ -101,7 +101,9 @@
 }
 
 set applications_p [parameter::get -parameter EnableCourseApplicationsP -default 0]
+set use_embedded_application_view_p [parameter::get -parameter UseEmbeddedApplicationViewP -default 0]
 
+
 set sessions_with_applications 0
 # check for patron rels as well
 
@@ -122,8 +124,7 @@
     } {
 	append notice "community_id '${community_id}' participant = '${participant}' <br />"
 	if { [db_0or1row assessment {
-	    select ss.session_id, c.assessment_id
-	    
+	    select ss.session_id, coalesce(case when c.assessment_id=-1 then null else a.assessment_id end,:default_assessment_id) as assessment_id
 	    from dotlrn_ecommerce_section s,
 	    (select c.*
 	     from dotlrn_catalogi c,
@@ -145,8 +146,18 @@
 	    
 	    limit 1
 	}] } {
-	    set asm_url [export_vars -base /assessment/session { session_id }]
+	    if {$use_embedded_application_view_p == 1} {
+		set asm_url "admin/application-view?session_id=$session_id"
+		
+	    } else {
+		
+		set asm_url [export_vars -base "[apm_package_url_from_id [parameter::get -parameter AssessmentPackage]]asm-admin/results-session" { session_id }]
+		
+	    }
+
 	    set edit_asm_url [export_vars -base /assessment/assessment { assessment_id }]
+
+
 	    incr sessions_with_applications
 	}
     }