Index: openacs-4/packages/assessment/tcl/as-session-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-session-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/tcl/as-session-procs.tcl	15 Nov 2004 17:17:15 -0000	1.2
+++ openacs-4/packages/assessment/tcl/as-session-procs.tcl	22 Nov 2004 11:59:23 -0000	1.3
@@ -31,11 +31,11 @@
 #    db_0or1row as_session_last {SELECT session_id AS as_session_id FROM as_sessionsx WHERE subject_id = :subject_id AND assessment_id = :assessment_id}
 #    if { ! [info exists as_session_id] } {    
     # Insert as_session in the CR (and as_sessions table) getting the revision_id (session_id)
-    set session_id [content::item::new -parent_id $folder_id -content_type {as_sessions} -name "$subject_id-$assessment_id-[ad_generate_random_string]" -title "$subject_id-$assessment_id-[ad_generate_random_string]" ]
+    set session_id [content::item::new -parent_id $folder_id -content_type {as_sessions} -name "$subject_id-$assessment_id-[exec uuidgen]" -title "$subject_id-$assessment_id-[exec uuidgen]" ]
     set as_session_id [content::revision::new \
     			-item_id $session_id \
 			-content_type {as_sessions} \
-			-title "$subject_id-$assessment_id-[ad_generate_random_string]" \
+			-title "$subject_id-$assessment_id-[exec uuidgen]" \
 			-attributes [list [list assessment_id $assessment_id] \
 					[list subject_id $subject_id] \
 					[list staff_id $staff_id] \