[Rt-commit] r7758 - rt/branches/3.7-EXPERIMENTAL-RTIR-2.4/html/Admin/Users

[ruz at bestpractical.com]

Author: ruz
Date: Thu May  3 17:24:28 2007
New Revision: 7758

Modified:
   rt/branches/3.7-EXPERIMENTAL-RTIR-2.4/html/Admin/Users/MyRT.html

Log:
* option is a scalar that is an array ref, use @{...}

Modified: rt/branches/3.7-EXPERIMENTAL-RTIR-2.4/html/Admin/Users/MyRT.html
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-RTIR-2.4/html/Admin/Users/MyRT.html	(original)
+++ rt/branches/3.7-EXPERIMENTAL-RTIR-2.4/html/Admin/Users/MyRT.html	Thu May  3 17:24:28 2007
@@ -36,9 +36,9 @@
 my ($default_portlets) = RT::System->new($session{'CurrentUser'})->Attributes->Named('HomepageSettings');
 my $portlets  = $UserObj->Preferences('HomepageSettings', $default_portlets ? $default_portlets->Content  : {});
 
-my %allowed_components = map {$_ => 1} RT->Config->Get('HomepageComponents');
-my @items;
+my %allowed_components = map {$_ => 1} @{ RT->Config->Get('HomepageComponents') };
 
+my @items;
 push @items, map {["component-$_", $_]} sort keys %allowed_components;
 
 my $sys = RT::System->new( RT::CurrentUser->new($UserObj) );
@@ -49,17 +49,17 @@
 
 for my $object (@objs) {
     for ($m->comp("/Search/Elements/SearchesForObject", Object => $object)) {
-	my ($desc, $search) = @$_;
-	my $SearchType = $search->Content->{'SearchType'} || 'Ticket';
-	if ($object eq $sys && $SearchType eq 'Ticket') {
-	    push @items, ["system-$desc", $desc];
-	}
-	else {
-	    my $oid = ref($object).'-'.$object->Id.'-SavedSearch-'.$search->Id;
-	    my $type = ($SearchType eq 'Ticket')
-		? 'Saved Search' : $SearchType; # loc
-	    push @items, ["saved-$oid", loc($type).": $desc"];
-	}
+        my ($desc, $search) = @$_;
+        my $SearchType = $search->Content->{'SearchType'} || 'Ticket';
+        if ($object eq $sys && $SearchType eq 'Ticket') {
+            push @items, ["system-$desc", $desc];
+        }
+        else {
+            my $oid = ref($object).'-'.$object->Id.'-SavedSearch-'.$search->Id;
+            my $type = ($SearchType eq 'Ticket')
+                ? 'Saved Search' : $SearchType; # loc
+            push @items, ["saved-$oid", loc($type).": $desc"];
+        }
     }
 }