Index: openacs-4/packages/dotlrn-ecommerce/www/home.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/home.adp,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn-ecommerce/www/home.adp	14 Aug 2005 18:07:07 -0000	1.7
+++ openacs-4/packages/dotlrn-ecommerce/www/home.adp	3 Sep 2005 07:46:45 -0000	1.8
@@ -96,7 +96,12 @@
 	<ul class="action-links">
 	  <if @sessions_with_applications@ gt 0>
 	    <multiple name="sessions">
-	      <li><a href="@sessions.asm_url;noquote@">@sessions.pretty_name@</a> <if @user_id@ ne @sessions.participant@>(@sessions.name@)</if> [<a href="@sessions.edit_asm_url;noquote@">#acs-kernel.common_Edit#</a>]</li>
+	      <li>@sessions.community_id@ <a href="@sessions.asm_url;noquote@">@sessions.pretty_name@</a> <if @user_id@ ne @sessions.participant@>(@sessions.name@)</if>
+
+	<if @use_embedded_application_view_p@ ne 1> 
+	 [<a href="@sessions.edit_asm_url;noquote@">#acs-kernel.common_Edit#</a>]
+	</if>
+	</li>
 	    </multiple>
 	  </if>
 	  <else>
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
 	}
     }