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