% $m->comp("/widgets/wrappers/sharky/table_top.mc",
% caption => "Existing Notes",
% number => $number++);
 |
% foreach my $n (@notes) {
% if ($flag) {
% } # if
<% $n->{id} %> |
<% $n->{note} %> |
% $flag = 1;
% } # foreach
% unless (@notes) {
<%$lang->maketext('No existing notes.')%> |
 |
% } # unless
% $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
%args>
<%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;
%init>