Add the history method (for objects).

1 files changed, 22 insertions, 1 deletions

diff --git a/perl/Wallet/Server.pm b/perl/Wallet/Server.pm
index 172cdf1..2bc6ba1 100644
--- a/perl/Wallet/Server.pm
+++ b/perl/Wallet/Server.pm
@@ -24,7 +24,7 @@ use Wallet::Schema;
 # This version should be increased on any code change to this module.  Always
 # use two digits for the minor version with a leading zero if necessary so
 # that it will sort properly.
-$VERSION = '0.01';
+$VERSION = '0.02';
 
 # This is a mapping of object types to class names, used to determine which
 # object implementation should be instantiated for a given object type.
@@ -375,6 +375,19 @@ sub show {
     return $result;
 }
 
+# Return a human-readable description of the object history, or returns undef
+# and sets the internal error if the object can't be found or if the user
+# isn't authorized.
+sub history {
+    my ($self, $type, $name) = @_;
+    my $object = $self->retrieve ($type, $name);
+    return undef unless defined $object;
+    return undef unless $self->acl_check ($object, 'show');
+    my $result = $object->history;
+    $self->error ($object->error) unless defined $result;
+    return $result;
+}
+
 # Destroys the object, or returns undef and sets the internal error if the
 # object can't be found or if the user isn't authorized.
 sub destroy {
@@ -801,6 +814,14 @@ special privileges to get objects.
 Returns undef on failure.  The caller should be careful to distinguish
 between undef and the empty string, which is valid object data.
 
+=item history(TYPE, NAME)
+
+Returns (as a string) the human-readable history of the object identified by
+TYPE and NAME, or undef on error.  To see the object history, the current
+user must be a member of the ADMIN ACL, authorized by the show ACL, or
+authorized by the owner ACL; however, if the show ACL is set, the owner ACL
+will not be checked.
+
 =item owner(TYPE, NAME [, OWNER])
 
 Gets or sets the owner for the object identified by TYPE and NAME.  If OWNER