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.44 -r1.45
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	5 Nov 2001 19:48:24 -0000	1.44
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	5 Nov 2001 20:59:39 -0000	1.45
@@ -629,11 +629,22 @@
 			"portal-config.tcl?[export_url_vars portal_id]"
 	    }
 	} 
-	"add a new element here" {
-	    db_dml unhide_element \
-		    "update portal_element_map 
-	            set state = 'full' 
-	            where element_id = :element_id"
+	"add here" {
+
+	    regexp {[&]*element_id=(\d+)} $query "" element_id
+
+	    db_transaction {
+		db_dml set_region_element \
+			"update portal_element_map 
+		set region = :target_region
+		where element_id = :element_id"
+		
+		db_dml unhide_element \
+			"update portal_element_map 
+		set state = 'full' 
+		where element_id = :element_id"
+	    }
+		
 	}
 	"remove all checked" {