#!/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/booking/getBookingTC.tmpl',
        reqPermission   => 'circ_rsrv_self|circ_rsrv',
    }
);
if ($permission && ($permission->{'circ_rsrv_self'}|| $permission->{'circ_rsrv'})){
    my $teacherList =getTeacherList($dbh);
    my $courseList=getCourseList($dbh);


    $template->param( 
            teacherList=>$teacherList,
            courseList=>$courseList
            );
}

#------------------------------------------------------------------------------
sub getTeacherList{
    my ($dbh)=@_;
    my @teacherList=();
    my $sth=$dbh->prepare("select distinct reqFirstname,reqLastname 
                          from opl_bookingRequest r inner join opl_user u on u.uid=r.reqUid 
                          where u.categorycode=10 order by reqLastname,reqFirstname ");
    $sth->execute();
    while( my ($firstName,$lastName)=$sth->fetchrow_array){
        push @teacherList,{firstName=>$firstName,lastName=>$lastName};
    }
    return \@teacherList;
}
#------------------------------------------------------------------------------
sub getCourseList{
    my ($dbh)=@_;
    my @courseList=();
    my $sth=$dbh->prepare("select distinct course from opl_bookingRequest where course is not null && course<>''");
    $sth->execute();
    while( my ($course)=$sth->fetchrow_array){
        push @courseList,{course=>$course};
    }
    return \@courseList;
}


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