#!/usr/bin/perl

#use utf8;
use strict;
use CGI;

use Opals::Context;
use Opals::Template qw(
    tmpl_read
    tmpl_write
);

use Opals::User qw(
    user_isUserBc
    user_addQuick_1
);

my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }

my $cgi      = CGI->new;
my $input    = $cgi->Vars();



my ($status,$errorCode,$errorMsg)    ;
my ($permission, $cookie, $template) = tmpl_read(
    {
        dbh             => $dbh,
        cgi             => $cgi,
        tmplFile        => 'ajax/user/userQE.tmpl',
        reqPermission   => 'user_add',
    }
);
    my $lastname      = $input->{'lastname'};
    my $firstname     = $input->{'firstname'};
    my $userbarcode   = $input->{'userbarcode'};
       $userbarcode   =~ s/\s+//g;
    my $homeroom      = $input->{'homeroom'};
    my $email         = $input->{'email'};
    my $categorycode  = $input->{'usertype'};
    my $permission    = $input->{'permission'};
    my $status        = $input->{'status'};
    my $gender        = $input->{'gender'};

    my $msgCode=1;
    my $uid=0;
    if($userbarcode && $userbarcode ne ''){
        $uid = user_isUserBc($dbh,$userbarcode);
    }
    if($uid){
        $msgCode=2;
    }
    elsif($firstname eq '' && $lastname eq ''){
        $msgCode=3;
    }
    else{
        if (user_addQuick_1($dbh, $lastname, $firstname
                              , $userbarcode ,$email,$categorycode
                              , $permission,$status,$gender,$homeroom)) {
            $msgCode=1;
        }
        else {
            $msgCode=4;
        }
    }
    $template->param( 
            msgCode  =>$msgCode,
            status   =>$status,
            barcode  => $userbarcode,
            firstname=>$firstname,
            lastname =>$lastname,);



 
tmpl_write($dbh, $cgi, $cookie, $template);
#------------------------------------------------------------------------------