[Rt-commit] r11889 - rt/branches/3.8-TESTING/html/installation/Elements

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Apr 25 02:10:54 2008
New Revision: 11889

Modified:
   rt/branches/3.8-TESTING/html/installation/Elements/Process

Log:
refactor Process comp to be more general

Modified: rt/branches/3.8-TESTING/html/installation/Elements/Process
==============================================================================
--- rt/branches/3.8-TESTING/html/installation/Elements/Process	(original)
+++ rt/branches/3.8-TESTING/html/installation/Elements/Process	Fri Apr 25 02:10:54 2008
@@ -1,12 +1,26 @@
 <%init>
 for my $type ( @$Types ) {
-    $RT::Installer->{InstallConfig}{$type} =
-        $m->comp( $RT::Installer->{Option}{$type}{Widget} . ':Process', Name =>
-                $type, Arguments => $Arguments );
+    my $value =
+        $m->comp( $Meta->{$type}{Widget} . ':Process', Name => $type, 
+                Arguments => $Arguments, Default => $Default,
+                DefaultValue => $DefaultValue->{$type},
+                %{ $Meta->{$type}{WidgetArguments} },
+        );
+    unless ( $KeepUndef || defined $value ) {
+        delete $Store->{$type};
+    }
+    else {
+        $Store->{$type} = $value;
+    }
 }
 </%init>
 
 <%args>
 $Arguments
 $Types
+$Store
+$Meta => {}
+$KeepUndef => 0
+$Default => 0
+$DefaultValue => {}
 </%args>