The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<%args>
$id => undef
$object_type
$mask_field => ""
$mask_val => ""
$list_path
</%args>
<%init>
my $record_class = Jifty->app_class("Model", $object_type);
my $record = $record_class->new();
$record->load($id);
my $update = Jifty->web->new_action(
    class   => "Update".$object_type,
    moniker => "update-" . Jifty->web->serial,
    record  => $record
);
my $delete = Jifty->web->new_action(
    class   => "Delete".$object_type,
    moniker => "delete-" . Jifty->web->serial,
    record  => $record
);

</%init>
<div class="jifty_admin read item inline">
  
<%
    Jifty->web->form->submit(
        class   => "editlink",
        label   => _('Delete'),
        onclick => [
         { confirm => _("Confirm delete?")},
         { submit => $delete },
         { delete =>  Jifty->web->current_region->qualified_name }
        ]
        )
%> 

<%
    Jifty->web->link(
        label   => _('Edit'),
        class   => "editlink",
        onclick => {
            replace_with => $list_path.'update',
            args         => { object_type => $object_type, id => $id, list_path => $list_path,
                            mask_field => $mask_field, mask_val => $mask_val }
            },
   #     as_button => 1
        )
%>

<% $delete->hidden('id',$id) %>
% foreach my $argument ($update->argument_names) {
% unless( $argument eq $mask_field ||  $argument =~ /_confirm$/
%        && lc $update->arguments->{$argument}{render_as} eq 'password') {
  <%$update->form_field($argument, render_mode => 'read')%>
% }
% }

<hr />
</div>