[LON-CAPA-cvs] cvs: loncom /configuration SSL.pm

[raeburn]

raeburn		Mon Aug  1 13:55:05 2016 EDT

  Modified files:              
    /loncom/configuration	SSL.pm 
  Log:
  - w3c xhtml validation.
  
  
Index: loncom/configuration/SSL.pm
diff -u loncom/configuration/SSL.pm:1.1 loncom/configuration/SSL.pm:1.2
--- loncom/configuration/SSL.pm:1.1	Mon Jul 25 19:50:16 2016
+++ loncom/configuration/SSL.pm	Mon Aug  1 13:55:05 2016
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Checksum installed LON-CAPA modules and some configuration files
 #
-# $Id: SSL.pm,v 1.1 2016/07/25 19:50:16 raeburn Exp $
+# $Id: SSL.pm,v 1.2 2016/08/01 13:55:05 raeburn Exp $
 #
 # The LearningOnline Network with CAPA
 #
@@ -61,10 +61,10 @@
     my @files = qw(key host hostname ca);
     my @fields = qw(status cn start end alg size email);
     foreach my $server (sort(keys(%{$servers}))) {
-        my $hostname = &Apache::lonnet::hostname($server);
         my ($result,$hashref) = &Apache::lonnet::get_servercerts_info($server,$context);
         if ($result eq 'ok' && ref($hashref) eq 'HASH') {
             if ($target eq 'web') {
+                my $hostname = &Apache::lonnet::hostname($server);
                 $message .= "<fieldset><legend>$hostname ($server)</legend>".
                             &Apache::loncommon::start_data_table().
                             &Apache::loncommon::start_data_table_header_row()."\n";
@@ -99,6 +99,7 @@
                             $message .= "$display,";
                         }
                     }
+
                 } else {
                     if ($target eq 'web') {
                         $message .= '<td>'.$lt{'no'}.'<td>';
@@ -111,13 +112,13 @@
                         } else {
                             $message .= ',';
                         }
-                    }
-                    if ($target eq 'web') {
-                        $message .= &Apache::loncommon::end_data_table_row()."\n";
-                    } else {
-                        $message =~ s/,$//;
-                        $message .= '&';
-                    }
+                    } 
+                }
+                if ($target eq 'web') {
+                    $message .= &Apache::loncommon::end_data_table_row()."\n";
+                } else {
+                    $message =~ s/,$//;
+                    $message .= '&';
                 }
             }
             if ($target eq 'web') {