Welcome to MAPS 2.0

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

diff --git a/maps/bin/registerform.cgi b/maps/bin/registerform.cgi
index 03f2c5a..25e2c63 100755 (executable)
--- a/maps/bin/registerform.cgi
+++ b/maps/bin/registerform.cgi
@@ -16,7 +16,7 @@ use strict;
 use warnings;
 
 use FindBin;
-$0 = $FindBin::Script;
+local $0 = $FindBin::Script;
 
 use CGI qw/:standard *table start_div end_div/;
 
@@ -43,8 +43,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 +113,8 @@ sub Body {
   ];
   print end_table;
   print end_div;
+
+  return;
 } # Body
 
 if (!$userid) {