Index: openacs-4/packages/wps-portlet/www/wps-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wps-portlet/www/wps-portlet.adp,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/wps-portlet/www/wps-portlet.adp	24 Feb 2005 13:33:30 -0000	1.2
+++ openacs-4/packages/wps-portlet/www/wps-portlet.adp	5 Sep 2005 23:23:56 -0000	1.2.2.1
@@ -21,10 +21,12 @@
 		<tr>
 	</if>
 	<if @one_instance_p@>
+             <ul>
       		<li>
 	 	<a href="@presentations.url@display/@presentations.pres_item_id@/">@presentations.pres_title@</a> 
 		&nbsp;[&nbsp;<a href="@presentations.url@presentation-print-view.tcl?item_id=@presentations.pres_item_id@">#wps-portlet.Print_View#</a>&nbsp;]
 		</li>
+              </ul>
 	</if>
    	<else>
 		<if @presentations.rownum@ odd>
@@ -51,10 +53,12 @@
   </if>
   <else>
  	<if @presentations:rowcount@ eq 1>
+            <ul>
       		<li>
 	 	<a href="@presentation_url@display/@presentation_id@/"> @presentation_name@ </a>
 		&nbsp;[&nbsp;<a href="@presentation_url@presentation-print-view.tcl?item_id=@presentation_id@">#wps-portlet.Print_View#</a>&nbsp;]
 		</li>
+          </ul>
 	</if>
 	<else>
         <small>#wps-portlet.lt_No_Presentations_Avai#</small>
@@ -64,6 +68,7 @@
 <else>
 &nbsp;
 </else>
+<if @allow_member_create_p@>
+<br/><br/><a href="@url@add-edit-presentation">#wps-portlet.lt_Create_a_new_presenta#</a>
+</if>
 
-
-
Index: openacs-4/packages/wps-portlet/www/wps-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wps-portlet/www/wps-portlet.tcl,v
diff -u -r1.3 -r1.3.2.1
--- openacs-4/packages/wps-portlet/www/wps-portlet.tcl	1 Mar 2005 00:01:47 -0000	1.3
+++ openacs-4/packages/wps-portlet/www/wps-portlet.tcl	5 Sep 2005 23:23:56 -0000	1.3.2.1
@@ -29,7 +29,6 @@
     set presentation_id [lindex [array get {presentations:1} pres_item_id] 1]
 
 }
+set url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0]
+set allow_member_create_p [parameter::get -parameter "AllowMembersToCreate"  -default 1]
 
-
-
-