& '/widgets/wrappers/sharky/table_top.mc',
caption => "Existing Notes",
number => $number++
&>
Version |
Note |
% if (%$notes) {
% for my $version (sort {$a <=> $b } keys %$notes) {
<% $version %> |
<% $notes->{$version} %> |
% } # for my $version
% } # if (%$notes)
% else {
<% $lang->maketext('No existing notes.') %> |
% } # else
<& '/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/profile/hidden.mc',
name => 'return_url',
value => $return_url,
&>
<& '/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 $obj = get_state_data($widget => 'obj');
my $current = $obj->get_note;
%init>