Index: openacs-4/packages/simulation/www/citybuild/object-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/citybuild/object-edit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/simulation/www/citybuild/object-edit.tcl	13 Nov 2003 14:55:26 -0000	1.2
+++ openacs-4/packages/simulation/www/citybuild/object-edit.tcl	14 Nov 2003 11:40:35 -0000	1.3
@@ -15,6 +15,7 @@
     # Get data for existing object
     array set item_info [bcms::item::get_item -item_id $item_id -revision live]
     item::get_revision_content $item_info(revision_id)
+
     if {! [info exists content(text)] } {
         set content(text) ""
     }
@@ -640,6 +641,7 @@
         from   cr_item_rels
         where  item_id = :item_id
     } {
+        ns_log Notice "pm debug $related_object_id $relation_tag"
         set "rel__${relation_tag}__${order_n}" $related_object_id
     }
     
@@ -678,7 +680,7 @@
             delete from cr_item_rels
             where  item_id = :item_id
         }
-        
+
         foreach elm $rel_elements {
             # LARS HACK ALERT: This isn't a particularly pretty way to find all the related objects in the form
             regexp {__(.+)__} $elm match relation_tag