#!/usr/bin/perl

use strict;
use CGI;

use Opals::Context;
use Opals::Template qw(

    tmpl_read
    tmpl_write
    tmpl_rangedPageList

);

use Opals::Course qw(
    
    course_getSchoolYearList
    course_getSchoolYearInfo
    course_getList

);

use Opals::Constant;

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

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

my ($permission, $cookieList, $template) = tmpl_read(
    {
        dbh             => $dbh,
        cgi             => $cgi,
        tmplFile        => '/txtbk/ajax/course/getCourseList.tmpl',
    }
);

my $schoolYear      = course_getSchoolYearInfo($dbh,'2010-2011');
#my $curSchoolYearId = $schoolYear->{'id'};
my $schoolYearId = $input->{'yId'};

my ($resultCount, $courseList ) = course_getList($dbh, 0,0,"",0 ,$schoolYearId) ;


$template->param(
    courseList => $courseList
    
);

tmpl_write($dbh, $cgi, $cookieList, $template);