Index: openacs-4/packages/dotfolio-ui/www/views/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotfolio-ui/www/views/index-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotfolio-ui/www/views/index-postgresql.xql	31 Aug 2005 04:00:28 -0000	1.1
@@ -0,0 +1,14 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+  <fullquery name="viewers">
+    <querytext>
+      SELECT viewer_id, person__name(viewer_id) as viewer_name, views,
+          to_char(last_viewed, 'HH24:MI:SS, DD Mon YYYY') as last_viewed
+        FROM views
+        WHERE object_id = :object_id
+    </querytext>
+  </fullquery>
+    
+</queryset>
Index: openacs-4/packages/dotfolio-ui/www/views/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotfolio-ui/www/views/index.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotfolio-ui/www/views/index.adp	31 Aug 2005 04:00:28 -0000	1.1
@@ -0,0 +1,8 @@
+<master src="../resources/main-portal-column-content">
+
+<property name="title">@title@</property>
+<property name="context">@context@</property>
+
+<center>
+<listtemplate name="viewers"></listtemplate>
+</center>
Index: openacs-4/packages/dotfolio-ui/www/views/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotfolio-ui/www/views/index.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotfolio-ui/www/views/index.tcl	31 Aug 2005 04:00:28 -0000	1.1
@@ -0,0 +1,49 @@
+ad_page_contract {
+    Displays a list of known users that have viewed a specific displayed
+    object.
+
+    @author Nick Carroll (nick.c@rroll.net
+    @creation-date 15/08/2005
+
+    @cvs-id $Id: index.tcl,v 1.1 2005/08/31 04:00:28 ncarroll Exp $
+} {
+    object_id
+}
+
+set user_id [auth::refresh_login]
+
+set title [_ dotfolio-ui.viewed_by]
+
+set context [list {viewed by}]
+
+set elements {
+    viewer_name {
+        label {#dotfolio-ui.viewer#}
+	display_template {
+	    <if @viewers.has_dotfolio@>
+	      <a href="@viewers.dotfolio_url@">@viewers.viewer_name@</a>
+            </if>
+	    <else>@viewers.viewer_name@</else>
+	}
+    }
+    views {
+	label {#dotfolio-ui.number_of_times_viewed#}
+    }
+    last_viewed {
+        label {#dotfolio-ui.last_viewed#}
+    }
+}
+
+template::list::create \
+    -name viewers \
+    -multirow viewers \
+    -elements $elements
+
+db_multirow -extend {has_dotfolio dotfolio_url} viewers viewers {} {
+    set has_dotfolio [dotfolio::has_dotfolio_p -user_id $viewer_id]
+
+    set dotfolio_url ""
+    if { $has_dotfolio } {
+	set dotfolio_url [dotfolio::user::dotfolio_url -user_id $viewer_id]
+    }
+}