<%args> $chunks => undef $nn => undef <%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;