Bug 23846: Add a check to the data inconsistencies script
[koha.git] / tools / ajax-inventory.pl
1 #!/usr/bin/perl
2
3 use Modern::Perl;
4 use CGI qw ( -utf8 );
5 use C4::Auth;
6 use C4::Items qw( ModDateLastSeen );
7
8 my $input = new CGI;
9
10 # Authentication
11 my ($status, $cookie, $sessionId) = C4::Auth::check_api_auth($input, { tools => 'inventory' });
12 exit unless ($status eq "ok");
13
14
15 my $seen = $input->param('seen');
16 my @seent = split(/\|/, $seen);
17
18 # mark seen if applicable (ie: coming form mark seen checkboxes)
19 foreach ( @seent ) {
20     /SEEN-(.+)/ and &ModDateLastSeen($1);
21 }
22
23 print $input->header('application/json');