Index: openacs-4/packages/contacts/sql/postgresql/views-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/sql/postgresql/Attic/views-create.sql,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/contacts/sql/postgresql/views-create.sql	12 Aug 2004 17:38:40 -0000	1.1.2.1
+++ openacs-4/packages/contacts/sql/postgresql/views-create.sql	16 Aug 2004 20:36:39 -0000	1.1.2.2
@@ -127,40 +127,3 @@
 
 
 
--- attributes-populate.sql
---
--- @author Matthew Geddert openacs@geddert.com
--- @creation-date 2004-07-28
-
-
--- now we populate the database with standard info
-
-
-create function inline_1 ()
-returns integer as '
-declare
-        v_package_id              integer;
-        v_view_id                 integer;
-begin
-
-v_package_id := package_id from apm_packages where package_key = ''contacts'';
-
-v_view_id := contact__view_create(null,''/packages/contacts/www/view/contact-view'',''read'',v_package_id,''organization'',v_package_id,''1'',null,null,null,null);
-PERFORM contact__view_name_save(v_view_id,''en_US'',''Contact Info'');
-
-v_view_id := contact__view_create(null,''/packages/contacts/www/view/comments-view'',''read'',v_package_id,''organization'',v_package_id,''2'',null,null,null,null);
-PERFORM contact__view_name_save(v_view_id,''en_US'',''Comments'');
-
-v_view_id := contact__view_create(null,''/packages/contacts/www/view/contact-view'',''read'',v_package_id,''person'',v_package_id,''1'',null,null,null,null);
-PERFORM contact__view_name_save(v_view_id,''en_US'',''Contact Info'');
-
-v_view_id := contact__view_create(null,''/packages/contacts/www/view/comments-view'',''read'',v_package_id,''person'',v_package_id,''2'',null,null,null,null);
-PERFORM contact__view_name_save(v_view_id,''en_US'',''Comments'');
-
-
-return 0;
-
-end;' language 'plpgsql';
-
-select inline_1 ();
-drop function inline_1 ();
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/contacts/tcl/contacts-init.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
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.1 -r1.1.2.2
--- openacs-4/packages/contacts/tcl/view-procs.tcl	12 Aug 2004 17:38:40 -0000	1.1.2.1
+++ openacs-4/packages/contacts/tcl/view-procs.tcl	16 Aug 2004 20:36:38 -0000	1.1.2.2
@@ -10,6 +10,110 @@
 
 namespace eval contacts::view:: {
 
+    ad_proc -public create {
+        {-src}
+        {-privilege_required "read"}
+        {-privilege_object_id}
+        {-contact_object_type}
+        {-package_id ""}
+        {-sort_order ""}
+        {-creation_user ""}
+        {-creation_ip ""}
+        {-context_id ""}
+    } {
+        this code returns 1 if the view_id exists for this object_type
+    } {
+        if { ![exists_and_not_null package_id]    } { set package_id [ad_conn package_id] }
+        if { ![exists_and_not_null sort_order]    } {
+            db_0or1row select_last_sort_order_value {
+                select sort_order from contact_views where contact_object_type = :contact_object_type order by sort_order desc limit 1 
+            }
+            if { [exists_and_not_null sort_order] } {
+                incr sort_order
+            } else {
+                set sort_order "1"
+            }
+        }
+
+        db_1row create_contact_view {
+            select contact__view_create(
+                                        null,
+                                        :src,
+                                        :privilege_required,
+                                        :privilege_object_id,
+                                        :contact_object_type,
+                                        :package_id,
+                                        :sort_order,
+                                        now(),
+                                        :creation_user,
+                                        :creation_ip,
+                                        :context_id) as view_id
+        }
+        return $view_id
+
+    }
+
+    ad_proc -public name {
+        {-view_id}
+        {-locale "en_US"}
+        {-name}
+    } {
+        this code returns 1 if the view_id exists for this object_type
+    } {
+        db_1row create_contact_view {
+            select contact__view_name_save(
+                                           :view_id,
+                                           :locale,
+                                           :name
+                                           )
+        }
+
+    }
+
+    ad_proc -private init {} {
+        initialize views
+    } {
+
+        if { ![db_0or1row views_exist_p { select '1' from contact_views limit 1 } ] } {
+
+            db_1row get_package_id { select package_id from apm_packages where package_key = 'contacts' }
+
+            set view_id [contacts::view::create -src "/packages/contacts/www/view/contact-view" \
+                             -privilege_required "read" \
+                             -privilege_object_id $package_id \
+                             -contact_object_type "organization" \
+                             -package_id $package_id \
+                             -sort_order "1"]
+            contacts::view::name -view_id $view_id -name "Contact Info"
+            
+            set view_id [contacts::view::create -src "/packages/contacts/www/view/comments-view" \
+                             -privilege_required "read" \
+                             -privilege_object_id $package_id \
+                             -contact_object_type "organization" \
+                             -package_id $package_id \
+                             -sort_order "1"]
+            contacts::view::name -view_id $view_id -name "Comments"
+
+            set view_id [contacts::view::create -src "/packages/contacts/www/view/contact-view" \
+                             -privilege_required "read" \
+                             -privilege_object_id $package_id \
+                             -contact_object_type "person" \
+                             -package_id $package_id \
+                             -sort_order "1"]
+            contacts::view::name -view_id $view_id -name "Contact Info"
+
+            set view_id [contacts::view::create -src "/packages/contacts/www/view/comments-view" \
+                             -privilege_required "read" \
+                             -privilege_object_id $package_id \
+                             -contact_object_type "person" \
+                             -package_id $package_id \
+                             -sort_order "1"]
+            contacts::view::name -view_id $view_id -name "Comments"
+
+        }
+
+    }
+
     ad_proc -public exists_p {
         {-object_type ""}
         view_id