diff --git a/Koha/Course.pm b/Koha/Course.pm index 9ede81bd3ce..6b67a2b5928 100644 --- a/Koha/Course.pm +++ b/Koha/Course.pm @@ -17,14 +17,32 @@ package Koha::Course; use Modern::Perl; - use base qw(Koha::Object); =head1 NAME Koha::Course - Koha Course Object class -=head1 API +=head2 Relations + +=head3 instructors + + my $instructors = $course->instructors(); + +Returns the related Koha::Patrons object containing the instructors for this course + +=cut + +sub instructors { + my ($self) = @_; + + my $instructors = Koha::Patrons->search( + { 'course_instructors.course_id' => $self->course_id }, + { join => 'course_instructors' } + ); + + return $instructors; +} =head2 Internal methods diff --git a/course_reserves/course-details.pl b/course_reserves/course-details.pl index b2ca9e8c878..e5c0c3c5b8d 100755 --- a/course_reserves/course-details.pl +++ b/course_reserves/course-details.pl @@ -56,7 +56,7 @@ } } -my $course = GetCourse($course_id); +my $course = Koha::Courses->find($course_id); my $course_reserves = GetCourseReserves( course_id => $course_id, include_items => 1,