#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
use Digest::SHA qw(
    sha1_base64
    sha1_hex
);

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

use Opals::User qw(
    user_list
);
use JSON;

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

my $cgi      = CGI->new;
my $input    = $cgi->Vars();
my $user       = $input->{"user"};


my @uList = user_list($dbh,  $user, undef);


print "Content-type: text/plain\n\n";
print  to_json(\@uList,{pretty=>1});


#my ($permission, $cookie, $template) = tmpl_read(
#    {
#        dbh             => $dbh,
#        cgi             => $cgi,
#        tmplFile        => 'ajax/circ/userLookup.tmpl',
#        reqPermission   => 'circ_loan|tb_circ_loan',
#    }
#);
#if ($permission && ($permission->{'circ_loan'} || $permission->{'tb_circ_loan'})) {
#    my @uList = user_list($dbh,  $user, undef);
#    $template->param(userList=>\@uList);
#}
# 
#tmpl_write($dbh, $cgi, $cookie, $template);
#------------------------------------------------------------------------------