<& '/widgets/wrappers/sharky/table_top.mc', caption => "Version Notes", number => $number, &> % my $count = 0; % foreach my $n (@notes) { % if ( $n->{id} && $n->{note} ) { % } % } % unless ($count) { % }
Version Notes
<% $n->{id} %> <% $n->{note} |h %>
<% $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;