Index: openacs-4/packages/dotlrn-attendance/sql/oracle/dotlrn-attendance-admin-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-attendance/sql/oracle/dotlrn-attendance-admin-portlet-create.sql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-attendance/sql/oracle/dotlrn-attendance-admin-portlet-create.sql	1 Sep 2005 00:16:53 -0000	1.1
@@ -0,0 +1,167 @@
+
+declare
+  ds_id portal_datasources.datasource_id%TYPE;
+begin
+  ds_id := portal_datasource.new(
+    name             => 'dotlrn_attendance_admin_portlet',
+    description      => 'Displays the dotlrn_attendance_admin'
+  );
+
+  -- 4 defaults procs
+
+  -- shadeable_p 
+  portal_datasource.set_def_param (
+	datasource_id => ds_id,
+	config_required_p => 't',
+	configured_p => 't',
+	key => 'shadeable_p',
+	value => 'f'
+);	
+
+  -- shaded_p 
+  portal_datasource.set_def_param (
+	datasource_id => ds_id,
+	config_required_p => 't',
+	configured_p => 't',
+	key => 'shaded_p',
+	value => 'f'
+);	
+
+  -- hideable_p 
+  portal_datasource.set_def_param (
+	datasource_id => ds_id,
+	config_required_p => 't',
+	configured_p => 't',
+	key => 'hideable_p',
+	value => 't'
+);	
+
+  -- user_editable_p 
+  portal_datasource.set_def_param (
+	datasource_id => ds_id,
+	config_required_p => 't',
+	configured_p => 't',
+	key => 'user_editable_p',
+	value => 'f'
+);	
+
+  -- link_hideable_p 
+  portal_datasource.set_def_param (
+	datasource_id => ds_id,
+	config_required_p => 't',
+	configured_p => 't',
+	key => 'link_hideable_p',
+	value => 't'
+);	
+
+
+  -- forums_admin-specific procs
+
+  -- package_id must be configured
+  portal_datasource.set_def_param (
+	datasource_id => ds_id,
+	config_required_p => 't',
+	configured_p => 'f',
+	key => 'package_id',
+	value => ''
+);	
+
+
+end;
+/
+show errors
+
+
+declare
+	foo integer;
+begin
+	-- create the implementation
+	foo := acs_sc_impl.new (
+		impl_contract_name => 'portal_datasource',
+		impl_name => 'dotlrn_attendance_admin_portlet',
+		impl_pretty_name => 'dotlrn_attendance_admin_portlet',
+		impl_owner_name => 'dotlrn_attendance_admin_portlet'
+	);
+
+end;
+/
+show errors
+
+declare
+	foo integer;
+begin
+
+	-- add all the hooks
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'dotlrn_attendance_admin_portlet',
+	       'GetMyName',
+	       'dotlrn_attendance_admin_portlet::get_my_name',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'dotlrn_attendance_admin_portlet',
+	       'GetPrettyName',
+	       'dotlrn_attendance_admin_portlet::get_pretty_name',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'dotlrn_attendance_admin_portlet',
+	       'Link',
+	       'dotlrn_attendance_admin_portlet::link',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'dotlrn_attendance_admin_portlet',
+	       'AddSelfToPage',
+	       'dotlrn_attendance_admin_portlet::add_self_to_page',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'dotlrn_attendance_admin_portlet',
+	       'Show',
+	       'dotlrn_attendance_admin_portlet::show',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'dotlrn_attendance_admin_portlet',
+	       'Edit',
+	       'dotlrn_attendance_admin_portlet::edit',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'dotlrn_attendance_admin_portlet',
+	       'RemoveSelfFromPage',
+	       'dotlrn_attendance_admin_portlet::remove_self_from_page',
+	       'TCL'
+	);
+
+end;
+/
+show errors
+
+declare
+	foo integer;
+begin
+
+	-- Add the binding
+	acs_sc_binding.new (
+	    contract_name => 'portal_datasource',
+	    impl_name => 'dotlrn_attendance_admin_portlet'
+	);
+end;
+/
+show errors
+
Index: openacs-4/packages/dotlrn-attendance/sql/oracle/dotlrn-attendance-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-attendance/sql/oracle/dotlrn-attendance-create.sql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-attendance/sql/oracle/dotlrn-attendance-create.sql	1 Sep 2005 00:16:53 -0000	1.1
@@ -0,0 +1,141 @@
+--
+declare
+	foo integer;
+begin
+	-- create the implementation
+	foo := acs_sc_impl.new (
+		impl_contract_name => 'dotlrn_applet',
+		impl_name => 'dotlrn_attendance',
+		impl_pretty_name => 'dotlrn_attendance',
+		impl_owner_name => 'dotlrn_attendance'
+	);
+
+	-- add all the hooks
+
+	-- GetPrettyName
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_attendance',
+	       'GetPrettyName',
+	       'dotlrn_attendance::get_pretty_name',
+	       'TCL'
+	);
+
+	-- AddApplet
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_attendance',
+	       'AddApplet',
+	       'dotlrn_attendance::add_applet',
+	       'TCL'
+	);
+
+	-- RemoveApplet
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_attendance',
+	       'RemoveApplet',
+	       'dotlrn_attendance::remove_applet',
+	       'TCL'
+	);
+
+	-- AddAppletToCommunity
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_attendance',
+	       'AddAppletToCommunity',
+	       'dotlrn_attendance::add_applet_to_community',
+	       'TCL'
+	);
+
+	-- RemoveAppletFromCommunity
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_attendance',
+	       'RemoveAppletFromCommunity',
+	       'dotlrn_attendance::remove_applet_from_community',
+	       'TCL'
+	);
+
+	-- AddUser
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_attendance',
+	       'AddUser',
+	       'dotlrn_attendance::add_user',
+	       'TCL'
+	);
+
+	-- RemoveUser
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_attendance',
+	       'RemoveUser',
+	       'dotlrn_attendance::remove_user',
+	       'TCL'
+	);
+
+	-- AddUserToCommunity
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_attendance',
+	       'AddUserToCommunity',
+	       'dotlrn_attendance::add_user_to_community',
+	       'TCL'
+	);
+
+	-- RemoveUserFromCommunity
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_attendance',
+	       'RemoveUserFromCommunity',
+	       'dotlrn_attendance::remove_user_from_community',
+	       'TCL'
+	);
+
+    -- AddPortlet
+    foo := acs_sc_impl.new_alias (
+        impl_contract_name => 'dotlrn_applet',
+        impl_name => 'dotlrn_attendance',
+        impl_operation_name => 'AddPortlet',
+        impl_alias => 'dotlrn_attendance::add_portlet',
+        impl_pl => 'TCL'
+    );
+
+    -- RemovePortlet
+    foo := acs_sc_impl.new_alias (
+        impl_contract_name => 'dotlrn_applet',
+        impl_name => 'dotlrn_attendance',
+        impl_operation_name => 'RemovePortlet',
+        impl_alias => 'dotlrn_attendance::remove_portlet',
+        impl_pl => 'TCL'
+    );
+
+    -- Clone
+    foo := acs_sc_impl.new_alias (
+        impl_contract_name => 'dotlrn_applet',
+        impl_name => 'dotlrn_attendance',
+        impl_operation_name => 'Clone',
+        impl_alias => 'dotlrn_attendance::clone',
+        impl_pl => 'TCL'
+    );
+
+    foo := acs_sc_impl.new_alias (
+        impl_contract_name => 'dotlrn_applet',
+        impl_name => 'dotlrn_attendance',
+        impl_operation_name => 'ChangeEventHandler',
+        impl_alias => 'dotlrn_attendance::change_event_handler',
+        impl_pl => 'TCL'
+    );
+
+	-- Add the binding
+	acs_sc_binding.new (
+	    contract_name => 'dotlrn_applet',
+	    impl_name => 'dotlrn_attendance'
+	);
+end;
+/
+show errors
+
+
+@dotlrn-attendance-admin-portlet-create.sql
\ No newline at end of file