Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.42 -r1.43
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	1 Nov 2001 23:09:40 -0000	1.42
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	5 Nov 2001 19:07:55 -0000	1.43
@@ -626,13 +626,15 @@
 		portal::move_elements \
 			$portal_id $element_id_list $target_region 
 	    } else {
-		ns_returnredirect "portal-config.tcl?[export_url_vars portal_id]"
+		ns_returnredirect \
+			"portal-config.tcl?[export_url_vars portal_id]"
 	    }
 	} 
 	"add a new element here" {
-
-
-	    ad_return_complaint 1 "Not implimented yet: op  = $op, target_region = $target_region"
+	    db_dml unhide_element \
+		    "update portal_element_map 
+	            set state = 'full' 
+	            where element_id = :element_id"
 	}
 	"remove all checked" {
 
@@ -644,13 +646,15 @@
 	    }
 
 	    if {! [empty_string_p $element_id_list] } {
-		
 		foreach element_id $element_id_list {
-		    # XXX fixme
-		    remove_element $element_id
+		    db_dml hide_element \
+			    "update portal_element_map 
+		             set state =  'hidden' 
+		             where element_id = :element_id"
 		}
 	    } else {
-		ns_returnredirect "portal-config.tcl?[export_url_vars portal_id]"
+		ns_returnredirect \
+			"portal-config.tcl?[export_url_vars portal_id]"
 	    }
 	}
 	"revert to default" {