Index: openacs-4/packages/assessment/www/session.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/session.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/session.adp	21 Sep 2004 08:55:00 -0000	1.1
@@ -0,0 +1,15 @@
+<master>
+<property name="title">Assessment</property>
+<property name="context">@context;noquote@</property>
+	<table border="1">
+		<multiple name="items">
+			<tr>
+				<td valign="top">@items.rownum@.-</td>
+				<td colspan="3">
+					<blockquote>@items.title@</blockquote>
+					@items.choice_html;noquote@
+				</td>
+			</tr>
+		</multiple>
+	</table>
+</master>
Index: openacs-4/packages/assessment/www/session.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/session.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/session.tcl	21 Sep 2004 08:55:00 -0000	1.1
@@ -0,0 +1,34 @@
+ad_page_contract {
+    @author Eduardo P�rez Ureta (eperez@it.uc3m.es)
+    @creation-date 2004-09-13
+} -query {
+  session_id:notnull
+} -properties {
+    context:onevalue
+}
+
+set context [list "Show Session Results"]
+
+db_multirow -extend choice_html items query_all_items {} {
+  set item_item_id [db_string cr_item_from_revision "select item_id from cr_revisions where revision_id=:as_item_id"]
+  set item_mc_id [db_string item_item_type "SELECT related_object_id FROM cr_item_rels WHERE item_id=:item_item_id"]
+  set mc_id [db_string item_to_rev "SELECT revision_id FROM cr_revisions WHERE item_id=:item_mc_id"]
+  set choice_html {<ul>}
+  db_foreach choices {} {
+    if {$correct_answer_p == {t}} {
+    set correct_answer {&#9745;}
+    } else {
+    set correct_answer {&#9746;}
+    }
+    ns_log Warning "$choice_id $choice_id_answer"
+    if {$choice_id_answer == $choice_id } {
+      set choice_answer {&#8594;}
+    } else {
+      set choice_answer {}
+    }
+    append choice_html "<li>$choice_answer $correct_answer [ad_quotehtml $choice_title]</li>"
+  }
+  append choice_html {</ul>}
+}
+
+ad_return_template
Index: openacs-4/packages/assessment/www/session.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/session.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/session.xql	21 Sep 2004 08:55:00 -0000	1.1
@@ -0,0 +1,30 @@
+<?xml version="1.0"?>
+<queryset>
+	<rdbms><type>postgresql</type><version>7.4</version></rdbms>
+
+	<fullquery name="query_all_items">
+		<querytext>
+			SELECT as_itemsx.as_item_id, as_itemsx.name, as_itemsx.title, as_item_data.choice_id_answer
+			FROM as_itemsx
+			WHERE as_item_id = as_item_section_map.as_item_id
+			AND as_sectionsx.section_id = as_assessment_section_map.section_id
+			AND as_assessment_section_map.assessment_id = as_assessments.assessment_id
+			AND as_assessmentsx.assessment_id = as_sessionsx.assessment_id
+			AND as_sessionsx.session_id = :session_id
+			AND as_item_data.session_id = :session_id
+		</querytext>
+	</fullquery>
+
+	<fullquery name="choices">
+		<querytext>
+                SELECT
+                as_item_choicesx.choice_id, as_item_choicesx.title AS choice_title, as_item_choicesx.correct_answer_p, as_item_datax.choice_id_answer
+                FROM as_item_choicesx INNER JOIN as_item_datax ON as_item_datax.as_item_id=as_item_choicesx.choice_id
+                WHERE
+                as_item_choicesx.mc_id=:mc_id AND as_sessionsx.session_id = as_item_datax.session_id
+                ORDER BY
+                as_item_choicesx.sort_order
+		</querytext>
+	</fullquery>
+
+</queryset>
Index: openacs-4/packages/assessment/www/sessions.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/sessions.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/sessions.adp	21 Sep 2004 08:55:00 -0000	1.1
@@ -0,0 +1,13 @@
+<master>
+<property name="title">Assessment</property>
+<property name="context">@context;noquote@</property>
+
+<multiple name="sessions">
+	<ul>
+		<li>
+			<a href="session?session_id=@sessions.session_id@">@sessions.first_names@ @sessions.last_name@</a>
+		</li>
+	</ul>
+</multiple>
+
+</master>
Index: openacs-4/packages/assessment/www/sessions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/sessions.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/sessions.tcl	21 Sep 2004 08:55:00 -0000	1.1
@@ -0,0 +1,19 @@
+ad_page_contract {
+	@author Eduardo P�rez Ureta (eperez@it.uc3m.es)
+	@creation-date 2004-09-03
+} {
+  assessment_id:notnull
+} -properties {
+	context:onevalue
+	assessment_info:multirow
+}
+
+set context [list "Show Sessions"]
+
+set package_id [ad_conn package_id]
+
+db_multirow sessions sessions_of_assessment {} {}
+
+set admin_p [ad_permission_p $package_id admin]
+
+ad_return_template
Index: openacs-4/packages/assessment/www/sessions.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/sessions.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/sessions.xql	21 Sep 2004 08:55:00 -0000	1.1
@@ -0,0 +1,14 @@
+<?xml version="1.0"?>
+<queryset>
+
+	<rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+	<fullquery name="sessions_of_assessment">
+		<querytext>
+			SELECT as_sessionsx.session_id, as_sessionsx.name, as_sessionsx.title, persons.first_names, persons.last_name
+			FROM as_sessions
+			WHERE as_sessionsx.assessment_id=:assessment_id AND as_sessions.subject_id = persons.person_id
+		</querytext>
+	</fullquery>
+	
+</queryset>