diff options
Diffstat (limited to 'rt/lib/RT/TicketCustomFieldValues_Overlay.pm')
-rw-r--r-- | rt/lib/RT/TicketCustomFieldValues_Overlay.pm | 86 |
1 files changed, 86 insertions, 0 deletions
diff --git a/rt/lib/RT/TicketCustomFieldValues_Overlay.pm b/rt/lib/RT/TicketCustomFieldValues_Overlay.pm new file mode 100644 index 000000000..5777c37e3 --- /dev/null +++ b/rt/lib/RT/TicketCustomFieldValues_Overlay.pm @@ -0,0 +1,86 @@ +# 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 +use strict; +no warnings qw(redefine); + +# {{{ sub LimitToCustomField + +=head2 LimitToCustomField FIELD + +Limits the returned set to values for the custom field with Id FIELD + +=cut + +sub LimitToCustomField { + my $self = shift; + my $cf = shift; + return ($self->Limit( FIELD => 'CustomField', + VALUE => $cf, + OPERATOR => '=')); + +} + +# }}} + +# {{{ sub LimitToTicket + +=head2 LimitToTicket TICKETID + +Limits the returned set to values for the ticket with Id TICKETID + +=cut + +sub LimitToTicket { + my $self = shift; + my $ticket = shift; + return ($self->Limit( FIELD => 'Ticket', + VALUE => $ticket, + OPERATOR => '=')); + +} + +# }}} + + +=sub HasEntry VALUE + +Returns true if this CustomFieldValues collection has an entry with content that eq VALUE + +=cut + + +sub HasEntry { + my $self = shift; + my $value = shift; + + #TODO: this could cache and optimize a fair bit. + foreach my $item (@{$self->ItemsArrayRef}) { + return(1) if ($item->Content eq $value); + } + return undef; + +} + +1; + |