diff options
| -rw-r--r-- | lib/WebCoso/Resource.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/WebCoso/Resource.pm b/lib/WebCoso/Resource.pm index 27bad65..b881e18 100644 --- a/lib/WebCoso/Resource.pm +++ b/lib/WebCoso/Resource.pm @@ -60,7 +60,9 @@ sub _populate_axes_from { sub _genkey { my ($axes_spec)=@_; - return '1'; + my $key=join "\000",map {$_."\001".$axes_spec->{$_}} sort keys %$axes_spec; + + return $key; } } |