Lines 29-34
use C4::Biblio;
Link Here
|
29 |
|
29 |
|
30 |
use C4::CourseReserves qw(GetCourse GetCourseItem GetCourseReserve ModCourseItem ModCourseReserve); |
30 |
use C4::CourseReserves qw(GetCourse GetCourseItem GetCourseReserve ModCourseItem ModCourseReserve); |
31 |
|
31 |
|
|
|
32 |
use Koha::Items; |
33 |
|
32 |
my $cgi = new CGI; |
34 |
my $cgi = new CGI; |
33 |
|
35 |
|
34 |
my $action = $cgi->param('action') || ''; |
36 |
my $action = $cgi->param('action') || ''; |
Lines 36-42
my $course_id = $cgi->param('course_id') || '';
Link Here
|
36 |
my $barcode = $cgi->param('barcode') || ''; |
38 |
my $barcode = $cgi->param('barcode') || ''; |
37 |
my $return = $cgi->param('return') || ''; |
39 |
my $return = $cgi->param('return') || ''; |
38 |
|
40 |
|
39 |
my $item = GetBiblioFromItemNumber( undef, $barcode ); |
41 |
my $item = Koha::Items->find({ barcode => $barcode }); |
40 |
|
42 |
|
41 |
my $step = ( $action eq 'lookup' && $item ) ? '2' : '1'; |
43 |
my $step = ( $action eq 'lookup' && $item ) ? '2' : '1'; |
42 |
|
44 |
|
Lines 54-61
$template->param( ERROR_BARCODE_NOT_FOUND => $barcode )
Link Here
|
54 |
|
56 |
|
55 |
$template->param( course => GetCourse($course_id) ); |
57 |
$template->param( course => GetCourse($course_id) ); |
56 |
|
58 |
|
57 |
if ( $action eq 'lookup' ) { |
59 |
if ( $action eq 'lookup' and $item ) { |
58 |
my $course_item = GetCourseItem( itemnumber => $item->{'itemnumber'} ); |
60 |
my $course_item = GetCourseItem( itemnumber => $item->itemnumber ); |
59 |
my $course_reserve = |
61 |
my $course_reserve = |
60 |
($course_item) |
62 |
($course_item) |
61 |
? GetCourseReserve( |
63 |
? GetCourseReserve( |
Lines 66-71
if ( $action eq 'lookup' ) {
Link Here
|
66 |
|
68 |
|
67 |
$template->param( |
69 |
$template->param( |
68 |
item => $item, |
70 |
item => $item, |
|
|
71 |
biblio => $item->biblio, |
69 |
course_item => $course_item, |
72 |
course_item => $course_item, |
70 |
course_reserve => $course_reserve, |
73 |
course_reserve => $course_reserve, |
71 |
|
74 |
|