Index: openacs-4/packages/assessment/www/asm-admin/action-params.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/action-params.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/action-params.tcl 2 Feb 2005 16:54:12 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/action-params.tcl 2 Feb 2005 21:31:15 -0000 1.3 @@ -15,6 +15,9 @@ by_item_p:optional } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create + permission::require_permission -object_id $assessment_id -privilege admin as::assessment::data -assessment_id $assessment_id Index: openacs-4/packages/assessment/www/asm-admin/action-select.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/action-select.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/action-select.tcl 2 Feb 2005 16:54:12 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/action-select.tcl 2 Feb 2005 21:31:15 -0000 1.3 @@ -14,6 +14,9 @@ item_id:optional } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create + permission::require_permission -object_id $assessment_id -privilege admin as::assessment::data -assessment_id $assessment_id if {![info exists assessment_data(assessment_id)]} { Index: openacs-4/packages/assessment/www/asm-admin/add-edit-check.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/add-edit-check.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/add-edit-check.tcl 2 Feb 2005 16:54:12 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/add-edit-check.tcl 2 Feb 2005 21:31:15 -0000 1.3 @@ -15,6 +15,9 @@ item_id:optional } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create + permission::require_permission -object_id $assessment_id -privilege admin set item_id "" set section_id_from "" Index: openacs-4/packages/assessment/www/asm-admin/assessment-copy.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/assessment-copy.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/assessment-copy.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/assessment-copy.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -10,6 +10,9 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create + permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/assessment-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/assessment-delete.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/assessment-delete.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/assessment-delete.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -10,6 +10,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -20,6 +20,8 @@ set _assessment_id 0 db_0or1row rev_id_from_item_id {} } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create set context_bar [ad_context_bar $page_title] set package_id [ad_conn package_id] Index: openacs-4/packages/assessment/www/asm-admin/catalog-browse.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/catalog-browse.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/catalog-browse.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/catalog-browse.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -22,6 +22,8 @@ {page:optional 1} } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/catalog-item-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/catalog-item-add.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/catalog-item-add.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/catalog-item-add.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -17,6 +17,8 @@ item_ids:optional } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/catalog-search.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/catalog-search.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/catalog-search.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/catalog-search.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -14,6 +14,8 @@ after:integer } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/catalog-section-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/catalog-section-add.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/catalog-section-add.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/catalog-section-add.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -15,6 +15,8 @@ section_ids:optional } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/checks-admin.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/checks-admin.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/checks-admin.tcl 2 Feb 2005 16:54:12 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/checks-admin.tcl 2 Feb 2005 21:31:15 -0000 1.3 @@ -11,6 +11,8 @@ } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin as::assessment::data -assessment_id $assessment_id set new_assessment_revision $assessment_data(assessment_rev_id) Index: openacs-4/packages/assessment/www/asm-admin/confirm-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/confirm-delete.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/confirm-delete.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/confirm-delete.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -7,6 +7,10 @@ section_id assessment_id } + +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create +permission::require_permission -object_id $assessment_id -privilege admin as::assessment::data -assessment_id $assessment_id set title "$assessment_data(title)" set context [list [list "one-a?assessment_id=$assessment_id" $title] [list "checks-admin?assessment_id=$assessment_id§ion_id=$section_id" "$title [_ assessment.Administration]"] "[_ assessment.trigger_delete]"] Index: openacs-4/packages/assessment/www/asm-admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/index.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/index.tcl 2 Feb 2005 19:04:46 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/index.tcl 2 Feb 2005 21:31:15 -0000 1.3 @@ -12,7 +12,8 @@ zipfile context:onevalue } - +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create set title "[_ assessment.Administration]" set context {} set package_id [ad_conn package_id] Index: openacs-4/packages/assessment/www/asm-admin/item-add-display-cb.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-display-cb.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-add-display-cb.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-add-display-cb.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -13,6 +13,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-add-display-rb.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-display-rb.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-add-display-rb.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-add-display-rb.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -13,6 +13,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-add-display-sa.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-display-sa.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-add-display-sa.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-add-display-sa.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -13,6 +13,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-add-display-sb.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-display-sb.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-add-display-sb.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-add-display-sb.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -13,6 +13,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-add-display-ta.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-display-ta.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-add-display-ta.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-add-display-ta.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -13,6 +13,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-add-display-tb.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-display-tb.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-add-display-tb.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-add-display-tb.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -13,6 +13,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-add-mc-choices.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-mc-choices.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-add-mc-choices.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-add-mc-choices.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -20,6 +20,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-add-mc.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-mc.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-add-mc.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-add-mc.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -16,6 +16,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-add-oq.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-oq.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-add-oq.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-add-oq.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -13,6 +13,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-add-sa.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-sa.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-add-sa.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-add-sa.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -13,6 +13,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-add.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-add.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -12,7 +12,8 @@ page_title:onevalue } - +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-copy.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-copy.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-copy.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-copy.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -13,6 +13,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-delete.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-delete.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-delete.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -12,6 +12,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-edit-display-cb.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-display-cb.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-edit-display-cb.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-display-cb.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -12,6 +12,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-edit-display-rb.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-display-rb.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-edit-display-rb.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-display-rb.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -12,6 +12,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-edit-display-sa.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-display-sa.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-edit-display-sa.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-display-sa.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -12,6 +12,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-edit-display-sb.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-display-sb.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-edit-display-sb.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-display-sb.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -12,6 +12,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-edit-display-ta.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-display-ta.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-edit-display-ta.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-display-ta.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -12,6 +12,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-edit-display-tb.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-display-tb.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-edit-display-tb.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-display-tb.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -12,6 +12,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-edit-general.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-general.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-edit-general.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-general.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -12,6 +12,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices-delete.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices-delete.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices-delete.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -15,6 +15,8 @@ choice_id:integer,notnull } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin db_transaction { Index: openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices-swap.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices-swap.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices-swap.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices-swap.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -18,6 +18,8 @@ direction:notnull } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin if { $direction=="up" } { Index: openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -19,6 +19,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-edit-mc.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-mc.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-edit-mc.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-mc.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -15,6 +15,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-edit-oq.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-oq.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-edit-oq.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-oq.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -12,6 +12,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-edit-sa.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-sa.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-edit-sa.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-sa.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -12,6 +12,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-edit.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-edit.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -12,6 +12,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/item-swap.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-swap.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-swap.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-swap.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -16,6 +16,8 @@ direction:notnull } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin if { $direction=="up" } { Index: openacs-4/packages/assessment/www/asm-admin/one-a.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/one-a.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/one-a.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/one-a.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -11,6 +11,8 @@ assessment_id:integer } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/request-notification.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/request-notification.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/request-notification.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/request-notification.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -9,6 +9,8 @@ section_id } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin as::assessment::data -assessment_id $assessment_id set title "$assessment_data(title)" Index: openacs-4/packages/assessment/www/asm-admin/results-export.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/results-export.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/results-export.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/results-export.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -10,6 +10,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/section-copy.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/section-copy.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/section-copy.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/section-copy.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -12,6 +12,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/section-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/section-delete.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/section-delete.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/section-delete.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -11,6 +11,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/section-display-form.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/section-display-form.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/section-display-form.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/section-display-form.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -12,6 +12,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/section-form.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/section-form.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/section-form.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/section-form.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -13,6 +13,8 @@ page_title:onevalue } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data Index: openacs-4/packages/assessment/www/asm-admin/section-select.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/section-select.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/section-select.tcl 2 Feb 2005 16:54:12 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/section-select.tcl 2 Feb 2005 21:31:15 -0000 1.3 @@ -12,6 +12,8 @@ item_id:optional } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin as::assessment::data -assessment_id $assessment_id Index: openacs-4/packages/assessment/www/asm-admin/section-swap.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/section-swap.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/section-swap.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/section-swap.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -14,7 +14,8 @@ sort_order:integer,notnull direction:notnull } - +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin if { $direction=="up" } { Index: openacs-4/packages/assessment/www/asm-admin/send-mail.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/send-mail.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/send-mail.tcl 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/send-mail.tcl 2 Feb 2005 21:31:15 -0000 1.2 @@ -17,6 +17,7 @@ set user_id [ad_conn user_id] set sender_id [ad_conn user_id] +permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin # Get the assessment data