Index: openacs-4/packages/dotlrn-expense-tracking/dotlrn-expense-tracking.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-expense-tracking/dotlrn-expense-tracking.info,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-expense-tracking/dotlrn-expense-tracking.info	31 May 2005 22:05:38 -0000	1.1
@@ -0,0 +1,23 @@
+<?xml version="1.0"?>
+<!-- Generated by the OpenACS Package Manager -->
+
+<package key="dotlrn-expense-tracking" url="http://openacs.org/repository/apm/packages/dotlrn-expense-tracking" type="apm_application">
+    <package-name>dotLRN Expense Tracking Applet</package-name>
+    <pretty-plural>dotLRn - Expense Tracking Applets</pretty-plural>
+    <initial-install-p>f</initial-install-p>
+    <singleton-p>t</singleton-p>
+    
+    <version name="0.1d" url="http://openacs.org/repository/download/apm/dotlrn-expense-tracking-0.1d.apm">
+        <owner url="mailto:hamilton.chua@gmail.com">Hamilton Chua</owner>
+        <summary>Expense Tracking Package</summary>
+
+        <!-- No dependency information -->
+        <provides url="dotlrn-expense-tracking" version="0.1d"/>
+        <requires url="dotlrn" version="1.0"/>
+
+        <parameters>
+        <!-- No version parameters -->
+        </parameters>
+
+    </version>
+</package>
Index: openacs-4/packages/dotlrn-expense-tracking/sql/postgresql/dotlrn-expense-tracking-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-expense-tracking/sql/postgresql/dotlrn-expense-tracking-create.sql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-expense-tracking/sql/postgresql/dotlrn-expense-tracking-create.sql	31 May 2005 22:05:38 -0000	1.1
@@ -0,0 +1,133 @@
+
+-- create the implementation
+
+select acs_sc_impl__new (
+		'dotlrn_applet',
+		'dotlrn_expense_tracking',
+		'dotlrn_expense_tracking'
+);
+
+
+-- add all the hooks
+
+-- GetPrettyName
+select acs_sc_impl_alias__new (
+	       'dotlrn_applet',
+	       'dotlrn_expense_tracking',
+	       'GetPrettyName',
+	       'dotlrn_expense_tracking::get_pretty_name',
+	       'TCL'
+);
+
+-- AddApplet
+select acs_sc_impl_alias__new (
+	       'dotlrn_applet',
+	       'dotlrn_expense_tracking',
+	       'AddApplet',
+	       'dotlrn_expense_tracking::add_applet',
+	       'TCL'
+);
+
+-- RemoveApplet
+select acs_sc_impl_alias__new (
+	       'dotlrn_applet',
+	       'dotlrn_expense_tracking',
+	       'RemoveApplet',
+	       'dotlrn_expense_tracking::remove_applet',
+	       'TCL'
+);
+
+-- AddAppletToCommunity
+select acs_sc_impl_alias__new (
+	       'dotlrn_applet',
+	       'dotlrn_expense_tracking',
+	       'AddAppletToCommunity',
+	       'dotlrn_expense_tracking::add_applet_to_community',
+	       'TCL'
+);
+
+-- RemoveAppletFromCommunity
+select acs_sc_impl_alias__new (
+	       'dotlrn_applet',
+	       'dotlrn_expense_tracking',
+	       'RemoveAppletFromCommunity',
+	       'dotlrn_expense_tracking::remove_applet_from_community',
+	       'TCL'
+);
+
+-- AddUser
+select acs_sc_impl_alias__new (
+	       'dotlrn_applet',
+	       'dotlrn_expense_tracking',
+	       'AddUser',
+	       'dotlrn_expense_tracking::add_user',
+	       'TCL'
+);
+
+-- RemoveUser
+select acs_sc_impl_alias__new (
+	       'dotlrn_applet',
+	       'dotlrn_expense_tracking',
+	       'RemoveUser',
+	       'dotlrn_expense_tracking::remove_user',
+	       'TCL'
+);
+
+-- AddUserToCommunity
+select acs_sc_impl_alias__new (
+	       'dotlrn_applet',
+	       'dotlrn_expense_tracking',
+	       'AddUserToCommunity',
+	       'dotlrn_expense_tracking::add_user_to_community',
+	       'TCL'
+);
+
+-- RemoveUserFromCommunity
+select acs_sc_impl_alias__new (
+	       'dotlrn_applet',
+	       'dotlrn_expense_tracking',
+	       'RemoveUserFromCommunity',
+	       'dotlrn_expense_tracking::remove_user_from_community',
+	       'TCL'
+);
+
+-- AddPortlet
+select acs_sc_impl_alias__new (
+        'dotlrn_applet',
+        'dotlrn_expense_tracking',
+        'AddPortlet',
+        'dotlrn_expense_tracking::add_portlet',
+        'TCL'
+);
+
+-- RemovePortlet
+select acs_sc_impl_alias__new (
+        'dotlrn_applet',
+        'dotlrn_expense_tracking',
+        'RemovePortlet',
+        'dotlrn_expense_tracking::remove_portlet',
+        'TCL'
+);
+
+-- Clone
+select acs_sc_impl_alias__new (
+        'dotlrn_applet',
+        'dotlrn_expense_tracking',
+        'Clone',
+        'dotlrn_expense_tracking::clone',
+        'TCL'
+);
+
+select acs_sc_impl_alias__new (
+        'dotlrn_applet',
+        'dotlrn_expense_tracking',
+        'ChangeEventHandler',
+        'dotlrn_expense_tracking::change_event_handler',
+        'TCL'
+);
+
+-- Add the binding
+select acs_sc_binding__new (
+	    'dotlrn_applet',
+	    'dotlrn_expense_tracking'
+);
Index: openacs-4/packages/dotlrn-expense-tracking/sql/postgresql/dotlrn-expense-tracking-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-expense-tracking/sql/postgresql/dotlrn-expense-tracking-drop.sql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-expense-tracking/sql/postgresql/dotlrn-expense-tracking-drop.sql	31 May 2005 22:05:38 -0000	1.1
@@ -0,0 +1,100 @@
+
+-- delete the implementation
+
+select acs_sc_impl__delete (
+		'dotlrn_applet',
+		'dotlrn_expense_tracking'
+);
+
+
+
+
+-- GetPrettyName
+select acs_sc_impl_alias__delete (
+	       'dotlrn_applet',
+	       'dotlrn_expense_tracking',
+	       'GetPrettyName'
+);
+
+-- AddApplet
+select acs_sc_impl_alias__delete (
+	       'dotlrn_applet',
+	       'dotlrn_expense_tracking',
+	       'AddApplet'
+);
+
+-- RemoveApplet
+select acs_sc_impl_alias__delete (
+	       'dotlrn_applet',
+	       'dotlrn_expense_tracking',
+	       'RemoveApplet'
+);
+
+-- AddAppletToCommunity
+select acs_sc_impl_alias__delete (
+	       'dotlrn_applet',
+	       'dotlrn_expense_tracking',
+	       'AddAppletToCommunity'
+);
+
+-- RemoveAppletFromCommunity
+select acs_sc_impl_alias__delete (
+	       'dotlrn_applet',
+	       'dotlrn_expense_tracking',
+	       'RemoveAppletFromCommunity'
+);
+
+-- AddUser
+select acs_sc_impl_alias__delete (
+	       'dotlrn_applet',
+	       'dotlrn_expense_tracking',
+	       'AddUser'
+);
+
+-- RemoveUser
+select acs_sc_impl_alias__delete (
+	       'dotlrn_applet',
+	       'dotlrn_expense_tracking',
+	       'RemoveUser'
+);
+
+-- AddUserToCommunity
+select acs_sc_impl_alias__delete (
+	       'dotlrn_applet',
+	       'dotlrn_expense_tracking',
+	       'AddUserToCommunity'
+);
+
+-- RemoveUserFromCommunity
+select acs_sc_impl_alias__delete (
+	       'dotlrn_applet',
+	       'dotlrn_expense_tracking',
+	       'RemoveUserFromCommunity'
+);
+
+-- AddPortlet
+select acs_sc_impl_alias__delete (
+        'dotlrn_applet',
+        'dotlrn_expense_tracking',
+        'AddPortlet'
+);
+
+-- RemovePortlet
+select acs_sc_impl_alias__delete (
+        'dotlrn_applet',
+        'dotlrn_expense_tracking',
+        'RemovePortlet'
+);
+
+-- Clone
+select acs_sc_impl_alias__delete (
+        'dotlrn_applet',
+        'dotlrn_expense_tracking',
+        'Clone'
+);
+
+-- Add the binding
+select acs_sc_binding__delete (
+	    'dotlrn_applet',
+	    'dotlrn_expense_tracking'
+);
Index: openacs-4/packages/dotlrn-expense-tracking/tcl/dotlrn-expense-tracking-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-expense-tracking/tcl/dotlrn-expense-tracking-procs-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-expense-tracking/tcl/dotlrn-expense-tracking-procs-postgresql.xql	31 May 2005 22:05:38 -0000	1.1
@@ -0,0 +1,16 @@
+<?xml version="1.0"?>
+
+<queryset>
+<rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="dotlrn_expense_tracking::clone.call_expense_tracking_clone">
+  <querytext>
+    select expense_tracking__clone ( 
+        :old_package_id,
+        :new_package_id
+      );
+  </querytext>
+</fullquery>
+
+
+</queryset>
Index: openacs-4/packages/dotlrn-expense-tracking/tcl/dotlrn-expense-tracking-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-expense-tracking/tcl/dotlrn-expense-tracking-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-expense-tracking/tcl/dotlrn-expense-tracking-procs.tcl	31 May 2005 22:05:38 -0000	1.1
@@ -0,0 +1,175 @@
+ad_library {
+    
+    Procs to set up the dotLRN expense tracking applet
+    
+    @author Hamilton Chua (hamilton.chua@gmail.com)
+    @version $Id: dotlrn-expense-tracking-procs.tcl,v 1.1 2005/05/31 22:05:38 hamiltonc Exp $
+
+}
+
+namespace eval dotlrn_expense_tracking {
+
+    ad_proc -public get_pretty_name {
+    } {
+        get the pretty name
+    } {
+        return "Expense Tracking"
+    }
+
+    ad_proc -public applet_key {} {
+        return "dotlrn_expense_tracking"
+    }
+
+    ad_proc -public my_package_key {
+    } {
+        What's my package key?
+    } {
+        return "dotlrn-expense-tracking"
+    }
+
+    ad_proc -public package_key {
+    } {
+        What package is associated with this applet?
+    } {
+        return "expense-tracking"
+    }
+
+    ad_proc -public add_applet {
+    } {
+        Add the expense tracking applet to dotlrn - one time init - must be repeatable!
+    } {
+        dotlrn_applet::add_applet_to_dotlrn -applet_key [applet_key] -package_key [my_package_key]
+    }
+
+    ad_proc -public remove_applet {
+        community_id
+        package_id
+    } {
+        remove the applet
+    } {
+        ad_return_complaint 1 "[applet_key] remove_applet not implimented!"
+    }
+
+    ad_proc -public add_applet_to_community {
+        community_id
+    } {
+        Add the expense tracking applet to a specifc community
+    } {
+        set portal_id [dotlrn_community::get_portal_id \
+                           -community_id $community_id
+        ]
+
+        # create the package instance (all in one, I've mounted it)
+        set package_id [dotlrn::instantiate_and_mount \
+                            $community_id \
+                            [package_key]
+        ]
+        # return the package_id
+        return $package_id
+    }
+
+    ad_proc -public remove_applet_from_community {
+        community_id
+    } {
+        Drops the expense tracking applet from the given community
+    } {
+        ad_return_complaint 1 "[applet_key] remove_applet_from_community not implimented!"
+    }
+
+    ad_proc -public add_user {
+        user_id
+    } {
+        For one time user-specfic init
+    } {
+        # noop
+    }
+
+    ad_proc -public remove_user {
+        user_id
+    } {
+        Remove the user from dotlrn.
+    } {
+        # noop
+    }
+
+    ad_proc -public add_user_to_community {
+        community_id
+        user_id
+    } {
+        Called when a user is added to a specific dotlrn community
+    } {
+	# noop
+    }
+
+    ad_proc -public remove_user_from_community {
+        community_id
+        user_id
+    } {
+        Remove a user from a community
+    } {
+	# noop
+    }
+
+    ad_proc -public add_portlet {
+        portal_id
+    } {
+        A helper proc to add the underlying portlet to the given portal.
+
+        @portal_id
+    } {
+	# noop
+    }
+
+    ad_proc -public add_portlet_helper {
+        portal_id
+        args
+    } {
+        This does the call to add the portlet to the given portal.
+        Params for the portlet are set by the calllers.
+
+        @param portal_id
+        @param args An ns_set
+    } {
+	#noop
+    }
+
+    ad_proc -public remove_portlet {
+        portal_id
+        args
+    } {
+        A helper proc to remove the underlying portlet from the given portal.
+
+        @param portal_id
+        @param args An ns_set
+    } {
+	#noop
+    }
+
+    ad_proc -public clone {
+        old_community_id
+        new_community_id
+    } {
+        Clone this applet's content from the old community to the new one
+    } {
+        ns_log notice "Cloning: [applet_key]"
+        set new_package_id [add_applet_to_community $new_community_id]
+        set old_package_id [dotlrn_community::get_applet_package_id \
+            -community_id $old_community_id \
+            -applet_key [applet_key]
+        ]
+
+        db_exec_plsql call_expense_tracking_clone {}
+        return $new_package_id
+    }
+
+    ad_proc -public change_event_handler {
+        community_id
+        event
+        old_value
+        new_value
+    } { 
+        listens for the following events: 
+    } { 
+    }   
+
+}