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