Index: openacs-4/packages/dotlrn-catalog/lib/course-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/lib/course-chunk.tcl,v diff -u -N -r1.6 -r1.7 --- openacs-4/packages/dotlrn-catalog/lib/course-chunk.tcl 22 Feb 2005 22:00:56 -0000 1.6 +++ openacs-4/packages/dotlrn-catalog/lib/course-chunk.tcl 9 May 2005 21:59:07 -0000 1.7 @@ -31,12 +31,12 @@ } set category_p [db_string get_category { } -default -1] - set info [ad_html_text_convert -from text/enhanced -to text/plain $info] - +set reg_asm_id [parameter::get -parameter AsmForRegisterId -package_id [ad_conn subsite_id]] set cc_package_id [apm_package_id_from_key "dotlrn-catalog"] set tree_id [db_string get_tree_id { } -default "-1"] + # Get the category name set category_name "[category::get_name [category::get_mapped_categories $course_id]]" @@ -132,8 +132,13 @@ } } +#Send the registration assessment_id +set reg_chunck "assessment_id=$asmid" +if { ![string eq $reg_asm_id 0] } { + set reg_chunck "assessment_id=$reg_asm_id&next_asm=$asmid" +} @@ -147,3 +152,5 @@ + +