Index: openacs-4/packages/logger/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/index.tcl,v diff -u -r1.15 -r1.15.2.1 --- openacs-4/packages/logger/www/index.tcl 20 Oct 2003 16:10:56 -0000 1.15 +++ openacs-4/packages/logger/www/index.tcl 3 Dec 2003 18:07:04 -0000 1.15.2.1 @@ -318,27 +318,6 @@ # This query will override the ad_page_contract value entry_id db_multirow -extend { edit_url delete_url delete_onclick } -unclobber entries select_entries " - select le.entry_id, - acs_permission__permission_p(le.entry_id, :current_user_id, 'delete') as delete_p, - acs_permission__permission_p(le.entry_id, :current_user_id, 'write') as edit_p, - le.time_stamp, - to_char(le.time_stamp, 'fmDyfm fmMMfm-fmDDfm-YYYY') as time_stamp_pretty, - to_char(le.time_stamp, 'IW-YYYY') as time_stamp_week, - le.value, - le.description, - lp.project_id, - lp.name as project_name, - submitter.user_id, - submitter.first_names || ' ' || submitter.last_name as user_name - from logger_entries le, - logger_projects lp, - acs_objects ao, - cc_users submitter - where le.project_id = lp.project_id - and ao.object_id = le.entry_id - and ao.creation_user = submitter.user_id - [list::filter_where_clauses -and -name "entries"] - [list::orderby_clause -orderby -name "entries"] " { set selected_p [string equal [ns_queryget entry_id] $entry_id] set edit_url "log?[export_vars { entry_id { edit t } }]"