Author: arkurth Date: Wed Jan 5 17:07:41 2011 New Revision: 1055531 URL: http://svn.apache.org/viewvc?rev=1055531&view=rev Log: VCL-428 Updated DataStructure.pm to return the computer's current or next image name using the computer's imagerevision data rather than the image data because it is more accurate.
Modified: incubator/vcl/trunk/managementnode/lib/VCL/blockrequest.pm Modified: incubator/vcl/trunk/managementnode/lib/VCL/blockrequest.pm URL: http://svn.apache.org/viewvc/incubator/vcl/trunk/managementnode/lib/VCL/blockrequest.pm?rev=1055531&r1=1055530&r2=1055531&view=diff ============================================================================== --- incubator/vcl/trunk/managementnode/lib/VCL/blockrequest.pm (original) +++ incubator/vcl/trunk/managementnode/lib/VCL/blockrequest.pm Wed Jan 5 17:07:41 2011 @@ -133,7 +133,6 @@ sub process { my $blocktime_end = $self->data->get_blocktime_end(); my $blockrequest_name = $self->data->get_blockrequest_name(); my $blockrequest_owner_id = $self->data->get_blockrequest_owner_id(); - my $block_group_id = $self->data->get_blockrequest_group_id(); my $block_group_name = $self->data->get_blockrequest_group_name(); # Get user info @@ -538,9 +537,7 @@ sub udpate_block_request_status { sub clear_blockTimes { my ($blockTimes_id) = @_; - - my ($package, $filename, $line, $sub) = caller(0); - + # Check the arguments if (!defined($blockTimes_id)) { notify($ERRORS{'WARNING'}, 0, "blockTimes ID was not specified"); @@ -578,9 +575,7 @@ sub clear_blockTimes { sub clear_blockComputers { my ($blockTimes_id) = @_; - - my ($package, $filename, $line, $sub) = caller(0); - + # Check the arguments if (!defined($blockTimes_id)) { notify($ERRORS{'WARNING'}, 0, "blockTimes ID was not specified");