<%args>
$chunks => undef
$nn => undef
</%args>

<%init>
use Data::Dumper;
use PS::MOPS::IPP qw(change_chunk_status);

my $inst = $m->notes('INST');
my $dbname = $inst->dbname;
my $result;
my @args;
my $cmd;

if (ref($chunks)) {
    @args = @{$chunks};
}
else {
    @args = $chunks;
}

# Update chunks
$result = change_chunk_status($inst, $nn,

$r->content_type('text/plain');
$m->clear_buffer;
#$m->print(Dumper($tracklet), $cmd, "\n", @result);
$m->print($cmd, "\n", $result, "\n\n");
$m->abort;
</%init>