% my $histcomp; % foreach my $h (sort { $a->eventTime <=> $b->eventTime } @{$events}) { % $histcomp = 'hist' . $h->eventType; # history component name <& $histcomp, event => $h &>
% } <& /htmlfooter &> <%args> $derivedobjectId => undef $objectName => undef $ssmObjectName => undef <%init> # Display a table of tracklets/detection history data for specified field ID. use PS::MOPS::DC::History; use PS::MOPS::DC::DerivedObject; my $inst = $m->notes('INST'); my $model = $m->notes('MODEL'); my $do; if ($objectName) { $do = modcdo_retrieve($inst, objectName => $objectName); } else { $do = modcdo_retrieve($inst, derivedobjectId => $derivedobjectId); } my $events = modch_retrieve($inst, derivedobjectId => $do->derivedobjectId);