Index: openacs-4/packages/assessment/www/admin/asm-action-delete.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-delete.adp,v diff -u -r1.3 -r1.4 --- openacs-4/packages/assessment/www/admin/asm-action-delete.adp 14 Feb 2005 23:29:31 -0000 1.3 +++ openacs-4/packages/assessment/www/admin/asm-action-delete.adp 6 May 2005 17:05:16 -0000 1.4 @@ -1,6 +1,6 @@ -Action Delete -@context_bar;noquote@ +@page_title;noquote@ +@context;noquote@
Index: openacs-4/packages/assessment/www/admin/asm-action-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-delete.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/assessment/www/admin/asm-action-delete.tcl 14 Feb 2005 23:29:31 -0000 1.3 +++ openacs-4/packages/assessment/www/admin/asm-action-delete.tcl 6 May 2005 17:05:16 -0000 1.4 @@ -5,10 +5,13 @@ @cvs-id $Id: } { action_id:integer +} -properties { + page_title:onevalue + context:onevalue } set page_title [_ assessment.delete] -set context_bar [ad_context_bar [list [export_vars -base asm-action-new {action_id} ] [_ assessment.action_admin] ] $page_title] +set context [list [list index [_ assessment.admin]] [list [export_vars -base asm-action-new {action_id} ] [_ assessment.action_admin] ] $page_title] db_1row select_action_info {select name,description,tcl_code from as_actions where action_id = :action_id} Index: openacs-4/packages/assessment/www/admin/asm-action-new.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-new.adp,v diff -u -r1.3 -r1.4 --- openacs-4/packages/assessment/www/admin/asm-action-new.adp 14 Feb 2005 23:24:52 -0000 1.3 +++ openacs-4/packages/assessment/www/admin/asm-action-new.adp 6 May 2005 17:05:16 -0000 1.4 @@ -1,6 +1,6 @@ @page_title@ -@context_bar;noquote@ +@context;noquote@
Index: openacs-4/packages/assessment/www/admin/asm-action-new.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-new.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/assessment/www/admin/asm-action-new.tcl 14 Feb 2005 23:07:38 -0000 1.5 +++ openacs-4/packages/assessment/www/admin/asm-action-new.tcl 6 May 2005 17:05:16 -0000 1.6 @@ -5,6 +5,9 @@ @cvs-id $Id: } { action_id:optional +} -properties { + title:onevalue + context:onevalue } set package_id [ad_conn package_id] @@ -21,7 +24,7 @@ } set page_title "[_ assessment.add_new_action]" -set context_bar [ad_context_bar [list [export_vars -base asm-action-admin ] [_ assessment.action_admin]] $page_title] +set context [list [list index [_ assessment.admin]] [list [export_vars -base asm-action-admin ] [_ assessment.action_admin]] $page_title] ad_form -name action_admin -form { action_id:key Index: openacs-4/packages/assessment/www/admin/asm-action-param-admin.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-param-admin.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/assessment/www/admin/asm-action-param-admin.adp 14 Feb 2005 23:36:32 -0000 1.4 +++ openacs-4/packages/assessment/www/admin/asm-action-param-admin.adp 6 May 2005 17:05:16 -0000 1.5 @@ -1,6 +1,6 @@ -@page_title@ -@context_bar;noquote@ +@page_title;noquote@ +@context;noquote@
Index: openacs-4/packages/assessment/www/admin/asm-action-param-admin.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-param-admin.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/assessment/www/admin/asm-action-param-admin.tcl 14 Feb 2005 23:36:32 -0000 1.3 +++ openacs-4/packages/assessment/www/admin/asm-action-param-admin.tcl 6 May 2005 17:05:16 -0000 1.4 @@ -6,6 +6,9 @@ } { action_id parameter_id:optional +} -properties { + page_title:onevalue + context:onevalue } if { ![ad_form_new_p -key parameter_id] } { @@ -16,7 +19,7 @@ } -set context_bar [ad_context_bar [list [export_vars -base asm-action-new {action_id} ] [_ assessment.action_admin] ] $page_title] +set context [list [list index [_ assessment.admin]] [list [export_vars -base asm-action-new {action_id} ] [_ assessment.action_admin] ] $page_title] set type_options [list [list "[_ assessment.query]" q] [list "[_ assessment.var ]" n]] Index: openacs-4/packages/assessment/www/admin/asm-action-param-delete.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-param-delete.adp,v diff -u -r1.3 -r1.4 --- openacs-4/packages/assessment/www/admin/asm-action-param-delete.adp 14 Feb 2005 23:39:59 -0000 1.3 +++ openacs-4/packages/assessment/www/admin/asm-action-param-delete.adp 6 May 2005 17:05:16 -0000 1.4 @@ -1,6 +1,6 @@ -Param Delete -@context_bar;noquote@ +@page_title;noquote@ +@context;noquote@
Index: openacs-4/packages/assessment/www/admin/asm-action-param-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-param-delete.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/assessment/www/admin/asm-action-param-delete.tcl 14 Feb 2005 23:39:59 -0000 1.3 +++ openacs-4/packages/assessment/www/admin/asm-action-param-delete.tcl 6 May 2005 17:05:16 -0000 1.4 @@ -6,10 +6,13 @@ } { parameter_id:integer action_id:integer +} -properties { + page_title:onevalue + context:onevalue } set page_title [_ assessment.delete_parameter] -set context_bar [ad_context_bar [list [export_vars -base asm-action-new {action_id} ] [_ assessment.action_admin] ] $page_title] +set context [list [list index [_ assessment.admin]] [list [export_vars -base asm-action-new {action_id} ] [_ assessment.action_admin] ] $page_title] db_1row select_param_info {select type,varname,description,query from as_action_params where parameter_id = :parameter_id}