|
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 |
- |
|
|