#!/usr/local/bin/perl5_8

use CGI;
use CGI ':standard';
use CGI::Carp qw(fatalsToBrowser);
use vars qw($CGI);
use Sybase::CTlib;
$CGI = new CGI();

# Get parameters based on login, etc.
  &get_parms($CGI);

# When global employee id ($g_empid) is blank, 
# initialization routines are bypassed and you drop out.

if    ( $g_empid eq "" )
      { &valid_user;
      }

# Clear the STDOUT buffers so MIME can get out; print html headers

$|=1;
print "content-type: text/html\n\n";

# Display Campus Main Menu and begin main processing

&main_process;