|
Lines 23-29
use C4::CourseReserves qw/ModCourseItem ModCourseReserve DelCourseReserve GetCou
Link Here
|
| 23 |
use C4::Context; |
23 |
use C4::Context; |
| 24 |
use Koha::Items; |
24 |
use Koha::Items; |
| 25 |
|
25 |
|
| 26 |
use Test::More tests => 27; |
26 |
use Test::More tests => 28; |
| 27 |
|
27 |
|
| 28 |
BEGIN { |
28 |
BEGIN { |
| 29 |
require_ok('C4::CourseReserves'); |
29 |
require_ok('C4::CourseReserves'); |
|
Lines 148-154
ModCourseReserve(
Link Here
|
| 148 |
); |
148 |
); |
| 149 |
|
149 |
|
| 150 |
$item = Koha::Items->find($itemnumber); |
150 |
$item = Koha::Items->find($itemnumber); |
| 151 |
is($item->ccode, 'DVD', 'Item ccode should be BOOK'); |
151 |
is($item->ccode, 'DVD', 'Item ccode should be DVD'); |
|
|
152 |
|
| 153 |
ModCourseItem( |
| 154 |
itemnumber => $itemnumber, |
| 155 |
itype => 'BK', |
| 156 |
ccode => 'BOOK', |
| 157 |
holdingbranch => '', # LEAVE UNCHANGED |
| 158 |
location => 'TH', |
| 159 |
); |
| 160 |
$item = Koha::Items->find($itemnumber); |
| 161 |
is($item->ccode, 'BOOK', 'Item ccode should be BOOK'); |
| 152 |
|
162 |
|
| 153 |
$course_item2 = GetCourseItem( ci_id => $ci_id2 ); |
163 |
$course_item2 = GetCourseItem( ci_id => $ci_id2 ); |
| 154 |
is($course_item2->{ccode}, '', 'Course item ccode should be empty'); |
164 |
is($course_item2->{ccode}, '', 'Course item ccode should be empty'); |
| 155 |
- |
|
|