More enhancements to mapssrub

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

diff --git a/maps/bin/registerform.cgi b/maps/bin/registerform.cgi
index 03f2c5a..48abe04 100755 (executable)
--- a/maps/bin/registerform.cgi
+++ b/maps/bin/registerform.cgi
@@ -16,11 +16,12 @@ use strict;
 use warnings;
 
 use FindBin;
-$0 = $FindBin::Script;
+local $0 = $FindBin::Script;
 
 use CGI qw/:standard *table start_div end_div/;
 
 use lib "$FindBin::Bin/../lib";
+use lib "$FindBin::Bin/../../lib";
 
 use MAPS;
 use MAPSWeb;
@@ -43,8 +44,7 @@ sub MyHeading {
                 ]);
   print
     h2 ({-class => "header", -align => "center"},
-      font ({-class => "standout"}, "MAPS"),
-        "Mail Authorization and Permission System");
+      "Mail Authorization and Permission System");
 
   if ($errormsg) {
     DisplayError $errormsg;
@@ -114,6 +114,8 @@ sub Body {
   ];
   print end_table;
   print end_div;
+
+  return;
 } # Body
 
 if (!$userid) {