Index: openacs-4/packages/contacts/tcl/view-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/Attic/view-procs.tcl,v
diff -u -r1.1.2.5 -r1.1.2.6
--- openacs-4/packages/contacts/tcl/view-procs.tcl	22 Aug 2004 22:43:44 -0000	1.1.2.5
+++ openacs-4/packages/contacts/tcl/view-procs.tcl	23 Aug 2004 01:32:32 -0000	1.1.2.6
@@ -161,5 +161,17 @@
         return $name
 
     }
+
+    ad_proc -public first_view_id {
+        object_type
+    } {
+        get the first object type view_id
+    } {
+
+        return [db_string get_first_view_id {}]
+
+    }
+
+
 }