f86a16182b
This followup fixes some QA issues: - replace the MySQLism SQL_CALC_FOUND_ROWS - use Koha::DateUtils instead of C4::Dates - replace "branch" and "location" with "library" - fixe wrong capitalisation on "Clear all" and "Select all" and fixes some behaviors: - the inventory tools can be used without barcode file (fixed for the csv export too). - mark as not scanned a non scanned item. - update the datelastseen 1 time per biblio (and fixes the displayed count) Signed-off-by: Mathieu Saby <mathieu.saby@univ-rennes2.fr> 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>
23 lines
504 B
Perl
Executable file
23 lines
504 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use Modern::Perl;
|
|
use CGI;
|
|
use C4::Auth;
|
|
use C4::Items qw( ModDateLastSeen );
|
|
|
|
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');
|