Index: openacs-4/packages/acs-subsite/www/file.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/file.vuh,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/file.vuh	21 Jan 2007 07:41:15 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/file.vuh	30 Jan 2007 14:40:43 -0000	1.4
@@ -48,6 +48,11 @@
     }
 }
 
+if {[apm_package_installed_p views]} {
+	set user_id [ad_conn user_id]
+	views::record_view -object_id $file_id -viewer_id $user_id
+}
+
 # find a cr_item and serve it
 
 cr_write_content -item_id $object_id
\ No newline at end of file