Index: openacs-4/packages/notes/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notes/www/index.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/notes/www/index.tcl	21 Sep 2003 22:16:52 -0000	1.5
+++ openacs-4/packages/notes/www/index.tcl	10 Feb 2004 19:39:49 -0000	1.6
@@ -17,31 +17,8 @@
 set context [list]
 set create_p [ad_permission_p $package_id create]
 
-db_multirow notes notes {
-  select note_id, owner_id, title, body,
-         decode(acs_permission.permission_p(note_id,
-                                            :user_id,
-                                            'write'),
-                't', 1,
-                'f', 0) as write_p,
-         decode(acs_permission.permission_p(note_id,
-                                            :user_id,
-                                            'admin'),
-                't', 1,
-                'f', 0) as admin_p,
-         decode(acs_permission.permission_p(note_id,
-                                            :user_id,
-                                            'delete'),
-                't', 1,
-                'f', 0) as delete_p
-  from notes n, acs_objects o
-  where n.note_id = o.object_id
-  and o.context_id = :package_id
-  and acs_permission.permission_p(note_id, :user_id, 'read') = 't'
-  order by creation_date
-} {
+db_multirow notes notes {} {
   set body [ad_text_to_html -- $body]
 }
 
-
 ad_return_template