Index: openacs-4/packages/dotlrn-calendar/dotlrn-calendar.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-calendar/dotlrn-calendar.info,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-calendar/dotlrn-calendar.info	26 Oct 2001 16:20:55 -0000	1.1
@@ -0,0 +1,30 @@
+<?xml version="1.0"?>
+<!-- Generated by the OpenACS Package Manager -->
+
+<package key="dotlrn-calendar" url="http://openforce.net/software/dotlrn/dotlrn-calendar" type="apm_service">
+    <package-name>dotLRN Calendar Applet</package-name>
+    <pretty-plural>dotLRN Calendar Applets</pretty-plural>
+    <initial-install-p>f</initial-install-p>
+    <singleton-p>t</singleton-p>
+
+    <version name="0.1a" url="http://openforce.net/software/dotlrn/dotlrn-calendar/0.1">
+    <database-support>
+        <database>oracle</database>
+    </database-support>
+        <owner url="mailto:arjun@openforce.net">Arjun Sanyal</owner>
+        <summary>blah blah</summary>
+
+	<provides url="dotlrn-calendar" version="0.1a"/>
+        <requires url="calendar-portlet" version="0.1a"/>
+
+        <files>
+            <file type="package_spec" path="dotlrn-calendar.info"/>
+            <file type="data_model_create" db_type="oracle" path="sql/oracle/dotlrn-calendar-create.sql"/>
+            <file type="tcl_procs" path="tcl/dotlrn-calendar-procs.tcl"/>
+        </files>
+        <parameters>
+        <!-- No version parameters -->
+        </parameters>
+
+    </version>
+</package>
Index: openacs-4/packages/dotlrn-calendar/sql/oracle/dotlrn-calendar-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-calendar/sql/oracle/dotlrn-calendar-create.sql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-calendar/sql/oracle/dotlrn-calendar-create.sql	26 Oct 2001 16:20:55 -0000	1.1
@@ -0,0 +1,78 @@
+
+--
+-- The calendar applet for dotLRN
+-- copyright 2001, OpenForce
+-- distributed under GPL v2.0
+--
+--
+-- ben,arjun@openforce.net
+--
+-- 10/05/2001
+--
+
+
+declare
+	foo integer;
+begin
+	-- create the implementation
+	foo := acs_sc_impl.new (
+		'dotlrn_applet',
+		'dotlrn_calendar',
+		'dotlrn_calendar'
+	);
+
+	-- add all the hooks
+
+	-- GetPrettyName
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_calendar',
+	       'GetPrettyName',
+	       'dotlrn_calendar::get_pretty_name',
+	       'TCL'
+	);
+
+	-- AddApplet
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_calendar',
+	       'AddApplet',
+	       'dotlrn_calendar::add_applet',
+	       'TCL'
+	);
+
+	-- RemoveApplet
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_calendar',
+	       'RemoveApplet',
+	       'dotlrn_calendar::remove_applet',
+	       'TCL'
+	);
+
+	-- AddUser
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_calendar',
+	       'AddUser',
+	       'dotlrn_calendar::add_user',
+	       'TCL'
+	);
+
+	-- RemoveUser
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_calendar',
+	       'RemoveUser',
+	       'dotlrn_calendar::remove_user',
+	       'TCL'
+	);
+
+	-- Add the binding
+	acs_sc_binding.new (
+	    contract_name => 'dotlrn_applet',
+	    impl_name => 'dotlrn_calendar'
+	);
+end;
+/
+show errors
Index: openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	26 Oct 2001 16:20:55 -0000	1.1
@@ -0,0 +1,128 @@
+
+# Procs for DOTLRN calendar Applet
+# Copyright 2001 OpenForce, inc.
+# Distributed under the GNU GPL v2
+#
+# October 26th, 2001
+#
+
+ad_library {
+    
+    Procs to set up the dotLRN calendar applet
+    
+    @author ben@openforce.net,arjun@openforce.net
+    @creation-date 2001-10-26
+    
+}
+
+namespace eval dotlrn_calendar {
+    
+    ad_proc -public package_key {
+    } {
+	get the package_key this applet deals with
+    } {
+	return "calendar"
+    }
+
+    ad_proc portal_element_key {
+    } {
+	return the portal element key
+    } {
+	return "calendar-portlet"
+    }
+
+    ad_proc -public get_pretty_name {
+    } {
+	returns the pretty name
+    } {
+	return "dotLRN Calendar"
+    }
+
+    ad_proc -public add_applet {
+	community_id
+    } {
+	Add the calendar applet
+    } {
+	# Callback to get node_id from community
+	# REVISIT this (ben)
+	set node_id [site_node_id [ad_conn url]]
+
+	# create the calendar package instance (all in one, I've mounted it)
+	set package_key [package_key]
+	set package_id [site_node_mount_application -return package_id $node_id $package_key $package_key $package_key]
+
+	# XXX - set up a public calendar inside that instance
+#	 
+#	 # first get the community name from dotlrn
+#	 set community_name [db_exec_plsql get_community_name "
+#	 begin
+#	 :1 := dotlrn_community.name(:node_id);
+#	 end;"]
+#
+#	 set calendar_id [calendar_create [ad_conn user_id] "f" $community_name]
+#	 
+	# return the package_id
+	return $package_id
+    }
+
+    ad_proc -public remove_applet {
+	community_id
+	package_id
+    } {
+	remove the applet from the community
+    } {
+	# Remove all instances of the calendar portlet! (this is some
+	# serious stuff!)
+	# Dropping all messages, forums
+	# Killing the package
+    }
+
+    ad_proc -public add_user {
+	community_id
+	user_id
+    } {
+	Add a user to a community
+    } {
+	# Get the page_id by callback
+	set page_id [dotlrn_community::get_page_id $community_id $user_id]
+	
+	# Get the package_id by callback
+	set package_id [dotlrn_community::get_applet_package_id $community_id dotlrn_calendar]
+
+	# create a private calendar for the user
+	
+	# first get the community name from dotlrn
+	set community_name "Your Calendar for "
+	append community_name [db_exec_plsql get_community_name "
+	begin
+	:1 := dotlrn_community.name(:node_id);
+	end;"]
+
+	set calendar_id [calendar_create $user_id "t" $community_name]
+
+	# Allow user to see the public calendar XXX
+
+	# Call the portal element to be added correctly
+	calendar_portlet::add_self_to_page $page_id $calendar_id 
+    }
+
+    ad_proc -public remove_user {
+	community_id
+	user_id
+    } {
+	Remove a user from a community
+    } {
+	# Get the page_id
+	set page_id [dotlrn_community::get_page_id $community_id $user_id]
+	
+	# Get the package_id by callback
+	set package_id [dotlrn_community::get_package_id $community_id]
+
+	# Remove the portal element
+	calendar_portlet::remove_self_from_page $page_id $package_id
+
+	# remove user permissions to see calendar folders
+	# nothing to do here
+    }
+	
+}