Lines 22-28
use Modern::Perl;
Link Here
|
22 |
|
22 |
|
23 |
use CGI qw ( -utf8 ); |
23 |
use CGI qw ( -utf8 ); |
24 |
|
24 |
|
25 |
use C4::Auth qw( get_template_and_user ); |
25 |
use C4::Auth qw( get_template_and_user ); |
26 |
use C4::Output qw( output_html_with_http_headers ); |
26 |
use C4::Output qw( output_html_with_http_headers ); |
27 |
use C4::Koha; |
27 |
use C4::Koha; |
28 |
|
28 |
|
Lines 31-37
use C4::CourseReserves qw(GetCourse GetCourseReserves);
Link Here
|
31 |
my $cgi = CGI->new; |
31 |
my $cgi = CGI->new; |
32 |
|
32 |
|
33 |
my ( $template, $borrowernumber, $cookie ) = get_template_and_user( |
33 |
my ( $template, $borrowernumber, $cookie ) = get_template_and_user( |
34 |
{ template_name => "opac-thesis-table-details.tt", |
34 |
{ |
|
|
35 |
template_name => "opac-thesis-table-details.tt", |
35 |
query => $cgi, |
36 |
query => $cgi, |
36 |
type => "opac", |
37 |
type => "opac", |
37 |
authnotrequired => 1, |
38 |
authnotrequired => 1, |
Lines 43-49
my $table_id = $cgi->param('table_id');
Link Here
|
43 |
|
44 |
|
44 |
die("No table_id given") unless ($table_id); |
45 |
die("No table_id given") unless ($table_id); |
45 |
|
46 |
|
46 |
my $course = GetCourse($table_id); |
47 |
my $course = GetCourse($table_id); |
47 |
my $course_reserves = GetCourseReserves( course_id => $table_id, include_items => 1, include_count => 1 ); |
48 |
my $course_reserves = GetCourseReserves( course_id => $table_id, include_items => 1, include_count => 1 ); |
48 |
|
49 |
|
49 |
$template->param( |
50 |
$template->param( |