#======================================================================
use DBI;
-use CGI;
use Encode;
use English qw(-no_match_vars);
use Fcntl;
$::lxdebug->enter_sub;
my $session_result = shift;
- $cgi = $::cgi;
$form = $::form;
$locale = $::locale;
$auth = $::auth;