Index: openacs-4/packages/lorsm/www/delivery/index.vuh =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/index.vuh,v diff -u -r1.1 -r1.2 --- openacs-4/packages/lorsm/www/delivery/index.vuh 12 Jun 2006 02:06:10 -0000 1.1 +++ openacs-4/packages/lorsm/www/delivery/index.vuh 13 Jun 2006 01:25:02 -0000 1.2 @@ -12,8 +12,9 @@ set lorsm_url [dotlrn_community::get_community_url $dotlrn_package_id]lorsm/delivery ########## # figure out the next page after we are done with this... -set ims_item_id [ad_get_client_property lorsm ims_od] +set ims_item_id [ad_get_client_property lorsm ims_id] set man_id [ad_get_client_property lorsm man_id] + set user_id [ad_conn user_id] set item_list [lorsm::get_item_list $man_id $user_id] Index: openacs-4/packages/lorsm/www/delivery/menu.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/menu.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/lorsm/www/delivery/menu.tcl 12 Jun 2006 02:06:10 -0000 1.6 +++ openacs-4/packages/lorsm/www/delivery/menu.tcl 13 Jun 2006 01:25:02 -0000 1.7 @@ -177,7 +177,7 @@ where p.object_id = i.ims_item_id and p.party_id = :user_id and p.privilege = 'read') - ORDER BY ci.tree_sortkey + ORDER BY i.sort_order,ci.tree_sortkey } { set indent $items_array($ims_item_id) Index: openacs-4/packages/lorsm/www/delivery/record-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/record-view.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/lorsm/www/delivery/record-view.tcl 12 Jun 2006 02:06:10 -0000 1.5 +++ openacs-4/packages/lorsm/www/delivery/record-view.tcl 13 Jun 2006 01:25:02 -0000 1.6 @@ -59,7 +59,7 @@ db_1row get_assessment_id "select ci.item_id as assessment_id, m.section_id from as_assessment_section_map m, cr_items ci, cr_items ci2 where ci.latest_revision = m.assessment_id and m.section_id=ci2.latest_revision and ci2.item_id=:section_item_id" # rp_form_put assessment_id $assessment_id # ad_return_complaint 1 "assessment_id = '${assessment_id}' section_id='${section_id}'" - ad_returnredirect [export_vars -base assessment/assessment {assessment_id section_id}] + ad_returnredirect [export_vars -base assessment/assessment {assessment_id {single_section_id $section_id}}] ad_script_abort } ::xowiki::Page {