<%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", image => %{ $media->get_notes } ? 'note_fill' : "note", value => 'edit' ); $m->comp("/widgets/wrappers/sharky/table_top.mc", caption => "Information", number => $num++, rightText => $rightText );
ID:   <% $id %>
Asset Type:   <% $media->get_element_name() %>
Current Version:   <% $media->get_current_version() %>
Published Version:   <% $media->get_published_version() %>
URI:   <% $media->get_uri %>
<% $ieSpacer %> <& '/widgets/profile/displayFormElement.mc', objref => $media, key => 'title', &> <% $ieSpacer %> <& '/widgets/profile/displayFormElement.mc', objref => $media, key => 'description', &> <% $ieSpacer %> <& '/widgets/select_object/select_object.mc', object => 'source', name => "$widget|source__id", field => 'source_name', selected => $media->get_source__id, indent => 0, useTable => 1, disp => "Source" &> <% $ieSpacer %> <& '/widgets/select_object/select_object.mc', object => 'category', name => "$widget|category__id", field => "uri", sort_field => "uri", selected => $media->get_category__id, indent => 0, req => 1, useTable => 1, exclude => sub { ! chk_authz($_[0], READ, 1) }, disp => "Category" &> <% $ieSpacer %> <& '/widgets/profile/displayFormElement.mc', objref => $media, key => 'priority', &> <% $ieSpacer %> <& '/widgets/profile/displayFormElement.mc', objref => $media, key => 'cover_date', &> <% $ieSpacer %> <& '/widgets/profile/displayFormElement.mc', objref => $media, key => 'expire_date', &> <% $ieSpacer %> % $m->comp("/widgets/wrappers/sharky/table_bottom.mc"); % $m->comp("/widgets/wrappers/sharky/table_top.mc", % caption => "Upload a file", % number => $num++ % );
valign=top align=right>File Path: >
<& '/widgets/profile/imageSubmit.mc', formName => "theForm", callback => $widget ."|update_pc", image => "upload_red" &>
Download: % if (my $uri = $media->get_local_uri()) { <% $media->get_file_name %> % } else { No file has been uploaded % }
<%perl> $m->comp("/widgets/wrappers/sharky/table_bottom.mc"); $num = $m->comp( '/widgets/container_prof/container_prof.mc', tile => $tile, tile_type => 'media', action => 'edit', num => $num, title => 'Content', start_count => 6 ); $m->comp("/widgets/wrappers/sharky/table_top.mc", caption => "Contributors", number => $num++);
align="right">Contributors: > <%perl> my @existing_contribs = map { $_->get_name } $media->get_contributors; $m->out((scalar(@existing_contribs)) ? " " . join(", ", @existing_contribs) : " No contributors defined."); <& '/widgets/profile/imageSubmit.mc', formName => "theForm", callback => $widget ."|contributors_cb", image => "edit_lgreen", vspace => 3 &>
<%perl> $m->comp("/widgets/wrappers/sharky/table_bottom.mc"); $m->comp("/widgets/profile/buttonBar.mc", widget => $widget, desks => $desks, cd => $cd, obj => $media, ); %#-- Args Section --# <%args> $widget %#-- Init Section --# <%init> my $media = get_state_data($widget, 'media'); my $tile = $media->get_tile(); set_state_data('container_prof', 'tile', $tile); my $wf_id = get_state_data($widget, 'work_id'); $wf_id = $media->get_workflow_id() unless $wf_id; my $wf = Bric::Biz::Workflow->lookup( { id => $wf_id }); my $desks = $wf->allowed_desks(); my $cd = $media->get_current_desk(); $cd = $wf->get_start_desk() unless $cd; my $id = $media->get_id; # Set up a formatting variable my $agent = $m->comp("/widgets/util/detectAgent.mc"); my $infoIndent = ($agent->{browser} eq "Netscape") ? FIELD_INDENT - 5 : FIELD_INDENT + 8; my $num = 1; my $ieSpacer = ($agent->{browser} eq "Internet Explorer") ? qq{
} : '';