[Rt-commit] r11902 - rt/branches/3.8-TESTING/html/Prefs

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Apr 25 19:59:36 2008
New Revision: 11902

Modified:
   rt/branches/3.8-TESTING/html/Prefs/Other.html

Log:
used /Widgets/Elements/BulkProcess in /Prefs/Other.html

Modified: rt/branches/3.8-TESTING/html/Prefs/Other.html
==============================================================================
--- rt/branches/3.8-TESTING/html/Prefs/Other.html	(original)
+++ rt/branches/3.8-TESTING/html/Prefs/Other.html	Fri Apr 25 19:59:36 2008
@@ -89,21 +89,14 @@
 }
 
 if ( $Update ) {
-    foreach my $option( RT->Config->Options ) {
-        my $meta = RT->Config->Meta( $option );
-        my $value = $m->comp($meta->{'Widget'} .":Process",
-            Arguments    => \%ARGS,
-            Default      => 1,
-            %{ $meta->{'WidgetArguments'} },
-            Name         => $option,
-            DefaultValue => scalar RT->Config->Get( $option ),
-        );
-        if ( defined $value ) {
-            $preferences->{ $option } = $value;
-        } else {
-            delete $preferences->{ $option };
-        }
-    }
+    $m->comp( '/Widgets/Elements/BulkProcess', Meta => {
+                map { $_ => RT->Config->Meta($_) } RT->Config->Options
+            },
+            Store => $preferences,
+            Types => [RT->Config->Options], Default => 1, Arguments => \%ARGS,
+            DefaultValue => { map { $_ => RT->Config->Get($_) }
+                RT->Config->Options
+            }, );
     $UserObj->SetPreferences( $RT::System, $preferences );
 }
 my $localize_meta = sub {