Index: openacs-4/packages/assessment/catalog/assessment.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/catalog/assessment.en_US.ISO-8859-1.xml,v
diff -u -r1.54 -r1.55
--- openacs-4/packages/assessment/catalog/assessment.en_US.ISO-8859-1.xml	15 Apr 2005 17:26:45 -0000	1.54
+++ openacs-4/packages/assessment/catalog/assessment.en_US.ISO-8859-1.xml	15 Apr 2005 18:15:48 -0000	1.55
@@ -240,6 +240,7 @@
   <msg key="from">From:</msg>
   <msg key="goes_to_section">Goes to section</msg>
   <msg key="hide_item_name">Question name hidden</msg>
+  <msg key="history">Change History</msg>
   <msg key="horizontal">Horizontal</msg>
   <msg key="Html_Options">HTML Options</msg>
   <msg key="Html_Options_help">Additional HTML Options for display</msg>
@@ -312,6 +313,8 @@
   <msg key="message_to_display_to">Message to display to the user when the action is executed (ie. You have joined &quot;My Community&quot;)</msg>
   <msg key="Minutes_for_Retry">Minutes required for Retry</msg>
   <msg key="Mode">Mode</msg>
+  <msg key="Modified_Time">Time Modified</msg>
+  <msg key="Modified_User">Modified by</msg>
   <msg key="Move_Down">Move Down</msg>
   <msg key="Move_Up">Move Up</msg>
   <msg key="Multiple">Allow Multiple Answers</msg>
Index: openacs-4/packages/assessment/www/asm-admin/assessment-history.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/assessment-history.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/asm-admin/assessment-history.adp	15 Apr 2005 18:17:29 -0000	1.1
@@ -0,0 +1,5 @@
+<master>
+<property name="title">@page_title;noquote@</property>
+<property name="context">@context;noquote@</property>
+
+<listtemplate name="history"></listtemplate>
Index: openacs-4/packages/assessment/www/asm-admin/assessment-history.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/assessment-history.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/asm-admin/assessment-history.tcl	15 Apr 2005 18:17:29 -0000	1.1
@@ -0,0 +1,50 @@
+ad_page_contract {
+
+    Lists the change history of the assessment
+
+    @author Timo Hentschel (timo@timohentschel.de)
+    @creation-date 2005-04-15
+} {
+    assessment_id
+} -properties {
+    context:onevalue
+    page_title:onevalue
+}
+
+# Get the assessment data
+as::assessment::data -assessment_id $assessment_id
+
+if {![info exists assessment_data(assessment_id)]} {
+    ad_return_complaint 1 "[_ assessment.Requested_assess_does]"
+    ad_script_abort
+}
+
+set user_id [ad_conn user_id]
+set page_title "[_ assessment.history]"
+set context [list [list index [_ assessment.admin]] [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] $page_title]
+set format "[lc_get formbuilder_date_format], [lc_get formbuilder_time_format]"
+
+template::list::create \
+    -name history \
+    -multirow history \
+    -key revision_id \
+    -elements {
+	user_name {
+	    label {[_ assessment.Modified_User]}
+	    display_template {<a href="@history.user_url@">@history.user_name@</a>}
+	}
+	creation_date {
+	    label {[_ assessment.Modified_Time]}
+	    html {nowrap}
+	}
+    } -main_class {
+	narrow
+    } 
+
+
+db_multirow -extend { user_url } history assessment_history {
+} {
+    set user_url [acs_community_member_url -user_id $person_id]
+}
+
+ad_return_template
Index: openacs-4/packages/assessment/www/asm-admin/assessment-history.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/assessment-history.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/asm-admin/assessment-history.xql	15 Apr 2005 18:17:29 -0000	1.1
@@ -0,0 +1,16 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="assessment_history">
+	<querytext>
+	select r.revision_id, to_char(o.creation_date, :format) as creation_date,
+	       p.person_id, p.first_names || ' ' || p.last_name AS user_name
+	from cr_revisions r, acs_objects o, persons p
+	where r.item_id = :assessment_id
+	and o.object_id = r.revision_id
+	and p.person_id = o.creation_user
+	order by o.creation_date
+	</querytext>
+</fullquery>
+
+</queryset>
Index: openacs-4/packages/assessment/www/asm-admin/one-a.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/one-a.adp,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/assessment/www/asm-admin/one-a.adp	8 Apr 2005 23:04:23 -0000	1.10
+++ openacs-4/packages/assessment/www/asm-admin/one-a.adp	15 Apr 2005 18:15:48 -0000	1.11
@@ -2,7 +2,7 @@
 <property name="title">@p_title@</property>
 <property name="context">@context;noquote@</property>
 
-#assessment.Created_by# <a href="@creator_link@">@assessment_data.creator_name@</a>#assessment.on_creation_date#</h2>
+#assessment.Created_by# <a href="@creator_link@">@assessment_data.creator_name@</a>#assessment.on_creation_date# - <a href="assessment-history?assessment_id=@assessment_id@">#assessment.history#</a>
 
 
 <p>