1 <SELECT NAME="<% $opt{name} %>">
3 <OPTION VALUE="<% shift @fields %>"><% shift @fields %></OPTION>
11 my $lookuptype = $opt{lookuptype};
12 my $valuetype = $opt{valuetype};
13 # get a list of TimeValue-type custom fields
14 my $CurrentUser = RT::CurrentUser->new();
15 $CurrentUser->LoadByName($FS::CurrentUser::CurrentUser->username);
16 die "RT not configured" unless $CurrentUser->id;
17 my $CFs = RT::CustomFields->new($CurrentUser);
19 $CFs->Limit(FIELD => 'LookupType',
20 OPERATOR => 'ENDSWITH',
24 $CFs->Limit(FIELD => 'Type',
29 push @fields, '', $opt{empty_label} if exists($opt{empty_label});
31 while (my $CF = $CFs->Next) {
32 push @fields, $CF->Name, ($CF->Description || $CF->Name);