Bug 12728: Add StatisticsFields to sysprefs.sql
[koha.git] / opac / opac-course-details.pl
blob9741359c10284cbb8db0ed241cc3e5ebb5a20811
1 #!/usr/bin/perl
4 # Copyright 2012 Bywater Solutions
6 # This file is part of Koha.
8 # Koha is free software; you can redistribute it and/or modify it under the
9 # terms of the GNU General Public License as published by the Free Software
10 # Foundation; either version 2 of the License, or (at your option) any later
11 # version.
13 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
14 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
15 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License along
18 # with Koha; if not, write to the Free Software Foundation, Inc.,
19 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
21 use Modern::Perl;
23 use CGI;
25 use C4::Auth;
26 use C4::Output;
27 use C4::Koha;
29 use C4::CourseReserves qw(GetCourse GetCourseReserves);
31 my $cgi = new CGI;
33 my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
34 { template_name => "opac-course-details.tt",
35 query => $cgi,
36 type => "opac",
37 authnotrequired => 1,
38 debug => 1,
42 my $course_id = $cgi->param('course_id');
44 die("No course_id given") unless ($course_id);
46 my $course = GetCourse($course_id);
47 my $course_reserves = GetCourseReserves( course_id => $course_id, include_items => 1, include_count => 1 );
49 $template->param(
50 course => $course,
51 course_reserves => $course_reserves,
54 output_html_with_http_headers $cgi, $cookie, $template->output;