%perl> $m->comp("/widgets/wrappers/sharky/table_top.mc", caption => "Properties", number => 1); $m->comp('/widgets/profile/displayFormElement.mc', key => 'title', vals => $nmeth ); %perl> <% $ieSpacer %> <& '/widgets/select_object/select_object.mc', disp => 'Media Type', name => "$widget|at_id", object => 'element', field => 'name', req => 1, constrain => { top_level => 1, media => 1 }, exclude => $excl_sub, useTable => 1 &> <% $ieSpacer %> <& '/widgets/select_object/select_object.mc', disp => 'Source', object => 'source', name => "$widget|source__id", field => 'source_name', useTable => 1 &> <% $ieSpacer %> <& '/widgets/select_object/select_object.mc', object => 'category', disp => 'Category', name => "$widget|category__id", field => 'uri', req => 1, sort_field => 'uri', exclude => $excl_sub, useTable => 1 &> <% $ieSpacer %> <&'/widgets/profile/displayFormElement.mc', key => "priority", vals => $pmeth, &> <% $ieSpacer %> <&'/widgets/profile/displayFormElement.mc', key => "cover_date", vals => $cdate, &> <% $ieSpacer %> <%perl> $m->comp("/widgets/wrappers/sharky/table_bottom.mc"); $m->comp("/widgets/wrappers/sharky/table_top.mc", caption => "Submit", number => 2, ghostly => 1 ); %perl>