<& '/widgets/wrappers/sharky/table_top.mc', caption => "Notes", number => $number, &> % my $count = 1; % foreach my $n (@notes) { % } % unless (@notes) { % }
Version Note
<% $n->{id} %> <% $n->{note} %>
<% $lang->maketext('No existing notes.') %>
% $m->comp("/widgets/wrappers/sharky/table_bottom.mc");
<& '/widgets/buttons/submit.mc', disp => 'Return', widget => $widget, cb => 'return_cb', button => 'return_dgreen', useTable => 0, &>
<%args> $widget $number <%init> my $notes = get_state_data($widget, 'notes'); my @notes = map { { id => $_, note => $notes->{$_} } } sort { $b <=> $a } keys %$notes;