Index: openacs-4/packages/assessment/tcl/as-session-results-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-session-results-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/tcl/as-session-results-procs.tcl	12 Jun 2006 03:02:38 -0000	1.3
+++ openacs-4/packages/assessment/tcl/as-session-results-procs.tcl	26 Sep 2006 00:22:45 -0000	1.4
@@ -17,33 +17,32 @@
     @creation-date 2005-02-17
 
     New as_session_results
+
 } {
     if {$package_id eq ""} {
 	set package_id [ad_conn package_id]
     }
-    ns_log notice "session results new package_id = '${package_id}'"
+#    ns_log notice "session results new package_id = '${package_id}'"
     set folder_id [as::assessment::folder_id -package_id $package_id]
 
     # Insert as_session_results in the CR (and as_session_results table) getting the revision_id
-    set transaction_successful_p 0
 
-    while { ! $transaction_successful_p } {
-	db_transaction {
+#	db_transaction {
 	    if {![db_0or1row result_exists {}]} {
 		set result_item_id [content::item::new -parent_id $folder_id -content_type {as_session_results} -name [as::item::generate_unique_name]]
-	}
+		ns_log notice "DAVEB101 session rsults new new item $result_item_id"
+	    }
+		ns_log notice "DAVEB101 session rsults new new revision $result_item_id"
 	    set result_id [content::revision::new \
 			       -item_id $result_item_id \
 			       -content_type {as_session_results} \
 			       -title $title \
 			       -description $description \
 			       -attributes [list [list target_id $target_id] \
 						[list points $points] ] ]
-	    set transaction_successful_p 1
-	} on_error {
-	    ns_log notice "as::session_results::new: Transaction Error: $errmsg"
-	}
-    }
+#	} on_error {
+#	    ns_log notice "as::session_results::new: Transaction Error: $errmsg"
+#	}
 
     return $result_id
 }