[Catalyst-commits] r12521 - in Catalyst-Controller-DBIC-API: . 1.004/trunk/lib/Catalyst/Controller/DBIC/API

[nperez at dev.catalyst.perl.org]

Author: nperez
Date: 2010-01-04 16:37:38 +0000 (Mon, 04 Jan 2010)
New Revision: 12521

Modified:
   Catalyst-Controller-DBIC-API/
   Catalyst-Controller-DBIC-API/1.004/trunk/lib/Catalyst/Controller/DBIC/API/Base.pm
Log:
 r5300 at nicklaptop:  nicholas | 2010-01-04 10:36:01 -0600
 Skip parameters that aren't provided



Property changes on: Catalyst-Controller-DBIC-API
___________________________________________________________________
Name: svk:merge
   + 992f488a-d630-404b-95f9-f7d0fdf28443:/local/dbic-api:5300

Modified: Catalyst-Controller-DBIC-API/1.004/trunk/lib/Catalyst/Controller/DBIC/API/Base.pm
===================================================================
--- Catalyst-Controller-DBIC-API/1.004/trunk/lib/Catalyst/Controller/DBIC/API/Base.pm	2010-01-04 13:18:35 UTC (rev 12520)
+++ Catalyst-Controller-DBIC-API/1.004/trunk/lib/Catalyst/Controller/DBIC/API/Base.pm	2010-01-04 16:37:38 UTC (rev 12521)
@@ -53,6 +53,8 @@
 		$req_params = CGI::Expand->expand_hash($c->req->params);
 		foreach my $param (@{[$self->search_arg, $self->count_arg, $self->page_arg, $self->ordered_by_arg, $self->grouped_by_arg, $self->prefetch_arg]}) {
 			# these params can also be composed of JSON
+            # but skip if the parameter is not provided
+            next if not exists $req_params->{$param};
 			try 
             {
 				my $deserialized = JSON::Any->from_json($req_params->{$param});