Show cert descriptions in server page

Author: abeverley

lib/Brass/Config/Cert.pm

@@ -53,6 +53,12 @@ has type => (
     builder => sub { $_[0]->_rset && $_[0]->_rset->type; },
 );
 
+has description => (
+    is      => 'rw',
+    lazy    => 1,
+    builder => sub { $_[0]->_rset && $_[0]->_rset->description; },
+);
+
 has expiry => (
     is      => 'rw',
     isa     => Maybe[DateAndTime],
@@ -158,6 +164,7 @@ sub inflate_result {
         type        => $data->{type},
         expiry      => $expiry,
         usedby      => $data->{usedby},
+        description => $data->{description},
         filename    => $data->{filename},
         file_user   => $data->{file_user},
         file_group  => $data->{file_group},

views/config/server.tt

@@ -88,7 +88,12 @@
                                         </a>
                                     </td>
                                 [% END %]
-                                <td>[% cert.cert.cn | html %]</td>
+                                <td>
+                                    [% cert.cert.cn | html %]
+                                    [% IF cert.cert.description %]
+                                        ([% cert.cert.description | html %])
+                                    [% END %]
+                                </td>
                                 <td>[% cert.cert.type | html %]</td>
                                 <td>[% cert.cert.usedby | html %]</td>
                                 <td>[% cert.use.name | html %]</td>