<%PERL>
my @entry_fields;
while (my $cf = $CustomFields->Next) {
    next if $NoCF->{$cf->Name};
    if ($cf->IsEntry) {
        push @entry_fields, $cf;
        next;
    }
    elsif (@entry_fields) {

</%PERL>
<tr><td valign="top"><p><img src="/img/3Dtoolbar.png" width="3" height="18" align="absmiddle"> 
<&|/l&>Details</&>
</p></td><td valign="top"><img src="/img/arrow_DarkBlue.png" width="5" height="9" align="absmiddle"></td><td> 
<& /Work/Tickets/Elements/EditCustomFieldEntries, CustomFields => \@entry_fields, TempValues => $Entries, Loc => $Loc, TicketObj => $Ticket, ReadOnly => $ReadOnly, Check => $Check &>
</td></tr>
<%PERL>

        @entry_fields = ();
    }
    my $attr = $cf->Attribute($Check);
    if ($cf->Type =~ /^Label(.+)$/ and $1 ne 'URL') {
        $m->comp("/Work/Tickets/Elements/$ShowOrAdd$1", CustomField => $cf, Description => $cf->Description, Subject => $Ticket->Subject, %ARGS) unless $NoCF->{$1}++ or $attr eq 'hidden' or ($1 ne 'Attachments' and $ShowOrAdd eq 'Show');
        next;
    }

</%PERL>
<tr valign="top" <% ($attr eq 'hidden') ? 'style="display: none"' : '' |n %>><td width=65><nobr><img src="/img/3Dtoolbar.png" width="3" height="18" align="absmiddle">
<%PERL>

    if ($cf->Type eq 'LabelURL') {
        my $url = $cf->Name;
        $url =~ s/\$(\w+)/$UserObj->val($1)/eg;

</%PERL>
      </nobr></td><td>&nbsp;</td><td><a <% $url =~ /^\w+:/ ? 'href=' : 'name=' %>"<% $url %>"><% $cf->Description |n %></a></td></tr>
<%PERL>

        next;
    }

    my $cf_key = ("CustomField-" . $cf->Id . "-Values");
    my $descr = $cf->DescriptionOrName;
    $descr = loc($descr) if $Loc;

</%PERL>
    <% $descr %>&nbsp;</nobr></td>
    <td><img src="/img/arrow_DarkBlue.png" width="5" height="9" align="absmiddle"></td>
    <td><& /Work/Tickets/Elements/EditCustomField,
        Name        => 'CustomField-'.$cf->Id,
        CustomField => $cf,
        ReadOnly    => (($ReadOnly or ($attr eq 'readonly')) and ($attr ne 'hidden')),
        Queue       => $Ticket->Queue,
        Loc         => $Loc,
        Description => $descr,
    ($Ticket->Id) ? (
        NamePrefix  => "Ticket-" . $Ticket->Id . "-CustomField-",
        TicketObj   => $Ticket,
    ) : (
        NamePrefix  => "CustomField-",
        Value       => (exists($ARGS{$cf_key}) ? $ARGS{$cf_key} : $cf->Attribute('Default')),
    ) &></td></tr>
<%PERL>

}
if (@entry_fields) {

</%PERL>
<tr><td valign="top"><p><img src="/img/3Dtoolbar.png" width="3" height="18" align="absmiddle"> 
<&|/l&>Details</&>
</p></td><td valign="top"><img src="/img/arrow_DarkBlue.png" width="5" height="9" align="absmiddle"></td><td> 
<& /Work/Tickets/Elements/EditCustomFieldEntries, CustomFields => \@entry_fields, TempValues => $Entries, Loc => $Loc, TicketObj => $Ticket, ReadOnly => $ReadOnly, Check => $Check &>
</td></tr>
<%PERL>

    @entry_fields = ();
}

if ($ShowOrAdd eq 'Show' and !$NoCF->{Attachments}++) {
    $m->comp("/Work/Tickets/Elements/${ShowOrAdd}Attachments", %ARGS, Optional => 1, Subject => $Ticket->Subject);
}

</%PERL>
<%INIT>
my $UserObj = $Ticket->FirstRequestor;
my $CustomFields = $Ticket->QueueObj->CustomFields;
$ShowOrAdd ||= ($ReadOnly ? 'Show' : 'Add');
</%INIT>
<%ARGS>
$Entries    => undef
$Ticket	    => undef
$ReadOnly   => undef
$ShowOrAdd  => undef
$Check      => 'OnUpdate'
$NoCF	    => {}
$Loc	    => 0
</%ARGS>
