1 files changed, 9 insertions, 9 deletions

diff --git a/pki/base/tps/lib/perl/PKI/TPS/TKSInfoPanel.pm b/pki/base/tps/lib/perl/PKI/TPS/TKSInfoPanel.pm
index bfdaa0ed6..8a85b13c5 100755
--- a/pki/base/tps/lib/perl/PKI/TPS/TKSInfoPanel.pm
+++ b/pki/base/tps/lib/perl/PKI/TPS/TKSInfoPanel.pm
@@ -78,28 +78,28 @@ sub update
     my $instanceID = $::config->get("service.instanceID");
 
     my $host = "";
-    my $port = "";
+    my $https_agent_port = "";
     if ($count =~ /http/) {
       my $info = new URI::URL($count);
       $host = $info->host;
-      $port = $info->port;
-      if (($host eq "") || ($port eq "")) {
+      $https_agent_port = $info->port;
+      if (($host eq "") || ($https_agent_port eq "")) {
         $::symbol{errorString} = "no TKS found.  CA, TKS and optionally DRM must be installed prior to TPS installation";
         return 0;
       }
       $::config->put("preop.tksinfo.select", $count);
     } else {
       $host = $::config->get("preop.securitydomain.tks$count.host");
-      $port = $::config->get("preop.securitydomain.tks$count.secureport");
-      if (($host eq "") || ($port eq "")) {
+      $https_agent_port = $::config->get("preop.securitydomain.tks$count.secureagentport");
+      if (($host eq "") || ($https_agent_port eq "")) {
         $::symbol{errorString} = "no TKS found.  CA, TKS and optionally DRM must be installed prior to TPS installation";
         return 0;
       }
-      $::config->put("preop.tksinfo.select", "https://$host:$port");
+      $::config->put("preop.tksinfo.select", "https://$host:$https_agent_port");
     }
     my $subsystemCertNickName = $::config->get("preop.cert.subsystem.nickname");
     $::config->put("conn.tks1.clientNickname", $subsystemCertNickName);
-    $::config->put("conn.tks1.hostport", $host . ":" . $port); 
+    $::config->put("conn.tks1.hostport", $host . ":" . $https_agent_port); 
     $::config->commit();
 
     return 1;
@@ -116,9 +116,9 @@ sub display
       if ($host eq "") {
         goto DONE;
       }
-      my $port = $::config->get("preop.securitydomain.tks$count.secureport");
+      my $https_agent_port = $::config->get("preop.securitydomain.tks$count.secureagentport");
       my $name = $::config->get("preop.securitydomain.tks$count.subsystemname");
-      $::symbol{urls}[$count++] = $name . " - https://" . $host . ":" . $port;
+      $::symbol{urls}[$count++] = $name . " - https://" . $host . ":" . $https_agent_port;
     }
 DONE:
     $::symbol{urls_size}   = $count;