<& '/widgets/profile/hidden.mc', name => 'container_prof|update_cb', value => 1, &> % if (ENABLE_WYSIWYG) { <& /widgets/wysiwyg/load.mc &> %} <%perl>; # Show the story summary if needed. $m->comp('/widgets/summary/summary.mc', asset => $asset, number => 1) if $show_summary; # Check if we should display elements. if ($element->get_elements || $element->get_possible_field_types || grep { chk_authz($_, READ, 1) } $element->get_possible_containers ) { $m->comp("/widgets/wrappers/table_top.mc", caption => $title, id => 'containerprof', number => $num++ ); <& 'container.mc', widget => $widget, element => $element &> <& "/widgets/wrappers/table_bottom.mc" &> % } % if ($show_summary) {
<& '/widgets/profile/checkbox.mc', name => "$widget|delete", id => $widget . "delete", value => "Delete", disp => $lang->maketext('Delete this Profile'), label_after => 1, useTable => 0, &>
<& "/widgets/buttons/submit.mc", disp => 'Save', widget => $widget, cb => 'save_and_up_cb', button => 'save_red', useTable => 0 &> <& "/widgets/buttons/submit.mc", disp => 'Save and Stay', widget => $widget, cb => 'save_and_stay_cb', button => 'save_and_stay_lgreen', useTable => 0 &>
<& "/widgets/buttons/submit.mc", disp => 'Cancel', widget => $widget, cb => 'up_cb', button => 'cancel_red', useTable => 0 &>
% } <%perl>; return $num; <%args> $widget $num => undef $title => undef $show_summary => undef <%init>; # the element object my $element = get_state_data($widget, 'element'); $title ||= $element->get_name; my $start = get_state_data($widget, 'start'); my $at_id = $element->get_element_type_id; my $at = Bric::Biz::ElementType->lookup({'id' => $at_id}); # Nab the story from the story_prof widget. my $type = $element->get_object_type; my $asset = get_state_data($type.'_prof', $type);