% $m->comp("/widgets/wrappers/sharky/table_top.mc", % caption => "Notes", % number => $number); % foreach my $n (@notes) { % if ($flag) { % } # if % $flag = 1; % } # foreach % unless (@notes) { % } # unless
Version Note
<% $n->{id} %>   <% $n->{note} %>
 <% $lang->maketext('No existing notes.')%>
% $m->comp("/widgets/wrappers/sharky/table_bottom.mc");
<%args> $widget $number <%init> my $notes = get_state_data($widget, 'notes'); my @notes = map { { id => $_, note => $notes->{$_} } } sort { $notes->{$a} <=> $notes->{$b} } keys %$notes; my $flag;