diff options
Diffstat (limited to 'rt/lib/RT/CustomFieldValues.pm')
| -rw-r--r-- | rt/lib/RT/CustomFieldValues.pm | 92 |
1 files changed, 35 insertions, 57 deletions
diff --git a/rt/lib/RT/CustomFieldValues.pm b/rt/lib/RT/CustomFieldValues.pm index 4fa062e7c..90a163702 100644 --- a/rt/lib/RT/CustomFieldValues.pm +++ b/rt/lib/RT/CustomFieldValues.pm @@ -2,7 +2,7 @@ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2012 Best Practical Solutions, LLC # <sales@bestpractical.com> # # (Except where explicitly superseded by other copyright notices) @@ -46,61 +46,58 @@ # # END BPS TAGGED BLOCK }}} -# Autogenerated by DBIx::SearchBuilder factory (by <jesse@bestpractical.com>) -# WARNING: THIS FILE IS AUTOGENERATED. ALL CHANGES TO THIS FILE WILL BE LOST. -# -# !! DO NOT EDIT THIS FILE !! -# +package RT::CustomFieldValues; use strict; +use warnings; -=head1 NAME - - RT::CustomFieldValues -- Class Description - -=head1 SYNOPSIS - - use RT::CustomFieldValues -=head1 DESCRIPTION +use RT::CustomFieldValue; +use base 'RT::SearchBuilder'; -=head1 METHODS +sub Table { 'CustomFieldValues'} -=cut +sub _Init { + my $self = shift; -package RT::CustomFieldValues; + # By default, order by SortOrder + $self->OrderByCols( + { ALIAS => 'main', + FIELD => 'SortOrder', + ORDER => 'ASC' }, + { ALIAS => 'main', + FIELD => 'Name', + ORDER => 'ASC' }, + { ALIAS => 'main', + FIELD => 'id', + ORDER => 'ASC' }, + ); -use RT::SearchBuilder; -use RT::CustomFieldValue; + return ( $self->SUPER::_Init(@_) ); +} +# {{{ sub LimitToCustomField -use vars qw( @ISA ); -@ISA= qw(RT::SearchBuilder); +=head2 LimitToCustomField FIELD +Limits the returned set to values for the custom field with Id FIELD -sub _Init { +=cut + +sub LimitToCustomField { my $self = shift; - $self->{'table'} = 'CustomFieldValues'; - $self->{'primary_key'} = 'id'; - - # By default, order by SortOrder - $self->OrderByCols( - { ALIAS => 'main', - FIELD => 'SortOrder', - ORDER => 'ASC' }, - { ALIAS => 'main', - FIELD => 'Name', - ORDER => 'ASC' }, - { ALIAS => 'main', - FIELD => 'id', - ORDER => 'ASC' }, + my $cf = shift; + return $self->Limit( + FIELD => 'CustomField', + VALUE => $cf, + OPERATOR => '=', ); - - return ( $self->SUPER::_Init(@_) ); } + + =head2 NewItem Returns an empty new RT::CustomFieldValue item @@ -113,23 +110,4 @@ sub NewItem { } 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. - -These overlay files can contain new subs or subs to replace existing subs in this module. - -Each of these files should begin with the line - - no warnings qw(redefine); - -so that perl does not kick and scream when you redefine a subroutine or variable in your overlay. - -RT::CustomFieldValues_Overlay, RT::CustomFieldValues_Vendor, RT::CustomFieldValues_Local - -=cut - - 1; |