diff options
author | cvs2git <cvs2git> | 2002-08-12 06:17:10 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 2002-08-12 06:17:10 +0000 |
commit | 160be29a0dc62e79a4fb95d2ab8c0c7e5996760e (patch) | |
tree | 94ebadb17321b138fd7bfd9a5c379eec97c5d328 /rt/lib/RT/KeywordSelects.pm | |
parent | 3ef62a0570055da710328937e7f65dbb2c027c62 (diff) |
This commit was manufactured by cvs2svn to create branch 'BESTPRACTICAL'.
Diffstat (limited to 'rt/lib/RT/KeywordSelects.pm')
-rw-r--r-- | rt/lib/RT/KeywordSelects.pm | 143 |
1 files changed, 0 insertions, 143 deletions
diff --git a/rt/lib/RT/KeywordSelects.pm b/rt/lib/RT/KeywordSelects.pm deleted file mode 100644 index c220b39f9..000000000 --- a/rt/lib/RT/KeywordSelects.pm +++ /dev/null @@ -1,143 +0,0 @@ -#$Header: /home/cvs/cvsroot/freeside/rt/lib/RT/Attic/KeywordSelects.pm,v 1.1 2002-08-12 06:17:07 ivan Exp $ - - - -=begin testing - -ok (require RT::TestHarness); -ok (require RT::Scrip); - -=end testing - -=cut - - -package RT::KeywordSelects; - -use strict; -use vars qw( @ISA ); -use RT::EasySearch; -use RT::KeywordSelect; - -@ISA = qw( RT::EasySearch ); - -# {{{ _Init -sub _Init { - my $self = shift; - $self->{'table'} = 'KeywordSelects'; - $self->{'primary_key'} = 'id'; - return ($self->SUPER::_Init(@_)); -} -# }}} - -# {{{ sub _DoSearch - -=head2 _DoSearch - - A subclass of DBIx::SearchBuilder::_DoSearch that makes sure that _Disabled rows never get seen unless -we're explicitly trying to see them. - -=cut - -sub _DoSearch { - my $self = shift; - - #unless we really want to find disabled rows, make sure we\'re only finding enabled ones. - unless($self->{'find_disabled_rows'}) { - $self->LimitToEnabled(); - } - - return($self->SUPER::_DoSearch(@_)); - -} - -# }}} - -# {{{ sub LimitToQueue -=head2 LimitToQueue - -Takes a queue id. Limits the returned set to KeywordSelects for that queue. -Repeated calls will be OR'd together. - -=cut - -sub LimitToQueue { - my $self = shift; - my $queue = shift; - - $self->Limit( FIELD => 'ObjectValue', - VALUE => $queue, - OPERATOR => '=', - ENTRYAGGREGATOR => 'OR' - ); - - $self->Limit( FIELD => 'ObjectType', - VALUE => 'Ticket', - OPERATOR => '='); - - $self->Limit( FIELD => 'ObjectField', - VALUE => 'Queue', - OPERATOR => '='); - - -} -# }}} - -# {{{ sub LimitToGlobals - -=head2 LimitToGlobals - -Limits the returned set to KeywordSelects for all queues. -Repeated calls will be OR'd together. - -=cut - -sub LimitToGlobals { - my $self = shift; - - $self->Limit( FIELD => 'ObjectType', - VALUE => 'Ticket', - OPERATOR => '='); - - $self->Limit( FIELD => 'ObjectField', - VALUE => 'Queue', - OPERATOR => '='); - - $self->Limit( FIELD => 'ObjectValue', - VALUE => '0', - OPERATOR => '=', - ENTRYAGGREGATOR => 'OR' - ); - -} -# }}} - -# {{{ sub IncludeGlobals -=head2 IncludeGlobals - -Include KeywordSelects which apply globally in the set of returned results - -=cut - - -sub IncludeGlobals { - my $self = shift; - $self->Limit( FIELD => 'ObjectValue', - VALUE => '0', - OPERATOR => '=', - ENTRYAGGREGATOR => 'OR' - ); - - -} -# }}} - -# {{{ sub NewItem -sub NewItem { - my $self = shift; - #my $Handle = shift; - return (new RT::KeywordSelect($self->CurrentUser)); -} -# }}} -1; - |