--- loncom/configuration/SSL.pm	2018/08/18 22:07:53	1.7
+++ loncom/configuration/SSL.pm	2019/04/12 02:41:47	1.9
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Checksum installed LON-CAPA modules and some configuration files
 #
-# $Id: SSL.pm,v 1.7 2018/08/18 22:07:53 raeburn Exp $
+# $Id: SSL.pm,v 1.9 2019/04/12 02:41:47 raeburn Exp $
 #
 # The LearningOnline Network with CAPA
 #
@@ -65,6 +65,7 @@ sub print_certstatus {
                  'otherkey' => 'No matching key',
                  'revoked'  => 'Revoked by CA',
                  'wrongcn'  => 'Incorrect CN',
+                 'mismatch' => 'Mismatched Issuer',
     );
     my @files = qw(key host hostname ca);
     my @fields = qw(status cn start end alg size email);
@@ -93,7 +94,7 @@ sub print_certstatus {
                 } else {
                     $message .= $file.'=';
                 }
-                if (ref($hashref->{$file}) eq 'HASH') {
+                if ((ref($hashref->{$file}) eq 'HASH') && (keys(%{$hashref->{$file}}) > 0)) {
                     my ($starttime,$endtime,$dateinvalid);
                     if ($target eq 'web') {
                         $message .= '<td>'.$lt{'yes'}.'</td>';
@@ -153,7 +154,7 @@ sub print_certstatus {
                                 }
                             } elsif (($display eq 'nokey') || ($display eq 'otherkey') ||
                                      ($display eq 'revoked') || ($display eq 'expired') ||
-                                     ($display eq 'wrongcn')) {
+                                     ($display eq 'wrongcn') || ($display eq 'mismatch')) {
                                 if ($target eq 'web') {
                                     $display = $lt{$display};
                                 }