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