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.3 -r1.4 --- openacs-4/packages/assessment/www/asm-admin/item-swap.tcl 12 Jun 2006 02:49:51 -0000 1.3 +++ openacs-4/packages/assessment/www/asm-admin/item-swap.tcl 15 May 2007 20:14:18 -0000 1.4 @@ -29,11 +29,14 @@ db_transaction { set new_assessment_rev_id [as::assessment::new_revision -assessment_id $assessment_id] set new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id] - db_dml update_section_in_assessment {} + as::section::update_section_in_assessment\ + -old_section_id $section_id \ + -new_section_id $new_section_id \ + -new_assessment_rev_id $new_assessment_rev_id db_dml swap_items {} } on_error { ad_return_error "Database error" "A database error occured:
$errmsg
" ad_script_abort } -ad_returnredirect [export_vars -base one-a {assessment_id}]\#$as_item_id +ad_returnredirect [export_vars -base questions {assessment_id}]\#$as_item_id