%perl> my $toText = $m->scomp( '/widgets/profile/imageSubmit.mc', formName => "theForm", callback => $widget . "|trail_cb", image => "view_trail_teal", alt => 'Trail', ) . ' '; $toText .= $m->scomp( '/widgets/profile/imageSubmit.mc', formName => "theForm", callback => $widget . "|notes_cb", value => 'view', image => $fa->has_notes ? 'note_fill' : "note", alt => 'Notes', useGlobalImage => 1, ); %perl> <& '/widgets/wrappers/sharky/table_top.mc', caption => "Information", number => 1, toText => $toText &>
<& '/widgets/wrappers/sharky/table_bottom.mc' &> <& '/widgets/wrappers/sharky/table_top.mc', caption => $caption, number => 2 &><% $code %><& '/widgets/wrappers/sharky/table_bottom.mc' &> % if ($curr_ver > 1) { <& '/widgets/wrappers/sharky/table_top.mc', caption => 'Select Diff Version', number => 3 &> <& '/widgets/profile/select.mc', name => 'from_version', disp => 'From Version', options => $versions, value => $param->{from_version}, &> <& '/widgets/profile/select.mc', name => 'to_version', disp => 'To Version', options => $versions, value => $param->{to_version}, &> <& '/widgets/profile/button.mc', name => 'diff', button => 'view_diff', useTable => 1, value => 1, &> <& '/widgets/wrappers/sharky/table_bottom.mc' &> % } <& '/widgets/profile/button.mc', disp => 'Return', widget => $widget, cb => 'return_cb', button => 'return_dgreen', useTable => 0 &> <%args> $widget $param %args> <%init> my $fa = get_state_data($widget, 'template'); my $cat_name = $fa->get_category_name; my $oc_name = $fa->get_output_channel_name; my $curr_ver = $fa->get_current_version; my $versions = [ map { [ $_ => $_] } reverse 1 .. $curr_ver ]; my ($code, $caption); # Generate the diff. if ($param->{diff}) { my $version = $fa->get_version; my $from = $param->{from}; my $to = $param->{to}; my $from_ver = $param->{from_version}; my $to_ver = $param->{to_version}; $code = '