Lines 22-27
use Modern::Perl;
Link Here
|
22 |
|
22 |
|
23 |
use C4::Auth qw( get_template_and_user ); |
23 |
use C4::Auth qw( get_template_and_user ); |
24 |
use CGI qw ( -utf8 ); |
24 |
use CGI qw ( -utf8 ); |
|
|
25 |
use JSON; |
25 |
use Text::CSV::Encoded; |
26 |
use Text::CSV::Encoded; |
26 |
use C4::Context; |
27 |
use C4::Context; |
27 |
use C4::Output qw( output_html_with_http_headers ); |
28 |
use C4::Output qw( output_html_with_http_headers ); |
Lines 152-163
if ($do_it) {
Link Here
|
152 |
$result->{'biblioitemnumber'} = q{}; |
153 |
$result->{'biblioitemnumber'} = q{}; |
153 |
$result->{'barcode'} = q{}; |
154 |
$result->{'barcode'} = q{}; |
154 |
|
155 |
|
155 |
if ( substr( $log->info, 0, 4 ) eq 'item' || $log->module eq "CIRCULATION" ) { |
156 |
if ( substr( $log->info, 0, 4 ) eq 'item' ) { |
156 |
|
157 |
|
157 |
# get item information so we can create a working link |
158 |
# get item information so we can create a working link |
158 |
my $itemnumber = $log->object; |
159 |
my $itemnumber = $log->object; |
159 |
$itemnumber = $log->info if ( $log->module eq "CIRCULATION" ); |
160 |
my $item = Koha::Items->find($itemnumber); |
160 |
my $item = Koha::Items->find($itemnumber); |
|
|
161 |
if ($item) { |
161 |
if ($item) { |
162 |
$result->{'object_found'} = 1; |
162 |
$result->{'object_found'} = 1; |
163 |
$result->{'biblionumber'} = $item->biblionumber; |
163 |
$result->{'biblionumber'} = $item->biblionumber; |
Lines 166-171
if ($do_it) {
Link Here
|
166 |
} |
166 |
} |
167 |
} |
167 |
} |
168 |
|
168 |
|
|
|
169 |
if ( $log->module eq "CIRCULATION" ) { |
170 |
my $info = $log->info; |
171 |
my $decoded; |
172 |
my $is_json = eval { |
173 |
$decoded = decode_json($info); |
174 |
1; |
175 |
}; |
176 |
|
177 |
if ( $is_json && ref($decoded) ) { |
178 |
$result->{'json_found'} = 1; |
179 |
my $item = Koha::Items->find( $decoded->{itemnumber} ); |
180 |
if ($item) { |
181 |
$decoded->{biblionumber} = $item->biblionumber; |
182 |
$decoded->{biblioitemnumber} = $item->biblionumber; |
183 |
$decoded->{barcode} = $item->barcode; |
184 |
} |
185 |
$result->{'json'} = $decoded; |
186 |
} else { |
187 |
my $item = Koha::Items->find($info); |
188 |
if ($item) { |
189 |
$result->{'object_found'} = 1; |
190 |
$result->{'biblionumber'} = $item->biblionumber; |
191 |
$result->{'biblioitemnumber'} = $item->biblionumber; |
192 |
$result->{'barcode'} = $item->barcode; |
193 |
} |
194 |
} |
195 |
} |
196 |
|
169 |
#always add firstname and surname for librarian/user |
197 |
#always add firstname and surname for librarian/user |
170 |
if ( $log->user ) { |
198 |
if ( $log->user ) { |
171 |
my $patron = Koha::Patrons->find( $log->user ); |
199 |
my $patron = Koha::Patrons->find( $log->user ); |
172 |
- |
|
|