Lines 41-47
if ( $auth_status ne "ok" || $op ne "cud-checkin" ) {
Link Here
|
41 |
} |
41 |
} |
42 |
|
42 |
|
43 |
binmode STDOUT, ":encoding(UTF-8)"; |
43 |
binmode STDOUT, ":encoding(UTF-8)"; |
44 |
print $input->header( -type => 'text/plain', -charset => 'UTF-8' ); |
44 |
print $input->header( -type => 'application/json', -charset => 'UTF-8' ); |
45 |
|
45 |
|
46 |
my $itemnumber = $input->param('itemnumber'); |
46 |
my $itemnumber = $input->param('itemnumber'); |
47 |
my $borrowernumber = $input->param('borrowernumber'); |
47 |
my $borrowernumber = $input->param('borrowernumber'); |