Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/views/tcl/views-procs-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/views/tcl/views-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/views/tcl/views-procs.tcl,v
diff -u -r1.2 -r1.2.6.1
--- openacs-4/packages/views/tcl/views-procs.tcl	4 Dec 2004 10:06:12 -0000	1.2
+++ openacs-4/packages/views/tcl/views-procs.tcl	21 Jul 2006 11:38:19 -0000	1.2.6.1
@@ -3,8 +3,8 @@
     TCL library for recoding views
 
     @author Jeff Davis <davis@xarg.net>
-
     @creation-date 2004-05-20
+	
     @cvs-id $Id$
 }
 
@@ -24,19 +24,15 @@
     @author Jeff Davis davis@xarg.net
     @creation-date 2004-01-30
 } {
-    set views [db_string record_view "select views__record_view(:object_id, :viewer_id)" -default 1]
+    set views [db_string record_view {} -default 1]
 
     return $views
 }
 
 ad_proc -public views::get { 
     -object_id
 } {
-    if {[db_0or1row views {
-        SELECT views, unique_views, to_char(last_viewed,'YYYY-MM-DD HH24:MI:SS') as last_viewed
-        FROM view_aggregates
-        WHERE object_id = :object_id
-    } -column_array ret] } {
+    if {[db_0or1row views {} -column_array ret] } {
         return [array get ret]
     }
 
@@ -50,10 +46,5 @@
     if {!$user_id} {
         set user_id [ad_conn user_id]
     }
-    return [db_string get_viewed_p {
-        select count(*)
-        from views
-        where object_id = :object_id
-              and viewer_id = :user_id
-    } -default 0]
+    return [db_string get_viewed_p {} -default 0]
 }
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/views/tcl/views-procs.xql'.
Fisheye: No comparison available.  Pass `N' to diff?