%# BEGIN LICENSE BLOCK
%# 
%# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
%# 
%# (Except where explictly superceded by other copyright notices)
%# 
%# This work is made available to you under the terms of Version 2 of
%# the GNU General Public License. A copy of that license should have
%# been provided with this software, but in any event can be snarfed
%# from www.gnu.org
%# 
%# This work is distributed in the hope that it will be useful, but
%# WITHOUT ANY WARRANTY; without even the implied warranty of
%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
%# General Public License for more details.
%# 
%# 
%# Unless otherwise specified, all modifications, corrections or
%# extensions to this work which alter its source code become the
%# property of Best Practical Solutions, LLC when submitted for
%# inclusion in the work.
%# 
%# 
%# END LICENSE BLOCK

% if ( my $constituency_cf = RT::IR->CustomFields( 'Constituency', Queue => $QueueObj->Name ) ) {
<tr><td class="label"><&|/l&>Constituency</&>:</td>
<td class="value">
% if ( !$ChildObj || RT->Config->Get('_RTIR_Constituency_Propagation') eq 'no' ) {
% my $default;
% $default = $ChildObj->FirstCustomFieldValue('Constituency') if $ChildObj;
% $default ||= RT::IR::DefaultConstituency( $QueueObj );
% $default ||= scalar RT->Config->Get('RTIR_CustomFieldsDefaults')->{'Constituency'};
<& /RTIR/Elements/EditRTIRField,
    QueueObj => $QueueObj,
    Name     => 'Constituency',
    Default  => $default,
    Rows     => 1,
&>
% } else {
% #TODO: hacks, we need way to define CF value on Create, but don't allow user to change it
<input type="hidden" class="hidden" name="Constituency" value="Object-RT::Ticket--CustomField-<% $constituency_cf->id %>-Values" />
<input type="hidden" class="hidden" name="Object-RT::Ticket--CustomField-<% $constituency_cf->id %>-Values-Magic" value="1" />
<input type="hidden" class="hidden" name="Object-RT::Ticket--CustomField-<% $constituency_cf->id %>-Values" value="<% $ChildObj->FirstCustomFieldValue('Constituency') %>" />
<& /RTIR/Elements/ShowRTIRField, Ticket => $ChildObj, Name => 'Constituency' &>
% }
</td></tr>
% }

<& /RTIR/Elements/EditCustomFields,
    %ARGS,
    TicketObj    => undef,
    QueueObj     => $QueueObj,
    DefaultsFrom => $ChildObj,
&>

<%INIT>
my $constituency_cf = RT::IR->CustomFields( 'Constituency', Queue => $QueueObj->Name );
</%INIT>
<%ARGS>
$NamePrefix => ''
$QueueObj   => undef
$ChildObj   => undef
$Subject    => ''
</%ARGS>
