Lines 11-23
my $input = CGI->new;
Link Here
|
11 |
my ($status, $cookie, $sessionId) = C4::Auth::check_api_auth($input, { tools => 'inventory' }); |
11 |
my ($status, $cookie, $sessionId) = C4::Auth::check_api_auth($input, { tools => 'inventory' }); |
12 |
exit unless ($status eq "ok"); |
12 |
exit unless ($status eq "ok"); |
13 |
|
13 |
|
|
|
14 |
my $op = $input->param('op') // q{}; |
14 |
|
15 |
|
15 |
my $seen = $input->param('seen'); |
16 |
if ( $op eq 'cud-seen' ) { |
16 |
my @seent = split(/\|/, $seen); |
17 |
my $seen = $input->param('seen'); |
|
|
18 |
my @seent = split( /\|/, $seen ); |
17 |
|
19 |
|
18 |
# mark seen if applicable (ie: coming form mark seen checkboxes) |
20 |
# mark seen if applicable (ie: coming form mark seen checkboxes) |
19 |
foreach ( @seent ) { |
21 |
foreach (@seent) { |
20 |
/SEEN-(.+)/ and &ModDateLastSeen($1); |
22 |
/SEEN-(.+)/ and &ModDateLastSeen($1); |
|
|
23 |
} |
21 |
} |
24 |
} |
22 |
|
25 |
|
23 |
print $input->header('application/json'); |
26 |
print $input->header('application/json'); |
24 |
- |
|
|