0313856d9a
* when a file was uploaded and the comparison with catalogue range
requested, the comparison was wrong: the logic was wrong
* items that were not supposed to be scanned (ie: supposed to be on another shelf)
didn't had the author and title, it was hard to retrieve them on the shelved
* some useful fields were missing, like homebranch, location, status
* the CSV export contained all the item information. It should contain the same
informations as the screen
Behaviour now:
* scan a list of barcode & select a range of location
* if a barcode has been scanned and should not be (misplaced item),
the information is displayed
* if you choose "compare barcodes list to result option", the
resulting list contains all items that have been scanned and those
that were supposed to be. Any item not in both list appears with a
specific message on the last column
Signed-off-by: Leila <koha.aixmarseille@gmail.com>
Signed-off-by: Koha Team Amu <koha.aixmarseille@gmail.com>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
43 lines
887 B
Perl
Executable file
43 lines
887 B
Perl
Executable file
#!/usr/bin/perl
|
|
#
|
|
|
|
use Modern::Perl;
|
|
|
|
use CGI;
|
|
use JSON;
|
|
|
|
use C4::Auth;
|
|
use C4::Circulation qw/CanBookBeRenewed/;
|
|
use C4::Context;
|
|
use C4::Koha qw/getitemtypeimagelocation/;
|
|
use C4::Reserves qw/CheckReserves/;
|
|
use C4::Utils::DataTables;
|
|
use C4::Output;
|
|
use C4::Biblio;
|
|
use C4::Items;
|
|
use C4::Dates qw/format_date format_date_in_iso/;
|
|
use C4::Koha;
|
|
use C4::Branch; # GetBranches
|
|
use C4::Reports::Guided; #_get_column_defs
|
|
use C4::Charset;
|
|
use List::MoreUtils qw /none/;
|
|
|
|
|
|
my $input = new CGI;
|
|
|
|
# Authentication
|
|
my ($status, $cookie, $sessionId) = C4::Auth::check_api_auth($input, { tools => 'inventory' });
|
|
exit unless ($status eq "ok");
|
|
|
|
|
|
my $seen = $input->param('seen');
|
|
my @seent = split(/\|/, $seen);
|
|
|
|
# mark seen if applicable (ie: coming form mark seen checkboxes)
|
|
foreach ( @seent ) {
|
|
/SEEN-(.+)/ and &ModDateLastSeen($1);
|
|
}
|
|
|
|
|
|
print $input->header('application/json');
|
|
|