Index: openacs-4/packages/xowiki/xowiki.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v
diff -u -r1.86 -r1.87
--- openacs-4/packages/xowiki/xowiki.info 15 Aug 2008 17:10:33 -0000 1.86
+++ openacs-4/packages/xowiki/xowiki.info 25 Aug 2008 11:33:56 -0000 1.87
@@ -8,7 +8,7 @@
f
xowiki
-
+
Gustaf Neumann
A more generic xotcl-based wikis example with object types
and subtypes based on the content repository (with category support)
@@ -54,7 +54,7 @@
BSD-Style
0
-
+
Index: openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl,v
diff -u -r1.42 -r1.43
--- openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl 25 Apr 2008 10:02:49 -0000 1.42
+++ openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl 25 Aug 2008 11:33:56 -0000 1.43
@@ -407,6 +407,44 @@
$package_id import_prototype_page weblog-portlet
}
}
+
+ set v 0.90
+ if {[apm_version_names_compare $from_version_name $v] == -1 &&
+ [apm_version_names_compare $to_version_name $v] > -1} {
+ ns_log notice "-- upgrading to $v"
+ set dir [acs_package_root_dir xowiki]
+ foreach file {
+ tcl/xowiki-portlet-procs.tcl
+ www/delete-revision.tcl www/delete.tcl www/edit.tcl www/revisions.tcl
+ www/index.adp www/index.tcl
+ www/view.adp www/view.tcl
+ www/make-live-revision.tcl www/popular_tags.tcl www/save_tags.tcl www/weblog.tcl
+ www/portlets/categories-recent.adp
+ www/portlets/categories-recent.tcl
+ www/portlets/categories.adp
+ www/portlets/categories.tcl
+ www/portlets/last-visited.adp
+ www/portlets/last-visited.tcl
+ www/portlets/most-popular.adp
+ www/portlets/most-popular.tcl
+ www/portlets/recent.adp
+ www/portlets/recent.tcl
+ www/portlets/rss-button.adp
+ www/portlets/rss-button.tcl
+ www/portlets/tags.tcl
+ www/portlets/weblog.adp
+ www/portlets/weblog.tcl
+ www/portlets/wiki.adp
+ www/portlets/wiki.tcl
+ www/prototypes/announcements.page
+ www/admin/regression_test.tcl
+ } {
+ if {[file exists $dir/$file]} {
+ ns_log notice "Deleting obsolete file $dir/$file"
+ file delete $dir/$file
+ }
+ }
+ }
}
proc copy_parameter {from to} {