You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@vcl.apache.org by ar...@apache.org on 2015/02/11 00:36:05 UTC
svn commit: r1658839 - /vcl/trunk/managementnode/lib/VCL/DataStructure.pm
Author: arkurth
Date: Tue Feb 10 23:36:05 2015
New Revision: 1658839
URL: http://svn.apache.org/r1658839
Log:
VCL-815
Added DataStructure.pm::get_child_reservation_ids. It will be used by OS.pm::update_cluster.
Modified:
vcl/trunk/managementnode/lib/VCL/DataStructure.pm
Modified: vcl/trunk/managementnode/lib/VCL/DataStructure.pm
URL: http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/DataStructure.pm?rev=1658839&r1=1658838&r2=1658839&view=diff
==============================================================================
--- vcl/trunk/managementnode/lib/VCL/DataStructure.pm (original)
+++ vcl/trunk/managementnode/lib/VCL/DataStructure.pm Tue Feb 10 23:36:05 2015
@@ -1024,20 +1024,41 @@ sub get_reservation_count {
=head2 get_reservation_ids
- Parameters : None
- Returns : array containing reservation IDs for the request
- Description : Returns an array containing the reservation IDs for the current request.
+ Parameters : none
+ Returns : array
+ Description : Returns an array containing all reservation IDs for the current
+ request sorted from lowest to highest.
=cut
sub get_reservation_ids {
my $self = shift;
-
- my @reservation_ids = sort keys %{$self->request_data->{reservation}};
+
+ my @reservation_ids = sort {$a <=> $b} keys %{$self->request_data->{reservation}};
return @reservation_ids;
}
#/////////////////////////////////////////////////////////////////////////////
+
+=head2 get_child_reservation_ids
+
+ Parameters : none
+ Returns : array
+ Description : Returns an array containing all child reservation IDs for the
+ current request sorted from lowest to highest. The parent
+ reservation id is omitted.
+
+=cut
+
+sub get_child_reservation_ids {
+ my $self = shift;
+ my $parent_reservation_id = $self->get_parent_reservation_id();
+ my @reservation_ids = $self->get_reservation_ids();
+ my @child_reservation_ids = grep { $_ ne $parent_reservation_id } @reservation_ids;
+ return @child_reservation_ids;
+}
+
+#/////////////////////////////////////////////////////////////////////////////
=head2 get_parent_reservation_id