Index: openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl	22 Jun 2005 07:33:05 -0000	1.5
+++ openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl	23 Jun 2005 12:30:30 -0000	1.6
@@ -229,7 +229,7 @@
 lappend actions "[_ dotlrn-ecommerce.View_All]" ? "[_ dotlrn-ecommerce.View_All]"
 
 if { $admin_p } {
-    lappend actions "[_ dotlrn-ecommerce.Add_Course]" admin/course-add-edit "[_ dotlrn-ecommerce.View_All]"
+    lappend actions "[_ dotlrn-ecommerce.Add_Course]" admin/course-add-edit "[_ dotlrn-ecommerce.Add_Course]"
 }
 
 template::list::create \
@@ -286,7 +286,7 @@
 		<if @course_list.prices@ not nil><br />@course_list.prices;noquote@</if>
 		<br />@course_list.attendees;noquote@ participant<if @course_list.attendees@ gt 1>s</if>
 		<if @course_list.available_slots@ not nil and @course_list.available_slots@ gt 0>,<br />@course_list.available_slots;noquote@ available</if>
-
+		</if>
 	    }
 	    html { width 40% }
 	}
@@ -307,14 +307,16 @@
 	actions {
 	    label ""
 	    display_template {
-		
-		<if @course_list.member_p@ eq 0>
+		<if @course_list.member_p@ eq 0 and @course_list.pending_p@ eq 0>
 		<a href="@course_list.shopping_cart_add_url;noquote@" class="button">[_ dotlrn-ecommerce.add_to_cart]</a>
 		</if>
-
+		
 		<if @admin_p@ eq 1>
 		<a href="@course_list.section_edit_url;noquote@" class="button">[_ dotlrn-ecommerce.edit]</a>
 		</if>
+
+		<if @course_list.pending_p@ eq 1>
+		<font color="red">(application pending)</font>
 		</if>
 	    }
 	    html { width 40% nowrap }
@@ -341,7 +343,7 @@
 
 set grade_tree_id [parameter::get -package_id [ad_conn package_id] -parameter GradeCategoryTree -default 0]
 
-db_multirow -extend { category_name community_url course_edit_url section_add_url section_edit_url course_grades section_grades sections_url member_p sessions instructors prices shopping_cart_add_url attendees available_slots } course_list get_courses { } {
+db_multirow -extend { category_name community_url course_edit_url section_add_url section_edit_url course_grades section_grades sections_url member_p sessions instructors prices shopping_cart_add_url attendees available_slots pending_p } course_list get_courses { } {
 #     set mapped [category::get_mapped_categories $course_id]
 
 #     foreach element $mapped {
@@ -356,9 +358,10 @@
     set section_edit_url [export_vars -base admin/section-add-edit { course_id section_id return_url }]
     set sections_url [export_vars -base sections { course_id }]
 
-    set shopping_cart_add_url [export_vars -base [apm_package_url_from_key "ecommerce"]shopping-cart-add { product_id }]
+    set shopping_cart_add_url [export_vars -base ecommerce/shopping-cart-add { user_id product_id }]
 
     set member_p [dotlrn_community::member_p $community_id $user_id]
+    set pending_p [dotlrn_community::member_pending_p -community_id $community_id -user_id $user_id]
     
     set section_grades ""
     set course_grades ""
Index: openacs-4/packages/dotlrn-ecommerce/www/admin/applications.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/applications.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/applications.adp	23 Jun 2005 12:30:30 -0000	1.1
@@ -0,0 +1,5 @@
+<master>
+  <property name="title">Pending Applications</property>
+  <property name="context">{Pending Applications}</property>
+
+  <listtemplate name="applications"></listtemplate>
\ No newline at end of file
Index: openacs-4/packages/dotlrn-ecommerce/www/admin/applications.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/applications.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/applications.tcl	23 Jun 2005 12:30:30 -0000	1.1
@@ -0,0 +1,50 @@
+# packages/dotlrn-ecommerce/www/admin/applications.tcl
+
+ad_page_contract {
+    
+    
+    
+    @author Roel Canicula (roelmc@pldtdsl.net)
+    @creation-date 2005-06-23
+    @arch-tag: 47e50b22-750a-4337-98ed-747058310624
+    @cvs-id $Id: applications.tcl,v 1.1 2005/06/23 12:30:30 roelc Exp $
+} {
+
+} -properties {
+} -validate {
+} -errors {
+}
+
+template::list::create \
+    -name "applications" \
+    -multirow "applications" \
+    -elements {
+	community_name {
+	    label "Section"
+	}
+	person_name {
+	    label "Participant"
+	}
+	member_state {
+	    label "Member State"
+	}
+	assessment_result {
+	    label "Application"
+	    display_template {
+		&lt;link to asessment result&gt;
+	    }
+	}
+	actions {
+	    label ""
+	    display_template {
+		<a href="#" class="button">Approve</a>
+	    }
+	}
+    }
+
+db_multirow -extend { } applications applications {
+    select pretty_name as community_name, person__name(user_id) as person_name, member_state
+    from dotlrn_member_rels_full r, dotlrn_communities_all c
+    where r.community_id = c.community_id
+    and member_state = 'needs approval'
+}
\ No newline at end of file
Index: openacs-4/packages/dotlrn-ecommerce/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/index.adp,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-ecommerce/www/admin/index.adp	19 Jun 2005 06:05:07 -0000	1.3
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/index.adp	23 Jun 2005 12:30:30 -0000	1.4
@@ -23,6 +23,7 @@
 <li>Instructors - <a href=@instructor_community_url@>Community</a> <a href=@instructor_community_url@/members>List</a>
 <li>Assistant Instuctors - <a href=@assistant_community_url@>Community</a> <a href=@assistant_community_url@/members>List</a>
 <li><a href="/dotlrn-ecommerce/Administration/categories/cadmin">Manage Category Trees</a>
+<li><a href="applications">Pending Applications</a>
 
 </ul>