Index: openacs-4/packages/address-book/www/contact-add-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/address-book/www/contact-add-2-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/address-book/www/contact-add-2-postgresql.xql	22 Aug 2001 23:11:49 -0000	1.1
+++ openacs-4/packages/address-book/www/contact-add-2-postgresql.xql	28 Aug 2001 23:51:54 -0000	1.2
@@ -5,36 +5,18 @@
 
 <fullquery name="create_ab_contact">      
       <querytext>
-      FIX ME PLSQL
-FIX ME PLSQL
-
-	    begin
-	     :1 :=
-	      ab_contact__new(contact_id => :contact_id,
-	                     creation_user => :user_id,
-	                     creation_ip => :peeraddr,
-	                     context_id => :instance_id,
-	                     first_names => :first_names,
-	                     last_name => :last_name,
-	                     title => :title,
-	                     organization => :organization,
-	                     object_id => :instance_id,
-	                     category => 'ab_contact');
-	    end;
+	 select ab_contact__new(:contact_id, :user_id, :peeraddr, :instance_id,
+	                        :first_names, :last_name, :title, :organization,
+	                        :instance_id, 'ab_contact');
 	
       </querytext>
 </fullquery>
 
  
 <fullquery name="grant_admin_to_contact_creator">      
       <querytext>
-      FIX ME PLSQL
-FIX ME PLSQL
 
-	    begin acs_permission__grant_permission(object_id => :contact_id,
-	                                          grantee_id => :user_id,
-	                                          privilege => 'admin');
-	    end;
+	 select acs_permission__grant_permission(:contact_id, :user_id, 'admin');
 	
       </querytext>
 </fullquery>