[Rt-commit] r12025 - in rt/branches/3.8-TESTING: . html/Prefs/Dashboards
sartak at bestpractical.com
sartak at bestpractical.com
Fri May 2 19:22:55 EDT 2008
Author: sartak
Date: Fri May 2 19:22:55 2008
New Revision: 12025
Modified:
rt/branches/3.8-TESTING/ (props changed)
rt/branches/3.8-TESTING/html/Prefs/Dashboards/Queries.html
rt/branches/3.8-TESTING/html/Prefs/Dashboards/Render.html
rt/branches/3.8-TESTING/lib/RT/Dashboard.pm
Log:
r54822 at Macintosh: sartak | 2008-05-02 19:21:58 -0400
s/SearchIDs/SearchIds/
Modified: rt/branches/3.8-TESTING/html/Prefs/Dashboards/Queries.html
==============================================================================
--- rt/branches/3.8-TESTING/html/Prefs/Dashboards/Queries.html (original)
+++ rt/branches/3.8-TESTING/html/Prefs/Dashboards/Queries.html Fri May 2 19:22:55 2008
@@ -94,7 +94,7 @@
my @selected;
# Get the list of queries already in use
-for ($Dashboard->SearchIDs) {
+for ($Dashboard->SearchIds) {
my ($privacy, $id, $desc) = @$_;
my $name = "$id-$privacy";
push @selected, $name;
Modified: rt/branches/3.8-TESTING/html/Prefs/Dashboards/Render.html
==============================================================================
--- rt/branches/3.8-TESTING/html/Prefs/Dashboards/Render.html (original)
+++ rt/branches/3.8-TESTING/html/Prefs/Dashboards/Render.html Fri May 2 19:22:55 2008
@@ -55,7 +55,7 @@
<tr valign="top">
<td class="boxcontainer" width="70%">
-% foreach ($DashboardObj->SearchIDs) {
+% foreach ($DashboardObj->SearchIds) {
% my ($type, $id, $desc) = @$_;
% my @for_showsearch = $DashboardObj->SearchPrivacy(@$_);
<& /Elements/ShowSearch, @for_showsearch, Override => { Rows => $rows } &>
Modified: rt/branches/3.8-TESTING/lib/RT/Dashboard.pm
==============================================================================
--- rt/branches/3.8-TESTING/lib/RT/Dashboard.pm (original)
+++ rt/branches/3.8-TESTING/lib/RT/Dashboard.pm Fri May 2 19:22:55 2008
@@ -132,17 +132,17 @@
my $search = RT::SavedSearch->new($self->CurrentUser);
$search->Load($_->[0], $_->[1]);
$search
- } $self->SearchIDs;
+ } $self->SearchIds;
}
-=head2 SearchIDs
+=head2 SearchIds
Returns a list of array references, each being a saved-search privacy, ID, and
description
=cut
-sub SearchIDs {
+sub SearchIds {
my $self = shift;
return unless ref($self->{'Attribute'}) eq 'RT::Attribute';
return @{ $self->{'Attribute'}->SubValue('Searches') || [] };
@@ -157,7 +157,7 @@
sub SearchPrivacies {
my $self = shift;
- return map { [$self->SearchPrivacy(@$_)] } $self->SearchIDs;
+ return map { [$self->SearchPrivacy(@$_)] } $self->SearchIds;
}
=head2 SearchPrivacy TYPE, ID, DESC
More information about the Rt-commit
mailing list