Index: openacs-4/packages/static-portlet/tcl/static-portal-content-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/tcl/static-portal-content-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/static-portlet/tcl/static-portal-content-procs.tcl	12 May 2002 18:15:04 -0000	1.7
+++ openacs-4/packages/static-portlet/tcl/static-portal-content-procs.tcl	13 May 2002 06:00:07 -0000	1.8
@@ -69,6 +69,25 @@
         }
     }
 
+    ad_proc -public remove_from_portal {
+        {-content_id:required}
+        {-portal_id:required}
+    } {
+        ad_return_complaint 1 "static_portal_content::remove_from_portal not implimented"
+    }
+
+    ad_proc -public remove_all_from_portal {
+        {-portal_id:required}
+    } {
+        db_transaction {
+            # should remove all of 'em
+            set element_id [portal::remove_element \
+                    -portal_id $portal_id \
+                    -portlet_name [static_portlet::get_my_name]
+            ]
+        }
+    }
+
     ad_proc -public update { 
         {-content_id:required}
         {-content:required}