Index: openacs.org-dev/packages/calendar/tcl/cal-item-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/calendar/tcl/cal-item-procs-oracle.xql,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/calendar/tcl/cal-item-procs-oracle.xql	9 Jul 2002 17:35:02 -0000	1.1.1.1
+++ openacs.org-dev/packages/calendar/tcl/cal-item-procs-oracle.xql	8 Oct 2002 15:46:57 -0000	1.1.1.2
@@ -3,51 +3,6 @@
 <queryset>
    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-<fullquery name="cal_assign_item_permission.grant_calendar_permissions_to_items_1">      
-      <querytext>
-      
-		begin
-		acs_permission.grant_permission (
-		  object_id       =>      :cal_item_id,
-		  grantee_id      =>      :party_id,
-		  privilege       =>      'cal_item_read'
-		);
-		end;
-	    
-      </querytext>
-</fullquery>
-
- 
-<fullquery name="cal_assign_item_permission.grant_calendar_permissions_to_items_2">      
-      <querytext>
-      
-	    begin
-	    acs_permission.grant_permission (
-	      object_id       =>      :cal_item_id,
-	      grantee_id      =>      :party_id,
-	      privilege       =>      :permission
-	    );
-	    end;
-	
-      </querytext>
-</fullquery>
-
- 
-<fullquery name="cal_assign_item_permission.grant_calendar_permissions_to_items_3">      
-      <querytext>
-      
-	    begin
-	    acs_permission.revoke_permission (
-	      object_id       =>      :cal_item_id,
-	      grantee_id      =>      :party_id,
-	      privilege       =>      :permission
-	    );
-	    end;
-	
-      </querytext>
-</fullquery>
-
- 
 <fullquery name="cal_item_create.insert_activity">      
       <querytext>
       
@@ -86,31 +41,17 @@
 	  on_which_calendar  => :on_which_calendar,
 	  activity_id        => :activity_id,
           timespan_id        => :timespan_id,
-          item_type_id        => :item_type_id,
+          item_type_id       => :item_type_id,
 	  creation_user      => :creation_user,
-	  creation_ip        => :creation_ip
+	  creation_ip        => :creation_ip,
+          context_id         => :on_which_calendar
 	);
 	end;
     
       </querytext>
 </fullquery>
 
  
-<fullquery name="cal_item_create.grant_calendar_permissions_to_items_4">      
-      <querytext>
-      
-	    begin
-  	      acs_permission.grant_permission (
-                object_id       =>      :cal_item_id,
-                grantee_id      =>      :grantee_id,
-                privilege       =>      :privilege
-              );
-	    end;
-	
-      </querytext>
-</fullquery>
-
- 
 <fullquery name="cal_item_update.update_interval">      
       <querytext>