diff options
author | Ivan Kohler <ivan@freeside.biz> | 2015-07-09 22:18:55 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2015-07-09 22:18:55 -0700 |
commit | 1c538bfabc2cd31f27067505f0c3d1a46cba6ef0 (patch) | |
tree | 96922ad4459eda1e649327fd391d60c58d454c53 /rt/lib/RT/ObjectCustomFields.pm | |
parent | 4f5619288413a185e9933088d9dd8c5afbc55dfa (diff) |
RT 4.2.11, ticket#13852
Diffstat (limited to 'rt/lib/RT/ObjectCustomFields.pm')
-rw-r--r-- | rt/lib/RT/ObjectCustomFields.pm | 53 |
1 files changed, 6 insertions, 47 deletions
diff --git a/rt/lib/RT/ObjectCustomFields.pm b/rt/lib/RT/ObjectCustomFields.pm index 1a488aa..8c31047 100644 --- a/rt/lib/RT/ObjectCustomFields.pm +++ b/rt/lib/RT/ObjectCustomFields.pm @@ -46,47 +46,23 @@ # # END BPS TAGGED BLOCK }}} -package RT::ObjectCustomFields; - use strict; use warnings; +package RT::ObjectCustomFields; +use base 'RT::SearchBuilder::AddAndSort'; +use RT::CustomField; use RT::ObjectCustomField; -use base 'RT::SearchBuilder'; - sub Table { 'ObjectCustomFields'} -sub _Init { - my $self = shift; - - # By default, order by SortOrder - $self->OrderByCols( - { ALIAS => 'main', - FIELD => 'SortOrder', - ORDER => 'ASC' }, - { ALIAS => 'main', - FIELD => 'id', - ORDER => 'ASC' }, - ); - - return ( $self->SUPER::_Init(@_) ); -} - - sub LimitToCustomField { my $self = shift; my $id = shift; $self->Limit( FIELD => 'CustomField', VALUE => $id ); } -sub LimitToObjectId { - my $self = shift; - my $id = shift || 0; - $self->Limit( FIELD => 'ObjectId', VALUE => $id ); -} - sub LimitToLookupType { my $self = shift; my $lookup = shift; @@ -112,22 +88,16 @@ sub HasEntryForCustomField { my @items = grep {$_->CustomField == $id } @{$self->ItemsArrayRef}; if ($#items > 1) { - die "$self HasEntry had a list with more than one of $id in it. this can never happen"; + die "$self HasEntry had a list with more than one of $id in it. this can never happen"; } if ($#items == -1 ) { - return undef; + return undef; } else { - return ($items[0]); + return ($items[0]); } } -sub CustomFields { - my $self = shift; - my %seen; - map { $_->CustomFieldObj } @{$self->ItemsArrayRef}; -} - sub _DoSearch { my $self = shift; if ($self->{'_cfs_alias'}) { @@ -139,17 +109,6 @@ sub _DoSearch { $self->SUPER::_DoSearch() } - -=head2 NewItem - -Returns an empty new RT::ObjectCustomField item - -=cut - -sub NewItem { - my $self = shift; - return(RT::ObjectCustomField->new($self->CurrentUser)); -} RT::Base->_ImportOverlays(); 1; |