%perl>; $m->comp( '/widgets/wrappers/sharky/table_top.mc', caption => 'Properties', number => 1 ); $m->comp( '/widgets/profile/displayFormElement.mc', key => 'site', readOnly => 1, objref => $media || $wf, ); $m->comp( '/widgets/profile/displayFormElement.mc', key => 'title', vals => $nmeth, ); %perl> % unless ($media) { <& /widgets/select_object/select_object.mc, disp => 'Media Type', name => "$widget|at_id", object => 'element_type', useTable => 1, field => 'name', default => ['' , ''], selected => $sel_mtype, req => 1, exclude => $excl_sub, constrain => { top_level => 1, media => 1, site_id => $site_id, }, &> % } else { <& /widgets/profile/displayFormElement.mc, key => 'element_type', readOnly => 1, objref => $media, &> % } <& /widgets/select_object/select_object.mc, disp => 'Source', object => 'source', name => "$widget|source__id", field => 'source_name', selected => $sel_source, useTable => 1, &> <& /widgets/select_object/select_object.mc, object => 'category', disp => 'Category', name => "$widget|category__id", field => 'uri', req => 1, sort_field => 'uri', constrain => { site_id => $site_id }, exclude => $excl_sub, selected => $sel_cat, useTable => 1, &> <& /widgets/profile/displayFormElement.mc, key => 'priority', vals => $pmeth, &> <& /widgets/profile/displayFormElement.mc, key => 'cover_date', vals => $cdate, &> % unless ($media && $media->get_file_name) {