[ARVADOS] updated: fbd62569bca926fc12917eb60eada82a6d8a83b0
git at public.curoverse.com
git at public.curoverse.com
Tue Feb 11 17:30:33 EST 2014
Summary of changes:
sdk/perl/lib/Arvados/ResourceMethod.pm | 9 +++++++++
1 files changed, 9 insertions(+), 0 deletions(-)
via fbd62569bca926fc12917eb60eada82a6d8a83b0 (commit)
from f4cd9f0565c69e4cd919124dc7184a4fdecb3b31 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
commit fbd62569bca926fc12917eb60eada82a6d8a83b0
Author: Tom Clegg <tom at curoverse.com>
Date: Tue Feb 11 14:28:32 2014 -0800
Look in method[request][properties][$ref] for resource object
argument.
Fixes #2084
diff --git a/sdk/perl/lib/Arvados/ResourceMethod.pm b/sdk/perl/lib/Arvados/ResourceMethod.pm
index fd57775..cfcc34a 100644
--- a/sdk/perl/lib/Arvados/ResourceMethod.pm
+++ b/sdk/perl/lib/Arvados/ResourceMethod.pm
@@ -28,6 +28,15 @@ sub execute
my %body_params;
my %given_params = @_;
my %extra_params = %given_params;
+ if ($method->{'request'}->{'properties'}) {
+ while (my ($prop_name, $prop_value) =
+ each %{$method->{'request'}->{'properties'}}) {
+ if (ref($prop_value) eq 'HASH' && $prop_value->{'$ref'}) {
+ $body_params{$prop_name} = $given_params{$prop_name};
+ delete $extra_params{$prop_name};
+ }
+ }
+ }
while (my ($param_name, $param) = each %{$method->{'parameters'}}) {
delete $extra_params{$param_name};
if ($param->{'required'} && !exists $given_params{$param_name}) {
-----------------------------------------------------------------------
hooks/post-receive
--
More information about the arvados-commits
mailing list