Index: openacs-4/packages/xowiki/xowiki.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v
diff -u -r1.40 -r1.41
--- openacs-4/packages/xowiki/xowiki.info 7 Jan 2007 21:52:37 -0000 1.40
+++ openacs-4/packages/xowiki/xowiki.info 27 Jan 2007 16:28:06 -0000 1.41
@@ -8,11 +8,11 @@
f
xowiki
-
+
Gustaf Neumann
A more generic xotcl-based wikis example with object types
and subtypes based on the content repository (with category support)
- 2007-01-04
+ 2006-12-30
XoWiki is a wiki implementation for OpenACS in xotcl. Instead of trying to
implement the full set of wiki markup commands of systems like MediaWiki,
XoWiki is based on a rich text editor and focuses more on integration
@@ -29,7 +29,7 @@
BSD-Style
0
-
+
@@ -42,15 +42,14 @@
-
-
+
@@ -61,6 +60,7 @@
+
Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 9 Jan 2007 11:05:58 -0000 1.30
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 27 Jan 2007 16:28:06 -0000 1.31
@@ -1,34 +1,11 @@
-# different template testing DONE
-# orphan creation DONE
-# orphan deletions completion DONE
-# link resolver DONE
-# edit-new parameter name DONE
-# cgi package_id missing DONE
-# delete all DONE
-# $parent_id set package_id DONE
-# lang link DONE
-# unknown link DONE
-# weblog DONE
-# tag edit DONE
-# tag new DONE
-# weblog on the fly creation DONE
-# behavior without index page DONE
-# renaming objects DONE
-# handling of sc DONE
-# make subst_blank_in_name default DONE
-# package parameters and payload of folder object DONE
-# permissions management DONE
-# permissions admin DONE
-# include DONE
-# edit page template DONE
-# edit page instance DONE
-# delete folder object DONE
-# the flag store_folder_id should not be necessary
-# move require folder object code
-# edit-new last_page_id (needed?)
-# edit last_page_id (needed?)
-# nicer title + content for notification; my-wiki,
+ad_library {
+ XoWiki - form classes
+ @creation-date 2006-04-10
+ @author Gustaf Neumann
+ @cvs-id $Id$
+}
+
namespace eval ::xowiki {
Page instproc view {} {
@@ -51,6 +28,19 @@
my record_last_visited
}
+ # Deal with the views package (many thanks to Malte for this snippet!)
+ if {[$package_id get_parameter with_views_package_if_available 1]
+ && [apm_package_installed_p "views"]} {
+ views::record_view -object_id $item_id -viewer_id [::xo::cc user_id]
+ array set views_arr [views::get -object_id $item_id]
+ if {$views_arr(views) ne ""} {
+ set views $views_arr(views)
+ set unique_views $views_arr(unique_views)
+ set last_viewed $views_arr(last_viewed)
+ }
+ views unique_views last_viewed
+ }
+
#my log "--after user_tracking"
set references [my references]
#my log "--after references = <$references>"