<%perl> my $rightText = $m->scomp( '/widgets/profile/imageSubmit.mc', formName => "theForm", callback => $widget . "|trail_cb", image => "view_trail_teal" ) . ' '; $rightText .= $m->scomp( '/widgets/profile/imageSubmit.mc', formName => "theForm", callback => $widget . "|notes_cb", value => 'view', image => %{ $media->get_notes } ? 'note_fill' : "note" ); $m->comp("/widgets/wrappers/sharky/table_top.mc", caption => "Information", number => $num++, rightText => $rightText );
ID:   <% $id %>
Asset Type:   <% $media->get_element_name %>
Title:   <% $media->get_title %>
URI:   <% $media->get_uri %>
Source:   <% Bric::Biz::Org::Source->lookup({ id => $media->get_source__id })->get_source_name %>
Description:   <% $media->get_description %>
Current Version:   <% $media->get_version() %>
Published Version:   <% $media->get_published_version() %>
Priority:   <% $media->get_priority() %>
% $m->comp("/widgets/wrappers/sharky/table_bottom.mc"); % $m->comp("/widgets/wrappers/sharky/table_top.mc", % caption => "The File", % number => 2 % );
Download:    % if (my $uri = $media->get_local_uri()) { <% $media->get_file_name %> % } else { No file has been uploaded. % }
% $m->comp("/widgets/wrappers/sharky/table_bottom.mc"); <& '/widgets/container_prof/container_prof.mc', tile => $tile, tile_type => 'media', action => 'view', num => 3, title => 'Content', start_count => 6 &> % $m->comp("/widgets/wrappers/sharky/table_top.mc", % caption => "Contributors", % number => 4);
Contributors:  <%perl> my @existing_contribs = map { $_->get_name } $media->get_contributors; $m->out((scalar(@existing_contribs)) ? " " . join(", ", @existing_contribs) : " No contributors defined.");
% $m->comp("/widgets/wrappers/sharky/table_bottom.mc"); <%args> $widget <%init> my $media = get_state_data($widget, 'media'); my $id = $media->get_id; my $tile = $media->get_tile(); set_state_data('container_prof', 'tile', $tile); my $agent = $m->comp("/widgets/util/detectAgent.mc"); my $infoIndent = ($agent->{browser} eq "Netscape") ? FIELD_INDENT - 5 : FIELD_INDENT + 8; my $num = 1;