Index: openacs-4/packages/cms/www/modules/types/widget-register-1.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/types/widget-register-1.tcl,v
diff -u -N -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/cms/www/modules/types/widget-register-1.tcl	13 Feb 2003 22:58:16 -0000	1.4.2.1
+++ openacs-4/packages/cms/www/modules/types/widget-register-1.tcl	21 Feb 2003 11:28:33 -0000	1.4.2.2
@@ -16,42 +16,41 @@
 set form_widgets [db_list_of_lists get_form_widgets "" ]
 
 element create widget_register widget \
-	-datatype keyword \
-	-widget select \
-	-options $form_widgets \
-	-label "Form Widget"
+    -datatype keyword \
+    -widget select \
+    -options $form_widgets \
+    -label "Form Widget"
 
 element create widget_register is_required \
-	-datatype keyword \
-	-widget radio \
-	-label "Is Required?" \
-	-options { {Yes t} {No f} }
+    -datatype keyword \
+    -widget radio \
+    -label "Is Required?" \
+    -options { {Yes t} {No f} }
 
 wizard submit widget_register -buttons { next }
 
 
-
-
 if { [form is_request widget_register] } {
 
     db_1row get_attr_info ""
 
     db_0or1row get_reg_widget ""
 
     element set_properties widget_register content_type_pretty \
-	    -value $content_type_pretty
+        -value $content_type_pretty
     element set_properties widget_register attribute_name_pretty \
-	    -value $attribute_name_pretty
+        -value $attribute_name_pretty
+
     element set_properties widget_register attribute_name \
-	    -value $attribute_name
+        -value $attribute_name
     element set_properties widget_register content_type \
-	    -value $content_type
+        -value $content_type
 
     if { ![template::util::is_nil registered_widget] } {
 	element set_properties widget_register widget \
-		-values $registered_widget
+            -values $registered_widget
 	element set_properties widget_register is_required \
-		-values $is_required
+            -values $is_required
     }
 }
 
@@ -62,7 +61,7 @@
 if { [form is_valid widget_register] } {
 
     form get_values widget_register \
-	    widget is_required attribute_name content_type
+        widget is_required attribute_name content_type
 
     db_transaction {
 
@@ -82,4 +81,12 @@
     
     wizard set_param widget $widget
     wizard forward
+} else {
+
+    db_1row get_attr_info ""
+
+    element set_properties widget_register content_type_pretty \
+        -value $content_type_pretty
+    element set_properties widget_register attribute_name_pretty \
+        -value $attribute_name_pretty
 }