Index: openacs-4/packages/calendar/tcl/cal-item-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/cal-item-procs-oracle.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/tcl/cal-item-procs-oracle.xql 24 Aug 2001 01:19:03 -0000 1.1
@@ -0,0 +1,141 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ begin
+ acs_permission.grant_permission (
+ object_id => :cal_item_id,
+ grantee_id => :party_id,
+ privilege => 'cal_item_read'
+ );
+ end;
+
+
+
+
+
+
+
+
+ begin
+ acs_permission.grant_permission (
+ object_id => :cal_item_id,
+ grantee_id => :party_id,
+ privilege => :permission
+ );
+ end;
+
+
+
+
+
+
+
+
+ begin
+ acs_permission.revoke_permission (
+ object_id => :cal_item_id,
+ grantee_id => :party_id,
+ privilege => :permission
+ );
+ end;
+
+
+
+
+
+
+
+
+ begin
+ :1 := acs_activity.new (
+ name => :name,
+ description => :description,
+ creation_user => :creation_user,
+ creation_ip => :creation_ip
+ );
+ end;
+
+
+
+
+
+
+
+
+ begin
+ :1 := timespan.new(
+ start_date => to_date(:start_date,:date_format),
+ end_date => to_date(:end_date,:date_format)
+ );
+ end;
+
+
+
+
+
+
+
+
+ begin
+ :1 := cal_item.new(
+ on_which_calendar => :on_which_calendar,
+ activity_id => :activity_id,
+ timespan_id => :timespan_id,
+ creation_user => :creation_user,
+ creation_ip => :creation_ip
+ );
+ end;
+
+
+
+
+
+
+
+
+ begin
+ acs_permission.grant_permission (
+ object_id => :cal_item_id,
+ grantee_id => :grantee_id,
+ privilege => :privilege
+ );
+ end;
+
+
+
+
+
+
+
+
+ begin
+ time_interval.edit (
+ interval_id => :interval_id,
+ start_date => to_date(:start_date,:date_format),
+ end_date => to_date(:end_date,:date_format)
+ );
+ end;
+
+
+
+
+
+
+
+
+ begin
+ cal_item.delete (
+ cal_item_id => :cal_item_id
+ );
+ end;
+
+
+
+
+
+
Index: openacs-4/packages/calendar/tcl/cal-item-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/cal-item-procs-postgresql.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/tcl/cal-item-procs-postgresql.xql 24 Aug 2001 01:19:03 -0000 1.1
@@ -0,0 +1,246 @@
+
+
+
+ postgresql7.1
+
+
+
+
+
+
+ select acs_permission__grant_permission (
+ :cal_item_id,
+ :party_id,
+ 'cal_item_read'
+ )
+
+
+
+
+
+
+
+
+
+
+ select acs_permission__grant_permission (
+ :cal_item_id,
+ :party_id,
+ :permission
+ )
+
+
+
+
+
+
+
+
+ :cal_item_id,
+ grantee_id => :party_id,
+ privilege => :permission
+ );
+ end;
+-->
+
+ select acs_permission__revokke_permission (
+ :cal_item_id,
+ :party_id,
+ :permission
+ )
+
+
+
+
+
+
+
+
+
+
+ select acs_activity__new (
+ null,
+ :name,
+ :description,
+ 'f',
+ 'acs_activity',
+ now(),
+ :creation_user,
+ :creation_ip,
+ null
+ )
+
+
+
+
+
+
+
+
+
+
+ select timespan__new (
+
+
+
+ :to_date(:start_date,:date_format),
+ :to_date(:end_date,:date_format)
+ )
+
+
+
+
+
+
+
+
+
+
+ select cal_item__new (
+ null,
+ :on_which_calendar,
+ null,
+ null,
+ :timespan_id,
+ :activity_id,
+ null,
+ 'cal_item',
+ null,
+ now(),
+ :creation_user,
+ :creation_ip
+ )
+
+
+
+
+
+
+
+
+
+
+ select acs_permission__grant_permission (
+ :cal_item_id,
+ :grantee_id,
+ :privilege
+ )
+
+
+
+
+
+
+
+
+
+
+ select time_interval__edit (
+ :interval_id,
+ to_date(:start_date,:date_format),
+ to_date(:end_date,:date_format)
+ )
+
+
+
+
+
+
+
+
+
+
+
+
+ select cal_item__delete (
+ :cal_item_id
+ )
+
+
+
+
+
+
Index: openacs-4/packages/calendar/tcl/cal-item-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/cal-item-procs.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/tcl/cal-item-procs.xql 24 Aug 2001 01:19:03 -0000 1.1
@@ -0,0 +1,16 @@
+
+
+
+
+
+
+ select grantee_id,
+ privilege
+ from acs_permissions
+ where object_id = :on_which_calendar
+
+
+
+
+
+
Index: openacs-4/packages/calendar/tcl/calendar-community-core-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/Attic/calendar-community-core-procs-oracle.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/tcl/calendar-community-core-procs-oracle.xql 24 Aug 2001 01:19:03 -0000 1.1
@@ -0,0 +1,38 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ select acs_group.name(:group_id)
+ from dual
+
+
+
+
+
+
+
+
+ select acs_object_util.get_object_type(:party_id)
+ as result
+ from dual
+
+
+
+
+
+
+
+
+ select acs_object_util.get_object_type(:party_id)
+ as result
+ from dual
+
+
+
+
+
+
Index: openacs-4/packages/calendar/tcl/calendar-community-core-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/Attic/calendar-community-core-procs-postgresql.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/tcl/calendar-community-core-procs-postgresql.xql 24 Aug 2001 01:19:03 -0000 1.1
@@ -0,0 +1,38 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select acs_group__name(:group_id)
+ from dual
+
+
+
+
+
+
+
+
+ select acs_object_util__get_object_type(:party_id)
+ as result
+ from dual
+
+
+
+
+
+
+
+
+ select acs_object_util__get_object_type(:party_id)
+ as result
+ from dual
+
+
+
+
+
+
Index: openacs-4/packages/calendar/tcl/calendar-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs-oracle.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/tcl/calendar-procs-oracle.xql 24 Aug 2001 01:19:03 -0000 1.1
@@ -0,0 +1,100 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ begin
+ :1 := calendar.new(
+ owner_id => :owner_id,
+ private_p => :private_p,
+ calendar_name => :calendar_name,
+ package_id => :package_id,
+ creation_user => :creation_user,
+ creation_ip => :creation_ip
+ );
+ end;
+
+
+
+
+
+
+
+
+ select acs.magic_object_id('the_public')
+ as party_id
+ from dual
+
+
+
+
+
+
+
+
+ begin
+ acs_permission.grant_permission (
+ object_id => :calendar_id,
+ grantee_id => :party_id,
+ privilege => :cal_privilege
+ );
+ end;
+
+
+
+
+
+
+
+
+ begin
+ acs_permission.revoke_permission (
+ object_id => :calendar_id,
+ grantee_id => :party_id,
+ privilege => :cal_privilege
+ );
+ end;
+
+
+
+
+
+
+
+
+ select acs_object.name(:private_id)
+ from dual
+
+
+
+
+
+
+
+
+ select calendar.name(:calendar_id)
+ from dual
+
+
+
+
+
+
+
+
+ select acs_permission.permission_p(
+ :calendar_id,
+ acs.magic_object_id('the_public'),
+ 'calendar_read'
+ )
+ from dual
+
+
+
+
+
+
+
Index: openacs-4/packages/calendar/tcl/calendar-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs-postgresql.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/tcl/calendar-procs-postgresql.xql 24 Aug 2001 01:19:03 -0000 1.1
@@ -0,0 +1,128 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select calendar__new(
+ null,
+ :calendar_name,
+ 'calendar',
+ :owner_id,
+ :private_p,
+ :package_id,
+ null,
+ now(),
+ :creation_user,
+ :creation_ip
+ );
+
+
+
+
+
+
+
+ select acs__magic_object_id('the_public')
+ as party_id
+ from dual
+
+
+
+
+
+
+
+
+ select ac_permission__grant_permission(
+ :calendar_id,
+ :party_id,
+ :cal_privilege
+ );
+
+
+
+
+
+
+
+ select acs_permission_revoke_permission (
+ :calendar_id,
+ :party_id,
+ :cal_privilege
+ );
+
+
+
+
+
+
+
+ select acs_object__name(:private_id)
+ from dual
+
+
+
+
+
+
+
+
+ select calendar__name(:calendar_id)
+ from dual
+
+
+
+
+
+
+
+
+ select acs_permission__permission_p(
+ :calendar_id,
+ acs__magic_object_id('the_public'),
+ 'calendar_read'
+ )
+ from dual
+
+
+
+
+
+
+
Index: openacs-4/packages/calendar/tcl/calendar-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/tcl/calendar-procs.xql 24 Aug 2001 01:19:03 -0000 1.1
@@ -0,0 +1,15 @@
+
+
+
+
+
+
+ update calendars
+ set calendar_name = :calendar_name
+ where calendar_id = :calendar_id
+
+
+
+
+
+