Index: openacs-4/packages/assessment/tcl/as-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/assessment/tcl/as-item-procs.tcl	4 Aug 2006 19:06:03 -0000	1.16
+++ openacs-4/packages/assessment/tcl/as-item-procs.tcl	6 Aug 2006 17:27:45 -0000	1.17
@@ -87,7 +87,8 @@
         set new_item_id [content::revision::new \
 			     -item_id $item_item_id \
 			     -content_type {as_items} \
-			     -title $title \
+			     -title [string range $title 0 999] \
+			     -content $title \
 			     -description $description \
 			     -attributes [list [list subtext $subtext] \
 					      [list field_name $field_name] \
@@ -119,6 +120,7 @@
 			     -content_type {as_items} \
 			     -title $title \
 			     -description $description \
+			     -content $content \
 			     -attributes [list [list subtext $subtext] \
 					      [list field_name $field_name] \
 					      [list field_code $field_code] \
@@ -183,6 +185,7 @@
 			     -item_id $item_item_id \
 			     -content_type {as_items} \
 			     -title $title \
+			     -content $content \
 			     -description $description \
 			     -attributes [list [list subtext $subtext] \
 					      [list field_name $field_name] \
Index: openacs-4/packages/assessment/tcl/as-item-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-procs.xql,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/assessment/tcl/as-item-procs.xql	12 Jun 2006 03:02:38 -0000	1.8
+++ openacs-4/packages/assessment/tcl/as-item-procs.xql	6 Aug 2006 17:27:45 -0000	1.9
@@ -14,7 +14,7 @@
 <fullquery name="as::item::new_revision.item_data">
       <querytext>
 
-	select cr.item_id as item_item_id, cr.title, cr.description, i.subtext, i.field_code,
+	select cr.item_id as item_item_id, cr.content, cr.title, cr.description, i.subtext, i.field_code,
 	       i.field_name, i.required_p, i.data_type, i.max_time_to_complete,
 	       i.feedback_right, i.feedback_wrong, i.points, i.validate_block
 	from cr_revisions cr, as_items i
@@ -40,7 +40,7 @@
 <fullquery name="as::item::copy.item_data">
       <querytext>
 
-	select i.subtext, i.field_code, i.required_p, i.data_type,
+	select cr.content, cr.title, cr.description, i.subtext, i.field_code, i.required_p, i.data_type,
 	       i.max_time_to_complete, i.feedback_right,
 	       i.feedback_wrong, i.points, i.validate_block
 	from cr_revisions cr, as_items i
Index: openacs-4/packages/assessment/tcl/test/as-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/test/as-item-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/tcl/test/as-item-procs.tcl	6 Aug 2006 14:06:24 -0000	1.2
+++ openacs-4/packages/assessment/tcl/test/as-item-procs.tcl	6 Aug 2006 17:27:45 -0000	1.3
@@ -46,6 +46,34 @@
             aa_true "Long question successfully entered" [expr {$content eq $long_text}]
             aa_true "Mime type is text/html" \
                 [expr {$mime_type eq "text/html"}]
-         }
+
+
+	    aa_log "Test item::edit"
+	    set new_item_rev_id \
+		[as::item::edit -as_item_id $as_item_rev_id -title $long_text]
+            aa_true "Item created" [db_0or1row q "select title,mime_type from cr_revisions where revision_id=:new_item_rev_id"]
+            set content [db_string q "select content from cr_revisions where revision_id=:new_item_rev_id"]
+            aa_true "Long title successfully entered" \
+                [expr {[string range $long_text 0 999] eq $title}]
+            aa_true "Long question successfully entered" [expr {$content eq $long_text}]
+	    aa_log "Test item::new_revision"
+	    set new_rev_rev_id [as::item::new_revision -as_item_id $new_item_rev_id]
+            aa_true "Item created" [db_0or1row q "select title,mime_type from cr_revisions where revision_id=:new_rev_rev_id"]
+            set content [db_string q "select content from cr_revisions where revision_id=:new_rev_rev_id"]
+            aa_true "Long title successfully entered" \
+                [expr {[string range $long_text 0 999] eq $title}]
+            aa_true "Long question successfully entered" [expr {$content eq $long_text}]
+
+	    aa_log "Test item::copy"
+	    set copy_rev_id [as::item::copy \
+				-as_item_id $new_item_rev_id \
+				-title $long_text]
+            aa_true "Item created" [db_0or1row q "select title,mime_type from cr_revisions where revision_id=:copy_rev_id"]
+            set content [db_string q "select content from cr_revisions where revision_id=:copy_rev_id"]
+            aa_true "Long title successfully entered" \
+                [expr {[string range $long_text 0 999] eq $title}]
+            aa_true "Long question successfully entered" [expr {$content eq $long_text}]
+	    
+	}
 }
  
\ No newline at end of file
Index: openacs-4/packages/assessment/www/assessment-section-submit.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/assessment-section-submit.adp,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/assessment/www/assessment-section-submit.adp	4 Aug 2006 19:06:03 -0000	1.15
+++ openacs-4/packages/assessment/www/assessment-section-submit.adp	6 Aug 2006 17:27:45 -0000	1.16
@@ -34,7 +34,7 @@
        <div class="question-container" style="margin-bottom:25px">
          <if @items.description@ not nil><p>@items.description;noquote@</p></if>
          <if @items.content@ not nil><p>@items.content;noquote@</p></if>
-         <if @items.presentation_type@ ne fitb><b>@items.question_text;noquote@<if @assessment_data.show_item_name_p@ eq f and @items.required_p@ eq t> <span style="color: #f00;">*</span></if></b></if>
+         <if @items.presentation_type@ ne fitb>*question text* <b>@items.question_text;noquote@<if @assessment_data.show_item_name_p@ eq f and @items.required_p@ eq t> <span style="color: #f00;">*</span></if></b></if>
      
 <group column=title>
          <div class="form-widget">