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.1 -r1.2 --- openacs-4/packages/assessment/tcl/as-session-procs.tcl 14 Oct 2004 11:44:51 -0000 1.1 +++ openacs-4/packages/assessment/tcl/as-session-procs.tcl 15 Nov 2004 17:17:15 -0000 1.2 @@ -32,7 +32,20 @@ # 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 as_session_id [content::revision::new -item_id $session_id -content_type {as_sessions} -title "$subject_id-$assessment_id-[ad_generate_random_string]" -attributes [list [list assessment_id $assessment_id] [list subject_id $subject_id] [list staff_id $staff_id] [list target_datetime $target_datetime] [list creation_datetime $creation_datetime] [list first_mod_datetime $first_mod_datetime] [list last_mod_datetime $last_mod_datetime] [list completed_datetime $completed_datetime] [list percent_score $percent_score] [list consent_timestamp $consent_timestamp] ] ] + set as_session_id [content::revision::new \ + -item_id $session_id \ + -content_type {as_sessions} \ + -title "$subject_id-$assessment_id-[ad_generate_random_string]" \ + -attributes [list [list assessment_id $assessment_id] \ + [list subject_id $subject_id] \ + [list staff_id $staff_id] \ + [list target_datetime $target_datetime] \ + [list creation_datetime $creation_datetime] \ + [list first_mod_datetime $first_mod_datetime] \ + [list last_mod_datetime $last_mod_datetime] \ + [list completed_datetime $completed_datetime] \ + [list percent_score $percent_score] \ + [list consent_timestamp $consent_timestamp] ] ] # } return $as_session_id }