<% $lang->maketext('Category') %>: | <%perl> my $cat = $media->get_category; $m->out($cat->get_name); %perl> | <& '/widgets/profile/imageSubmit.mc', formName => "theForm", callback => "$widget|category_cb", image => "edit_lgreen", vspace => 4 &> |
![]() |
<% $lang->maketext('Keywords') %>: | <%perl> my @keywords; foreach my $kw ($media->get_keywords) { push @keywords, $kw->get_name; } $m->out(scalar(@keywords) ? join(", ", @keywords) : $lang->maketext("No keywords defined.")); %perl> | <& '/widgets/profile/imageSubmit.mc', formName => "theForm", callback => "$widget|keywords_cb", image => "edit_lgreen", vspace => 4 &> |
![]() |
<% $lang->maketext('Contributors') %>: | <%perl> my @contribs; foreach my $cntr ($media->get_contributors) { push @contribs, $cntr->get_name; } $m->out(scalar(@contribs) ? join(", ", @contribs) : $lang->maketext("No contributors defined.")); %perl> |
% if ($media->get_alias_id) {
![]() |
![]() |