X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Flib%2FRT%2FCustomFields.pm;h=ba3b01cfbac7f84b7fda9f9cbe8b1243f15037fc;hp=c1c4021520b620b73fe7285e368afc76caf3e85a;hb=919e930aa9279b3c5cd12b593889cd6de79d67bf;hpb=75162bb14b3e38d66617077843f4dfdcaf09d5c4 diff --git a/rt/lib/RT/CustomFields.pm b/rt/lib/RT/CustomFields.pm index c1c402152..ba3b01cfb 100644 --- a/rt/lib/RT/CustomFields.pm +++ b/rt/lib/RT/CustomFields.pm @@ -2,7 +2,7 @@ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC # # # (Except where explicitly superseded by other copyright notices) @@ -46,45 +46,36 @@ # # END BPS TAGGED BLOCK }}} -# Autogenerated by DBIx::SearchBuilder factory (by ) -# WARNING: THIS FILE IS AUTOGENERATED. ALL CHANGES TO THIS FILE WILL BE LOST. -# -# !! DO NOT EDIT THIS FILE !! -# - -use strict; - - =head1 NAME - RT::CustomFields -- Class Description - + RT::CustomFields - a collection of RT CustomField objects + =head1 SYNOPSIS - use RT::CustomFields + use RT::CustomFields; =head1 DESCRIPTION - =head1 METHODS + + =cut + package RT::CustomFields; -use RT::SearchBuilder; +use strict; +use warnings; + use RT::CustomField; -use vars qw( @ISA ); -@ISA= qw(RT::SearchBuilder); +use base 'RT::SearchBuilder'; +sub Table { 'CustomFields'} sub _Init { my $self = shift; - $self->{'table'} = 'CustomFields'; - $self->{'primary_key'} = 'id'; - - # By default, order by SortOrder $self->OrderByCols( @@ -92,43 +83,321 @@ sub _Init { FIELD => 'SortOrder', ORDER => 'ASC' }, { ALIAS => 'main', + FIELD => 'Name', + ORDER => 'ASC' }, + { ALIAS => 'main', FIELD => 'id', ORDER => 'ASC' }, ); + $self->{'with_disabled_column'} = 1; return ( $self->SUPER::_Init(@_) ); } -=head2 NewItem +=head2 LimitToLookupType -Returns an empty new RT::CustomField item +Takes LookupType and limits collection. =cut -sub NewItem { +sub LimitToLookupType { my $self = shift; - return(RT::CustomField->new($self->CurrentUser)); + my $lookup = shift; + + $self->Limit( FIELD => 'LookupType', VALUE => "$lookup" ); +} + +=head2 LimitToChildType + +Takes partial LookupType and limits collection to records +where LookupType is equal or ends with the value. + +=cut + +sub LimitToChildType { + my $self = shift; + my $lookup = shift; + + $self->Limit( FIELD => 'LookupType', VALUE => "$lookup", OPERATOR => "ENDSWITH" ); +} + + +=head2 LimitToParentType + +Takes partial LookupType and limits collection to records +where LookupType is equal or starts with the value. + +=cut + +sub LimitToParentType { + my $self = shift; + my $lookup = shift; + + $self->Limit( FIELD => 'LookupType', VALUE => "$lookup", OPERATOR => "STARTSWITH" ); +} + +=head2 LimitToObjectId + +Takes an ObjectId and limits the collection to CFs applied to said object. + +When called multiple times the ObjectId limits are joined with OR. + +=cut + +sub LimitToObjectId { + my $self = shift; + my $id = shift; + $self->Limit( + ALIAS => $self->_OCFAlias, + FIELD => 'ObjectId', + OPERATOR => '=', + VALUE => $id || 0, + ENTRYAGGREGATOR => 'OR' + ); +} + +=head2 LimitToGlobalOrObjectId + +Takes list of object IDs and limits collection to custom +fields that are applied to these objects or globally. + +=cut + +sub LimitToGlobalOrObjectId { + my $self = shift; + my $global_only = 1; + + + foreach my $id (@_) { + $self->LimitToObjectId($id); + $global_only = 0 if $id; + } + + $self->LimitToObjectId(0) unless $global_only; +} + +sub _LimitToOCFs { + my $self = shift; + my @ids = @_; + + my $ocfs_alias = $self->_OCFAlias( New => 1, Left => 1 ); + if ( @ids ) { + # XXX: we need different EA in join clause, but DBIx::SB + # doesn't support them, use IN (X) instead + my $dbh = $self->_Handle->dbh; + $self->Limit( + LEFTJOIN => $ocfs_alias, + ALIAS => $ocfs_alias, + FIELD => 'ObjectId', + OPERATOR => 'IN', + QUOTEVALUE => 0, + VALUE => "(". join( ',', map $dbh->quote($_), @ids ) .")", + ); + } + + return $ocfs_alias; +} + +=head2 LimitToNotApplied + +Takes either list of object ids or nothing. Limits collection +to custom fields to listed objects or any corespondingly. Use +zero to mean global. + +=cut + +sub LimitToNotApplied { + my $self = shift; + my @ids = @_; + + my $ocfs_alias = $self->_LimitToOCFs(@ids); + + $self->Limit( + ENTRYAGGREGATOR => 'AND', + ALIAS => $ocfs_alias, + FIELD => 'id', + OPERATOR => 'IS', + VALUE => 'NULL', + ); +} + +=head2 LimitToApplied + +Limits collection to custom fields to listed objects or any corespondingly. Use +zero to mean global. + +=cut + +sub LimitToApplied { + my $self = shift; + my @ids = @_; + + my $ocfs_alias = $self->_LimitToOCFs(@ids); + + $self->Limit( + ENTRYAGGREGATOR => 'AND', + ALIAS => $ocfs_alias, + FIELD => 'id', + OPERATOR => 'IS NOT', + VALUE => 'NULL', + ); +} + +=head2 LimitToGlobalOrQueue QUEUEID + +DEPRECATED since CFs are applicable not only to tickets these days. + +Limits the set of custom fields found to global custom fields or those tied to the queue with ID QUEUEID + +=cut + +sub LimitToGlobalOrQueue { + my $self = shift; + my $queue = shift; + $self->LimitToGlobalOrObjectId( $queue ); + $self->LimitToLookupType( 'RT::Queue-RT::Ticket' ); +} + + +=head2 LimitToQueue QUEUEID + +DEPRECATED since CFs are applicable not only to tickets these days. + +Takes a queue id (numerical) as its only argument. Makes sure that +Scopes it pulls out apply to this queue (or another that you've selected with +another call to this method + +=cut + +sub LimitToQueue { + my $self = shift; + my $queue = shift; + + $self->Limit (ALIAS => $self->_OCFAlias, + ENTRYAGGREGATOR => 'OR', + FIELD => 'ObjectId', + VALUE => "$queue") + if defined $queue; + $self->LimitToLookupType( 'RT::Queue-RT::Ticket' ); +} + + +=head2 LimitToGlobal + +DEPRECATED since CFs are applicable not only to tickets these days. + +Makes sure that Scopes it pulls out apply to all queues +(or another that you've selected with +another call to this method or LimitToQueue) + +=cut + +sub LimitToGlobal { + my $self = shift; + + $self->Limit (ALIAS => $self->_OCFAlias, + ENTRYAGGREGATOR => 'OR', + FIELD => 'ObjectId', + VALUE => 0); + $self->LimitToLookupType( 'RT::Queue-RT::Ticket' ); } -RT::Base->_ImportOverlays(); -=head1 SEE ALSO -This class allows "overlay" methods to be placed -into the following files _Overlay is for a System overlay by the original author, -_Vendor is for 3rd-party vendor add-ons, while _Local is for site-local customizations. +=head2 ApplySortOrder -These overlay files can contain new subs or subs to replace existing subs in this module. +Sort custom fields according to thier order application to objects. It's +expected that collection contains only records of one +L and applied to one object or globally +(L), otherwise sorting makes no sense. -Each of these files should begin with the line +=cut + +sub ApplySortOrder { + my $self = shift; + my $order = shift || 'ASC'; + $self->OrderByCols( { + ALIAS => $self->_OCFAlias, + FIELD => 'SortOrder', + ORDER => $order, + } ); +} - no warnings qw(redefine); -so that perl does not kick and scream when you redefine a subroutine or variable in your overlay. +=head2 ContextObject -RT::CustomFields_Overlay, RT::CustomFields_Vendor, RT::CustomFields_Local +Returns context object for this collection of custom fields, +but only if it's defined. =cut +sub ContextObject { + my $self = shift; + return $self->{'context_object'}; +} + + +=head2 SetContextObject + +Sets context object for this collection of custom fields. + +=cut + +sub SetContextObject { + my $self = shift; + return $self->{'context_object'} = shift; +} + + +sub _OCFAlias { + my $self = shift; + my %args = ( New => 0, Left => 0, @_ ); + + return $self->{'_sql_ocfalias'} if $self->{'_sql_ocfalias'} && !$args{'New'}; + + my $alias = $self->Join( + $args{'Left'} ? (TYPE => 'LEFT') : (), + ALIAS1 => 'main', + FIELD1 => 'id', + TABLE2 => 'ObjectCustomFields', + FIELD2 => 'CustomField' + ); + return $alias if $args{'New'}; + return $self->{'_sql_ocfalias'} = $alias; +} + + +=head2 AddRecord + +Overrides the collection to ensure that only custom fields the user can +see are returned; also propagates down the L. + +=cut + +sub AddRecord { + my $self = shift; + my ($record) = @_; + + $record->SetContextObject( $self->ContextObject ); + return unless $record->CurrentUserHasRight('SeeCustomField'); + return $self->SUPER::AddRecord( $record ); +} + +=head2 NewItem + +Returns an empty new RT::CustomField item +Overrides to make sure +is inherited. + +=cut + +sub NewItem { + my $self = shift; + my $res = RT::CustomField->new($self->CurrentUser); + $res->SetContextObject($self->ContextObject); + return $res; +} + +RT::Base->_ImportOverlays(); 1;