OpenACS

gustafn
committed
MAIN:gustafn:20100531094010
on 31 May 10
- continue to experiment with more generic menues
openacs-4/.../xowiki/tcl/package-procs.tcl (+2 -1)
1069 1069       }
1070 1070     }
1071 1071     #
1072 1072     # Compute the rename commands for the drop target
1073 1073     #
1074 1074     set drop_renames [::xowiki::utility page_order_renames -parent_id $folder_id \
1075 1075                           -start [lindex $from 0] -from $from -to $to]
1076 1076     #my log "--cpo drops l=[llength $drop_renames]"
1077 1077     foreach {page_id item_id name old_page_order new_page_order} $drop_renames {
1078 1078       my log "--cpo drop $page_id ($name) rename $old_page_order to $new_page_order"
1079 1079     }
1080 1080
1081 1081     #
1082 1082     # Perform the actual renames
1083 1083     #
1084 1084     set temp_obj [::xowiki::Page new -name dummy -volatile]
1085 1085     set slot [$temp_obj find_slot page_order]
1086 1086     db_transaction {
1087 1087       foreach {page_id item_id name old_page_order new_page_order} [concat $drop_renames $gap_renames] {
1088 1088         #my log "--cpo UPDATE $page_id new_page_order $new_page_order"
  1089         $temp_obj item_id $item_id
1089 1090         $temp_obj update_attribute_from_slot -revision_id $page_id $slot $new_page_order
1090 1091         ::xo::clusterwide ns_cache flush xotcl_object_cache ::$item_id
1091 1092         ::xo::clusterwide ns_cache flush xotcl_object_cache ::$page_id
1092 1093       }
1093 1094     }
1094 1095     #
1095 1096     # Flush the page fragement caches (page fragments based on page_order might be sufficient)
1096 1097     my flush_page_fragment_cache -scope agg
1097 1098     ns_return 200 text/plain ok
1098 1099   }
1099 1100
1100 1101
1101 1102
1102 1103   #
1103 1104   # RSS 2.0 support
1104 1105   #
1105 1106   Package ad_instproc rss {
1106 1107     -maxentries
1107 1108     -name_filter
1108 1109     -entries_of