& '/widgets/wrappers/sharky/table_top.mc',
caption => "Existing Notes",
number => $number++ &>
Version |
Note |
% foreach my $n (@notes) {
% if ($flag) {
% } # if
<% $n->{id} %> |
<% $n->{note} %> |
% $flag = 1;
% } # foreach
% unless (@notes) {
<%$lang->maketext('No existing notes.')%> |
% } # unless
<& '/widgets/wrappers/sharky/table_bottom.mc' &>
<& '/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
}
} &>
<& '/widgets/wrappers/sharky/table_bottom.mc' &>
<& '/widgets/profile/button.mc',
disp => 'Save',
widget => $widget,
cb => 'add_note_cb',
button => 'save_red',
useTable => 0 &>
<& '/widgets/profile/button.mc',
disp => 'Cancel',
widget => $widget,
cb => 'return_cb',
button => 'cancel_lgreen',
useTable => 0 &>
<%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>