diff options
| -rw-r--r-- | perl/Wallet/Server.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl/Wallet/Server.pm b/perl/Wallet/Server.pm index c4132d3..6a95e06 100644 --- a/perl/Wallet/Server.pm +++ b/perl/Wallet/Server.pm @@ -219,11 +219,11 @@ sub get { # Store new data in an object, or returns undef and sets the internal error if # the object can't be found or if the user isn't authorized. sub store { - my ($self, $name, $type) = @_; + my ($self, $name, $type, $data) = @_; my $object = $self->retrieve ($name, $type); return undef unless defined $object; return undef unless $self->acl_check ($object, 'store'); - return $object->get ($self->{user}, $self->{host}); + return $object->store ($data, $self->{user}, $self->{host}); } # Return a human-readable description of the object's metadata, or returns |