Index: openacs-4/contrib/packages/simulation/www/object-edit.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/Attic/object-edit.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/simulation/www/object-edit.adp	14 Oct 2003 13:58:03 -0000	1.1
+++ openacs-4/contrib/packages/simulation/www/object-edit.adp	29 Oct 2003 15:29:08 -0000	1.2
@@ -2,5 +2,17 @@
   <property name="title">@page_title;noquote@</property>
   <property name="context">@context;noquote@</property>
   <property name="focus">object.title</property>
+  <property name="header_stuff">
+    <script language="javascript">
+        function FormRefresh(form_name) {
+            if (document.forms == null) return;
+            if (document.forms[form_name] == null) return;
+            if (document.forms[form_name].elements["__refreshing_p"] == null) return;
 
+            document.forms[form_name].elements["__refreshing_p"].value = 1;
+            document.forms[form_name].submit();
+        }
+    </script>
+  </property>
+
 <formtemplate id="object"></formtemplate>
Index: openacs-4/contrib/packages/simulation/www/object-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/Attic/object-edit.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/contrib/packages/simulation/www/object-edit.tcl	29 Oct 2003 12:57:13 -0000	1.11
+++ openacs-4/contrib/packages/simulation/www/object-edit.tcl	29 Oct 2003 15:29:08 -0000	1.12
@@ -51,11 +51,27 @@
 ad_form -name object -cancel_url object-list -form {
     {item_id:key}
     {parent_id:integer(hidden),optional}
-    {content_type:text(radio)
-        {label "Type"}
-        {options {[simulation::object_type::get_options]}}
-        {mode "display"}
+}
+
+if { [ad_form_new_p -key item_id] } {
+    ad_form -extend -name object -form {
+        {content_type:text(radio)
+            {label "Type"}
+            {options {[simulation::object_type::get_options]}}
+            {html {onChange "javascript:FormRefresh('object');"}}
+        }
     }
+} else {
+    ad_form -extend -name object -form {
+        {content_type:text(select)
+            {label "Type"}
+            {options {[simulation::object_type::get_options]}}
+            {mode display}
+        }
+    }
+}
+
+ad_form -extend -name object -form {
     {title:text
         {label "Title"}
         {html {size 50}}
@@ -258,7 +274,8 @@
 
     set attributes [list]
     foreach attribute_name $attr_names {
-        lappend attributes [list $attribute_name [set attr__${content_type}__${attribute_name}]]
+        set value [set attr__${content_type}__${attribute_name}]
+        lappend attributes [list $attribute_name ]
     }
 
 
Index: openacs-4/packages/simulation/www/object-edit.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/Attic/object-edit.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/simulation/www/object-edit.adp	14 Oct 2003 13:58:03 -0000	1.1
+++ openacs-4/packages/simulation/www/object-edit.adp	29 Oct 2003 15:29:08 -0000	1.2
@@ -2,5 +2,17 @@
   <property name="title">@page_title;noquote@</property>
   <property name="context">@context;noquote@</property>
   <property name="focus">object.title</property>
+  <property name="header_stuff">
+    <script language="javascript">
+        function FormRefresh(form_name) {
+            if (document.forms == null) return;
+            if (document.forms[form_name] == null) return;
+            if (document.forms[form_name].elements["__refreshing_p"] == null) return;
 
+            document.forms[form_name].elements["__refreshing_p"].value = 1;
+            document.forms[form_name].submit();
+        }
+    </script>
+  </property>
+
 <formtemplate id="object"></formtemplate>
Index: openacs-4/packages/simulation/www/object-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/Attic/object-edit.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/simulation/www/object-edit.tcl	29 Oct 2003 12:57:13 -0000	1.11
+++ openacs-4/packages/simulation/www/object-edit.tcl	29 Oct 2003 15:29:08 -0000	1.12
@@ -51,11 +51,27 @@
 ad_form -name object -cancel_url object-list -form {
     {item_id:key}
     {parent_id:integer(hidden),optional}
-    {content_type:text(radio)
-        {label "Type"}
-        {options {[simulation::object_type::get_options]}}
-        {mode "display"}
+}
+
+if { [ad_form_new_p -key item_id] } {
+    ad_form -extend -name object -form {
+        {content_type:text(radio)
+            {label "Type"}
+            {options {[simulation::object_type::get_options]}}
+            {html {onChange "javascript:FormRefresh('object');"}}
+        }
     }
+} else {
+    ad_form -extend -name object -form {
+        {content_type:text(select)
+            {label "Type"}
+            {options {[simulation::object_type::get_options]}}
+            {mode display}
+        }
+    }
+}
+
+ad_form -extend -name object -form {
     {title:text
         {label "Title"}
         {html {size 50}}
@@ -258,7 +274,8 @@
 
     set attributes [list]
     foreach attribute_name $attr_names {
-        lappend attributes [list $attribute_name [set attr__${content_type}__${attribute_name}]]
+        set value [set attr__${content_type}__${attribute_name}]
+        lappend attributes [list $attribute_name ]
     }