Index: openacs-4/packages/expense-tracking/lib/cp-expense-tracking.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/expense-tracking/lib/cp-expense-tracking.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/expense-tracking/lib/cp-expense-tracking.adp	19 Jun 2005 08:09:18 -0000	1.1
@@ -0,0 +1,5 @@
+
+<listtemplate name="expenses"></listtemplate>
+<ul>
+	<li><a href="@expense_tracking_url@expense-tracking/admin/addedit-expense?return_url=@current_url@">Add Expense</a>
+</ul>
\ No newline at end of file
Index: openacs-4/packages/expense-tracking/lib/cp-expense-tracking.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/expense-tracking/lib/cp-expense-tracking.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/expense-tracking/lib/cp-expense-tracking.tcl	19 Jun 2005 08:09:18 -0000	1.1
@@ -0,0 +1,47 @@
+
+# where are we
+set current_url [ad_conn url]?[ad_conn query]
+
+if {![info exists package_id]} {
+    set package_id [ad_conn package_id]
+}
+
+if {![info exists community_id]} {
+    set community_id [dotlrn_community::get_community_id]
+}
+
+# where id dotlrn-ecommerce mounted
+set expense_tracking_url [dotlrn_community::get_community_url $community_id]
+
+template::list::create \
+    -name expenses \
+    -multirow expenses \
+    -pass_properties { expense_tracking_url current_url} \
+    -key exp_id \
+    -elements {
+	exp_date {
+		label "Date"
+	}
+	exp_expense {
+		label "Expense"
+	}
+	exp_amount {
+		label "Amount"
+		aggregate "sum"
+		aggregate_label "Total :  $"
+		display_template { $ @expenses.exp_amount;noquote@ }
+	}
+	action {
+		label "Action"
+		display_template { <a href="@expense_tracking_url@/expense-tracking/admin/addedit-expense?exp_id=@expenses.exp_id@&return_url=@current_url@">Edit</a> | <a href="@expense_tracking_url@/expense-tracking/admin/delete-expense?exp_id=@expenses.exp_id@&return_url=@current_url@">Delete</a>}
+	}
+    } -orderby {
+	exp_date { orderby exp_date }
+	exp_amount { orderby exp_amount }
+    } -no_data { No expenses for this class. }
+
+# build the multirow
+
+set orderby_clause "[template::list::orderby_clause -name expenses -orderby]"
+
+db_multirow expenses get_expenses { }
Index: openacs-4/packages/expense-tracking/lib/cp-expense-tracking.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/expense-tracking/lib/cp-expense-tracking.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/expense-tracking/lib/cp-expense-tracking.xql	19 Jun 2005 08:09:18 -0000	1.1
@@ -0,0 +1,12 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="get_expenses">
+      <querytext>
+	select exp_id, exp_expense, to_char(exp_date,'MM-DD-YYYY') as exp_date, exp_amount, exp_exported from expenses where community_id =:community_id $orderby_clause
+      </querytext>
+</fullquery>
+
+</queryset>
\ No newline at end of file