diff -Nur --no-dereference smeserver-git-1.2.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/git.pm smeserver-git-1.2.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/git.pm
--- smeserver-git-1.2.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/git.pm	2013-02-09 21:49:54.000000000 -0500
+++ smeserver-git-1.2.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/git.pm	2023-03-24 23:16:40.664000000 -0400
@@ -85,6 +85,10 @@
 
 our $git_db = esmith::GitDB->open
   or die "Can't open the Git database : $!\n" ;
+
+our $SystemName = $config_db->get_prop('git','SystemName') || get_config_value('', 'SystemName');
+our $DomainName = $config_db->get_prop('git','DomainName') || get_config_value('', 'DomainName');
+our $server = $SystemName . "." . $DomainName ;
   
 # fields and records separator for sub records
 use constant FS => "," ;
@@ -154,7 +158,6 @@
   my $q = $self->{cgi};
 
   print qq(<tr>);
-  my $server = get_config_value('', 'SystemName') . "." . get_config_value('', 'DomainName');
   print qq(<td><p>) . $self->localise('GIT_HOME_DESCRIPTION', {serverName => $server} ) . qq(</p></td>);
   print qq(<td><a href="http://git-scm.com" target="_blank"><img src="/server-common/git-logo.png" alt="GIT" style="float:right;margin:0 0 0 5px;" /></a></td>);
   print qq(</tr>);
@@ -242,8 +245,8 @@
     my $href                   = "$scriptname?$params&action=modify&wherenext=";
     my $actionModify           = '&nbsp;' . $q->a({href => "${href}GitCreateModify"},$modify) . '&nbsp;';
     my $actionRemove           = '&nbsp;' . $q->a({href => "${href}GitRemove"}, $remove) . '&nbsp';
-    my $repo_url               = $q->a({href => "https://" . get_config_value('', 'SystemName') . "." 
-                                                           . get_config_value('', 'DomainName') . "/git/"
+    my $repo_url               = $q->a({href => "https://" . $SystemName . "." 
+                                                           . $DomainName . "/git/"
                                                            . $repo_name . ".git" }, $repo_name . ".git" );
     
     print $q->Tr (  esmith::cgi::genSmallCell($q, $repo_url,               "normal"),