% $m->comp("/widgets/wrappers/sharky/table_top.mc", % caption => "Existing 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"); % $m->comp("/widgets/wrappers/sharky/table_top.mc", % caption => "Current Note", % number => $number); % my $key = $widget . '|note'; <& '/widgets/profile/displayFormElement.mc', key => $key, vals => { disp => 'Note', value => $current, props => { type => 'textarea', cols => 45, rows => 4 } } &> % $m->comp("/widgets/wrappers/sharky/table_bottom.mc");
<%args> $widget $number <%init>; my $notes = get_state_data($widget, 'notes'); my $version = get_state_data($widget, 'version'); my $return_url = get_state_data($widget, 'return_url'); my $current = delete $notes->{$version}; my @notes = map { { id => $_, note => $notes->{$_} } } sort { $notes->{$a} <=> $notes->{$b} } keys %$notes; my $flag;