Index: openacs-4/packages/forums/tcl/forums-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-install-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/forums/tcl/forums-install-procs.tcl	26 Jan 2005 00:47:37 -0000	1.3
+++ openacs-4/packages/forums/tcl/forums-install-procs.tcl	18 Mar 2005 20:39:01 -0000	1.4
@@ -43,6 +43,7 @@
     set url [apm_required_attribute_value $node url]
     set name [apm_required_attribute_value $node name]
     set presentation [apm_attribute_value -default "flat" $node presentation]
+    set id [apm_attribute_value -default "" $node id]
     set posting_policy [apm_attribute_value -default "open" $node posting-policy]
 
 
@@ -51,6 +52,14 @@
 
     set package_id [site_node::get_element -url $url -element package_id]
 
-    forum::new -name $name -charter $charter -presentation_type $presentation \
-        -posting_policy $posting_policy -package_id $package_id
+    set forum_id [forum::new \
+                      -name $name \
+                      -charter $charter \
+                      -presentation_type $presentation \
+                      -posting_policy $posting_policy \
+                      -package_id $package_id]
+
+    if {![string equal $id ""]} {
+        set ::install::xml::ids($id) $forum_id
+    }
 }