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.2 -r1.3
--- openacs-4/packages/contacts/tcl/view-procs.tcl	13 Jan 2005 13:57:05 -0000	1.2
+++ openacs-4/packages/contacts/tcl/view-procs.tcl	18 May 2005 16:45:49 -0000	1.3
@@ -1,177 +1,177 @@
-ad_library {
-
-  Support procs for the contacts package
-
-    @author Matthew Geddert openacs@geddert.com
-    @creation-date 2004-07-28
-    @cvs-id $Id$
-
-}
-
-
-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 {}
-            if { [exists_and_not_null sort_order] } {
-                incr sort_order
-            } else {
-                set sort_order "1"
-            }
-        }
-
-        db_1row create_contact_view {}
-        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 save_view_name {}
-
-    }
-
-    ad_proc -private init {} {
-        initialize views
-    } {
-
-        if { [string is false [db_0or1row views_exist_p {} ]] } {
-
-            db_1row get_package_id {}
-
-            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
-    } {
-        this code returns 1 if the view_id exists for this object_type
-    } {
-        return [db_0or1row exists_p_select {}]
-    }
-
-    ad_proc -public get {
-        {-locale ""}
-        view_id
-    } {
-        get the info on the view
-    } {
-
-	db_0or1row get_view_info {}
-
-        if { ![exists_and_not_null locale] } {
-            set locale [lang::conn::locale -site_wide]        
-        }
-        set view_name [contacts::view::get::name -locale $locale $view_id]
-
-        set view_info [ns_set create]
-        ns_set put $view_info src                 $src                 
-        ns_set put $view_info privilege_required  $privilege_required  
-        ns_set put $view_info privilege_object_id $privilege_object_id 
-        ns_set put $view_info contact_object_type $contact_object_type 
-        ns_set put $view_info sort_order          $sort_order          
-        ns_set put $view_info view_name           $view_name                
-
-        # Now, set the variables in the caller's environment
-        ad_ns_set_to_tcl_vars -level 2 $view_info
-        ns_set free $view_info
-
-    }
-
-
-
-}
-
-
-namespace eval contacts::view::get:: {
-
-    ad_proc -public name {
-        {-locale ""}
-        view_id
-    } {
-        get the view name
-    } {
-
-        if { ![exists_and_not_null locale] } {
-            set locale [lang::conn::locale -site_wide]        
-        }
-
-        db_0or1row get_view_name {}
-
-        if { ![exists_and_not_null name] } {
-            set locale "en_US"
-            db_0or1row get_view_name {
-                select name from contact_view_names where view_id = :view_id and locale = :locale
-            }
-        }
-        
-        return $name
-
-    }
-
-    ad_proc -public first_view_id {
-        object_type
-    } {
-        get the first object type view_id
-    } {
-
-        return [db_string get_first_view_id {}]
-
-    }
-
-
-}
-
+ad_library {
+
+  Support procs for the contacts package
+
+    @author Matthew Geddert openacs@geddert.com
+    @creation-date 2004-07-28
+    @cvs-id $Id$
+
+}
+
+
+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 {}
+            if { [exists_and_not_null sort_order] } {
+                incr sort_order
+            } else {
+                set sort_order "1"
+            }
+        }
+
+        db_1row create_contact_view {}
+        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 save_view_name {}
+
+    }
+
+    ad_proc -private init {} {
+        initialize views
+    } {
+
+        if { [string is false [db_0or1row views_exist_p {} ]] } {
+
+            db_1row get_package_id {}
+
+            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
+    } {
+        this code returns 1 if the view_id exists for this object_type
+    } {
+        return [db_0or1row exists_p_select {}]
+    }
+
+    ad_proc -public get {
+        {-locale ""}
+        view_id
+    } {
+        get the info on the view
+    } {
+
+	db_0or1row get_view_info {}
+
+        if { ![exists_and_not_null locale] } {
+            set locale [lang::conn::locale -site_wide]        
+        }
+        set view_name [contacts::view::get::name -locale $locale $view_id]
+
+        set view_info [ns_set create]
+        ns_set put $view_info src                 $src                 
+        ns_set put $view_info privilege_required  $privilege_required  
+        ns_set put $view_info privilege_object_id $privilege_object_id 
+        ns_set put $view_info contact_object_type $contact_object_type 
+        ns_set put $view_info sort_order          $sort_order          
+        ns_set put $view_info view_name           $view_name                
+
+        # Now, set the variables in the caller's environment
+        ad_ns_set_to_tcl_vars -level 2 $view_info
+        ns_set free $view_info
+
+    }
+
+
+
+}
+
+
+namespace eval contacts::view::get:: {
+
+    ad_proc -public name {
+        {-locale ""}
+        view_id
+    } {
+        get the view name
+    } {
+
+        if { ![exists_and_not_null locale] } {
+            set locale [lang::conn::locale -site_wide]        
+        }
+
+        db_0or1row get_view_name {}
+
+        if { ![exists_and_not_null name] } {
+            set locale "en_US"
+            db_0or1row get_view_name {
+                select name from contact_view_names where view_id = :view_id and locale = :locale
+            }
+        }
+        
+        return $name
+
+    }
+
+    ad_proc -public first_view_id {
+        object_type
+    } {
+        get the first object type view_id
+    } {
+
+        return [db_string get_first_view_id {}]
+
+    }
+
+
+}
+