From 99e39ac2639d99acdfd74acc05c25b5a95189860 Mon Sep 17 00:00:00 2001
From: Jon Robertson <jonrober@stanford.edu>
Date: Thu, 7 Jan 2010 09:33:50 -0800
Subject: Added ACL name to object history entries

When listing an object history, ACLs were only shown as the ACL id.  This
changes that behavior to show the ACL name as well as ID.  Where before
it might say "set owner to 1", now it would say "set owner to ADMIN (1)".
---
 perl/Wallet/Object/Base.pm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

(limited to 'perl/Wallet')

diff --git a/perl/Wallet/Object/Base.pm b/perl/Wallet/Object/Base.pm
index 0f40028..f2568eb 100644
--- a/perl/Wallet/Object/Base.pm
+++ b/perl/Wallet/Object/Base.pm
@@ -445,6 +445,22 @@ sub flag_set {
 # History
 ##############################################################################
 
+# Expand a given ACL id to add its name, for readability.  Returns the 
+# original id alone if there was a problem finding the name.
+sub format_acl_id {
+    my ($self, $id) = @_;
+    my $name = $id;
+
+    my $sql = 'select ac_name from acls where ac_id = ?';
+    my $sth = $self->{dbh}->prepare ($sql);
+    $sth->execute ($id);
+    if (my @ref = $sth->fetchrow_array) {
+	$name = $ref[0] . " ($id)";
+    }
+
+    return $name;
+}
+
 # Return the formatted history for a given object or undef on error.
 # Currently always returns the complete history, but eventually will need to
 # provide some way of showing only recent entries.
@@ -476,6 +492,18 @@ sub history {
                 } elsif (defined ($new)) {
                     $output .= "add $new to attribute $attr";
                 }
+            } elsif ($data[0] eq 'set' 
+		     and ($data[1] eq 'owner' or $data[1] =~ /^acl_/)) {
+                my $field = $data[1];
+		$old = $self->format_acl_id ($old) if defined ($old);
+		$new = $self->format_acl_id ($new) if defined ($new);
+                if (defined ($old) and defined ($new)) {
+                    $output .= "set $field to $new (was $old)";
+                } elsif (defined ($new)) {
+                    $output .= "set $field to $new";
+                } elsif (defined ($old)) {
+                    $output .= "unset $field (was $old)";
+                }
             } elsif ($data[0] eq 'set') {
                 my $field = $data[1];
                 if (defined ($old) and defined ($new)) {
-- 
cgit v1.2.3