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;
]);
print
h2 ({-class => "header", -align => "center"},
- font ({-class => "standout"}, "MAPS"),
- "Mail Authorization and Permission System");
+ "Mail Authorization and Permission System");
if ($errormsg) {
DisplayError $errormsg;
];
print end_table;
print end_div;
+
+ return;
} # Body
if (!$userid) {