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 "dotlrn" 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 "dotlrn" 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 ----
  <master>
  <property name="title">@p_title;noquote@</property>
  <property name="context">@context;noquote@</property>
+ <property name="planner_object_id">@assessment_id;noquote@</property>
  
  <include src="/packages/assessment/lib/section-links" assessment_id="@assessment_id@" tab="front">
  
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 ----
  <master>
  <property name="title">@page_title@</property>
  <property name="context">@context@</property>
+ <property name="planner_object_id">@assessment_id;noquote@</property>
  @assessment_data.entry_page;noquote@
  <p>
    @assessment_data.instructions;noquote@