Upgrade to 4.0.10.
[usit-rt.git] / share / html / Admin / Elements / EditCustomFieldValues
CommitLineData
84fb5b46
MKG
1%# BEGIN BPS TAGGED BLOCK {{{
2%#
3%# COPYRIGHT:
4%#
403d7b0b 5%# This software is Copyright (c) 1996-2013 Best Practical Solutions, LLC
84fb5b46
MKG
6%# <sales@bestpractical.com>
7%#
8%# (Except where explicitly superseded by other copyright notices)
9%#
10%#
11%# LICENSE:
12%#
13%# This work is made available to you under the terms of Version 2 of
14%# the GNU General Public License. A copy of that license should have
15%# been provided with this software, but in any event can be snarfed
16%# from www.gnu.org.
17%#
18%# This work is distributed in the hope that it will be useful, but
19%# WITHOUT ANY WARRANTY; without even the implied warranty of
20%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
21%# General Public License for more details.
22%#
23%# You should have received a copy of the GNU General Public License
24%# along with this program; if not, write to the Free Software
25%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
26%# 02110-1301 or visit their web page on the internet at
27%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
28%#
29%#
30%# CONTRIBUTION SUBMISSION POLICY:
31%#
32%# (The following paragraph is not intended to limit the rights granted
33%# to you to modify and distribute this software under the terms of
34%# the GNU General Public License and is only of importance to you if
35%# you choose to contribute your changes and enhancements to the
36%# community by submitting them to Best Practical Solutions, LLC.)
37%#
38%# By intentionally submitting any modifications, corrections or
39%# derivatives to this work, or any other work intended for use with
40%# Request Tracker, to Best Practical Solutions, LLC, you confirm that
41%# you are the copyright holder for those contributions and you grant
42%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
43%# royalty-free, perpetual, license to use, copy, create derivative
44%# works based on those contributions, and sublicense and distribute
45%# those contributions and any derivatives thereof.
46%#
47%# END BPS TAGGED BLOCK }}}
48% unless ( $values->Count ) {
49<p><em><&|/l&>(no values)</&></em></p>
50% return;
51% }
52
53<table>
54
55<tr>
56<th>&nbsp;</th>
57<th><&|/l&>Sort</&></th>
58<th><&|/l&>Name</&></th>
59<th><&|/l&>Description</&></th>
60% if ($CustomField->Type ne 'Combobox') {
61<th class="categoryheader"><&|/l&>Category</&></th>
62% }
63</tr>
64
65% while ( my $value = $values->Next ) {
66% my $paramtag = "CustomField-". $CustomField->Id ."-Value-". $value->Id;
67<tr>
68<td><input type="checkbox" class="checkbox" name="Delete-<% $paramtag %>" /></td>
69<td><input type="text" size="3" name="<% $paramtag %>-SortOrder" value="<% $value->SortOrder %>" /></td>
70<td><input type="text" size="25" name="<% $paramtag %>-Name" value="<% $value->Name %>" /></td>
71<td><input type="text" size="45" name="<% $paramtag %>-Description" value="<% $value->Description || '' %>" /></td>
72% if ( $CustomField->Type ne 'Combobox' ) {
73<td>
74% if ( $Categories ) {
75% my $selected = $value->Category;
76% $selected = '' unless defined $selected;
77<select class="editcategory" name="<% $paramtag %>-Category" size="1">
78<option value=""<% $selected eq '' ? q[ selected="selected"] : "" |n%>><&|/l&>(no value)</&></option>
79% while (my $Value = $Categories->Next) {
80<option value="<% $Value->Name %>"<% $selected eq $Value->Name ? q[ selected="selected"] : "" |n%>><% $Value->Name %></option>
81% }
82% } else {
83<input type="text" size="10" class="editcategory" name="<% $paramtag %>-Category" value="<% $value->Category || '' %>" />
84% }
85</td>
86% }
87% $m->callback(CallbackName => 'AfterCustomFieldValueInput', CustomFieldObj => $CustomField, CustomFieldValueObj => $value, ARGSRef => \%ARGS );
88</tr>
89% }
90
91</table>
92<i><&|/l&>(Check box to delete)</&></i>
93<%init>
94
95my $values = $CustomField->ValuesObj();
96
97my $BasedOnObj = $CustomField->BasedOnObj;
98my $Categories;
99if ($BasedOnObj and $BasedOnObj->Id) {
100 $Categories = $BasedOnObj->Values;
101}
102</%init>
103<%args>
104$CustomField => undef
105</%args>