& '/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++ ); %perl> <& 'container.mc', widget => $widget, element => $element &> <& "/widgets/wrappers/table_bottom.mc" &> % } % if ($show_summary) {
% } <%perl>; return $num; %perl> <%args> $widget $num => undef $title => undef $show_summary => undef %args> <%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); %init>