Bug 7684: multiple fixes for inventory

[koha.git] / tools / ajax-inventory.pl

diff --git a/tools/ajax-inventory.pl b/tools/ajax-inventory.pl
new file mode 100755 (executable)
index 0000000..24739b9
--- /dev/null
+++ b/tools/ajax-inventory.pl
@@ -0,0 +1,43 @@
+#!/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');
+