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} {