Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/contacts/www/view/comments-view-postgresql.xql'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/contacts/www/view/comments-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/view/Attic/comments-view.tcl,v diff -u -r1.1.2.3 -r1.1.2.4 --- openacs-4/packages/contacts/www/view/comments-view.tcl 19 Aug 2004 01:23:15 -0000 1.1.2.3 +++ openacs-4/packages/contacts/www/view/comments-view.tcl 22 Aug 2004 23:23:09 -0000 1.1.2.4 @@ -79,44 +79,14 @@ template::multirow create comments comment_id author author_url pretty_timestamp content content_html set package_id [ad_conn package_id] -db_foreach get_comments " - select g.comment_id, - r.mime_type, - o.creation_user, - acs_object__name(o.creation_user) as author, - to_char(o.creation_date, 'MM-DD-YYYY') as pretty_date, - to_char(o.creation_date, 'YYYY-MM-DD HH24:MI') as pretty_timestamp, - r.content - from general_comments g, - cr_revisions r, - acs_objects o - where g.object_id = :party_id and - r.revision_id = content_item__get_live_revision(g.comment_id) and - o.object_id = g.comment_id - and o.context_id = :package_id - [template::list::orderby_clause -orderby -name comments] -" { +db_foreach get_comments "" { set author_url "[apm_package_url_from_id [ad_conn package_id]]view/$creation_user" set content_html [ad_html_text_convert -from $mime_type -to "text/html" $content] template::multirow append comments $comment_id $author $author_url $pretty_timestamp $content $content_html } - - - - - - - - - - - - - - set login_button [list [list "Add this Comment" ok]] ad_form -name comment -action comments-view -edit_buttons $login_button -form { Index: openacs-4/packages/contacts/www/view/index.vuh =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/view/Attic/index.vuh,v diff -u -r1.1.2.3 -r1.1.2.4 --- openacs-4/packages/contacts/www/view/index.vuh 19 Aug 2004 01:23:15 -0000 1.1.2.3 +++ openacs-4/packages/contacts/www/view/index.vuh 22 Aug 2004 23:23:09 -0000 1.1.2.4 @@ -31,7 +31,7 @@ if { [string is false $error_p] } { # there is no view_id but the party_id was valid, so we get the default view_id set object_type [contact::get::object_type $party_id] - db_0or1row select_first_view_id { select view_id from contact_views where contact_object_type = :object_type order by sort_order limit 1 } + set view_id [contact::view::get::first_view_id $object_type] if { ![exists_and_not_null view_id] } { # there are no pages available for this contact object type set error_p 1 Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/contacts/www/view/view-postgresql.xql'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/contacts/www/view/view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/view/Attic/view.tcl,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/contacts/www/view/view.tcl 12 Aug 2004 17:38:42 -0000 1.1.2.1 +++ openacs-4/packages/contacts/www/view/view.tcl 22 Aug 2004 23:23:09 -0000 1.1.2.2 @@ -28,13 +28,7 @@ set selected_view_id $view_id set user_id [ad_conn user_id] -db_multirow -extend { name url selected_p } views select_views { - select view_id - from contact_views - where contact_object_type = :object_type - and acs_permission__permission_p(privilege_object_id,:user_id,privilege_required) - order by sort_order -} { +db_multirow -extend { name url selected_p } views select_views {} { if { $selected_view_id == $view_id } { set selected_p 1 } else {