%#-- Begin HTML --# <& '/widgets/wrappers/sharky/header.mc', title => "$disp Profile", context => "Admin | Profile | $disp | $crumb" &>
<& '/widgets/wrappers/sharky/footer.mc', param => \%ARGS &> %#-- End HTML --# %#-- Once Section --# <%once>; my $class = 'Bric::Dist::ServerType'; my $section = 'admin'; my $type = 'dest'; my $disp = get_disp_name($type); my $yes_no = sub { $_[0] ? 'Yes' : 'No'}; my ($no_edit, $no_del); %once> %#-- Args Section --# <%args> $id => undef %args> %#-- Init Section --# <%init>; $id ||= $ARGS{dest_id}; # Instantiate an object. my $dest = $ARGS{obj} ? $ARGS{obj} : defined $id ? $class->lookup({ id => $id}) : $class->new; $id ||= $dest->get_id; # Check authorization. chk_authz($dest, $id ? READ : CREATE); $no_edit = !chk_authz($dest, ($id ? EDIT : CREATE), 1); $no_del = !$id || $no_edit; # Get the name for the breadcrumb trail. my $crumb = $dest->get_name; $crumb = $crumb ? ""$crumb"" : 'New'; $dest->set_site_id($ARGS{site_id}) if $ARGS{site_id}; %init> <%doc> ################################################################################ =head1 NAME /admin/profile/workflow/dhandler - Interface for managing destination profiles. =head1 VERSION $LastChangedRevision$ =head1 DATE $LastChangedDate: 2006-03-02 13:56:08 -0800 (Thu, 02 Mar 2006) $ =head1 DESCRIPTION This element handles the display for editing destination profiles. %doc>