Lines 84-90
sub GetCourse {
Link Here
|
84 |
warn whoami() . "( $course_id )" if $DEBUG; |
84 |
warn whoami() . "( $course_id )" if $DEBUG; |
85 |
|
85 |
|
86 |
my $course = Koha::Courses->find( $course_id ); |
86 |
my $course = Koha::Courses->find( $course_id ); |
87 |
return undef unless $course; |
87 |
return unless $course; |
88 |
$course = $course->unblessed; |
88 |
$course = $course->unblessed; |
89 |
|
89 |
|
90 |
my $dbh = C4::Context->dbh; |
90 |
my $dbh = C4::Context->dbh; |
91 |
- |
|
|