diff -crNB dotlrn-2.4.1/packages/assessment/www/asm-admin/assessment-form.tcl assessment/www/asm-admin/assessment-form.tcl *** dotlrn-2.4.1/packages/assessment/www/asm-admin/assessment-form.tcl 2009-07-05 21:03:12.000000000 -0400 --- assessment/www/asm-admin/assessment-form.tcl 2009-07-05 21:11:49.000000000 -0400 *************** *** 9,14 **** --- 9,15 ---- {permission_p 0} {type ""} {after "0"} + {block_id 0} } -properties { context:onevalue page_title:onevalue *************** *** 254,259 **** --- 255,264 ---- } } + ## Planner View -> Extend Form + callback -catch -impl planner planner::extend_form -block_id $block_id -form_name "assessment_form" + ### + ad_form -extend -name assessment_form -new_request { set new "" set title "" *************** *** 399,404 **** --- 404,412 ---- } } } -after_submit { + ## Planner View + callback -catch -impl planner planner::insert_object -block_id $block_id -object_id $assessment_id + ### if {$permission_p} { permission::grant -party_id "-1" -object_id $assessment_id -privilege read } diff -crNB dotlrn-2.4.1/packages/assessment/www/asm-admin/one-a.adp assessment/www/asm-admin/one-a.adp *** dotlrn-2.4.1/packages/assessment/www/asm-admin/one-a.adp 2009-07-05 21:03:12.000000000 -0400 --- assessment/www/asm-admin/one-a.adp 2009-07-05 21:04:35.000000000 -0400 *************** *** 1,6 **** --- 1,7 ---- @p_title;noquote@ @context;noquote@ + @assessment_id;noquote@ diff -crNB dotlrn-2.4.1/packages/assessment/www/instructions.adp assessment/www/instructions.adp *** dotlrn-2.4.1/packages/assessment/www/instructions.adp 2009-07-05 21:03:12.000000000 -0400 --- assessment/www/instructions.adp 2009-07-05 21:03:53.000000000 -0400 *************** *** 1,6 **** --- 1,7 ---- @page_title@ @context@ + @assessment_id;noquote@ @assessment_data.entry_page;noquote@

@assessment_data.instructions;noquote@