Fixed uninitialized var

[clearscm.git] / maps / bin / register.cgi

diff --git a/maps/bin/register.cgi b/maps/bin/register.cgi
index b97efae..8dae177 100755 (executable)
--- a/maps/bin/register.cgi
+++ b/maps/bin/register.cgi
@@ -16,9 +16,10 @@ use strict;
 use warnings;
 
 use FindBin;
-$0 = $FindBin::Script;
+local $0 = $FindBin::Script;
 
 use lib "$FindBin::Bin/../lib";
+use lib "$FindBin::Bin/../../lib";
 
 use MAPS;
 use MAPSLog;
@@ -36,7 +37,10 @@ sub MyFooting() {
             -value   => "Close Window",
             -onClick => "window.close ()")
   );
+
   print end_html;
+
+  return;
 } # MyFooting
 
 sub MyError($) {
@@ -60,9 +64,10 @@ sub MyHeading() {
   print
     h2 ({-class     => "header",
          -align     => "center"},
-      font ({-class => "standout"}, 
-      "MAPS"), "Registration Results"
-         );
+      'Registration Results'
+  );
+
+  return;
 } # MyHeading
 
 # Main