Index: openacs-4/packages/wps-portlet/wps-portlet.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wps-portlet/wps-portlet.info,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/wps-portlet/wps-portlet.info	20 Apr 2004 21:13:57 -0000	1.2
+++ openacs-4/packages/wps-portlet/wps-portlet.info	25 Aug 2008 15:54:21 -0000	1.3
@@ -7,18 +7,20 @@
     <initial-install-p>f</initial-install-p>
     <singleton-p>t</singleton-p>
     
-    <version name="2.0.2" url="http://openacs.org/repository/download/apm/wps-portlet-2.0.2.apm">
+    <version name="2.2.0a1" url="http://openacs.org/repository/download/apm/wps-portlet-2.2.0a1.apm">
         <owner url="mailto:roc@viaro.net">Rocael Hernandez</owner>
-        <provides url="wps-portlet" version="2.0.2"/>
-        <requires url="new-portal" version="0.1a"/>
-        <requires url="wp-slim" version="4.6"/>
+        <provides url="wps-portlet" version="2.2.0a1"/>
+        <requires url="new-portal" version="2.2.0a1"/>
+        <requires url="wp-slim" version="5.2.1d"/>
 
         <!-- No dependency information -->
 
         <callbacks>
         </callbacks>
         <parameters>
-        <!-- No version parameters -->
+            <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="AllowMembersToCreate"  default="1" description="Allow members in a class
+ or community to create a wimpy point presentation."/>
+
         </parameters>
 
     </version>
Index: openacs-4/packages/wps-portlet/www/wps-admin-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wps-portlet/www/wps-admin-portlet.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/wps-portlet/www/wps-admin-portlet.adp	24 Feb 2005 13:33:30 -0000	1.2
+++ openacs-4/packages/wps-portlet/www/wps-admin-portlet.adp	25 Aug 2008 15:54:21 -0000	1.3
@@ -15,5 +15,5 @@
         <small>#wps-portlet.lt_No_Presentations_Avai#</small>
 </else>
   <br>
-  <a href="@url@create-presentation">#wps-portlet.lt_Create_a_new_presenta#</a>
+  <a href="@url@add-edit-presentation">#wps-portlet.lt_Create_a_new_presenta#</a>
 
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.3
--- 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	25 Aug 2008 15:54:21 -0000	1.3
@@ -1,7 +1,6 @@
 <%
 #	@author Rocael Hernandez (roc@viaro.net)
 %>
-
 <if @shaded_p@ ne "t">
   <if @presentations:rowcount@ gt 1>
 	<%
@@ -21,10 +20,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 +52,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 +67,8 @@
 <else>
 &nbsp;
 </else>
+<if @allow_member_create_p@>
+<br/><br/><a href="@url@add-edit-presentation">#wps-portlet.lt_Create_a_new_presenta#</a>
+<br /><a href="@url@">View all presentations</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.4
--- 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	25 Aug 2008 15:54:21 -0000	1.4
@@ -29,7 +29,7 @@
     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_from_package_key \
+                    -package_key "wps-portlet" \
+                    -parameter "AllowMembersToCreate"  -default 1]