Index: openacs-4/packages/dotlrn-ecommerce/www/admin/applications.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/applications.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-ecommerce/www/admin/applications.tcl	23 Jun 2005 15:40:11 -0000	1.2
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/applications.tcl	23 Jun 2005 16:22:24 -0000	1.3
@@ -32,8 +32,12 @@
 	assessment_result {
 	    label "Application"
 	    display_template {
-		<link to asessment result>
-		<br />Open in new window
+		<if @applications.asm_url@ not nil>
+		<a href="@applications.asm_url;noquote@" class="button" target="_blank">Application</a>
+		</if>
+		<else>
+		N/A
+		</else>
 	    }
 	}
 	actions {
@@ -44,11 +48,31 @@
 	}
     }
 
-db_multirow -extend { approve_url } applications applications {
+db_multirow -extend { approve_url asm_url } applications applications {
     select pretty_name as community_name, person__name(user_id) as person_name, member_state, c.community_id, user_id
     from dotlrn_member_rels_full r, dotlrn_communities_all c
     where r.community_id = c.community_id
     and member_state = 'needs approval'
 } {
     set approve_url [export_vars -base application-approve { community_id user_id }]
+
+    # Get associated assessment
+    if { [db_0or1row assessment {
+	select a.session_id
+
+	from dotlrn_ecommerce_section s,
+	dotlrn_catalogi c,
+	cr_items i,
+	as_sessions a
+
+	where s.course_id = c.item_id
+	and c.course_id = i.live_revision
+	and c.assessment_id = a.assessment_id
+	and s.community_id = :community_id
+	and a.subject_id = :user_id
+
+	limit 1
+    }] } {
+	set asm_url [export_vars -base /assessment/asm-admin/results-session { session_id }]
+    }
 }
\ No newline at end of file