X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Flib%2FRT%2FObjectCustomField.pm;h=b21543bfa007bb56c0137562fd09b41df22b8cd3;hp=8ec4a09a1bd434e2e98b4b29caae64332a585d64;hb=9aee669886202be7035e6c6049fc71bc99dd3013;hpb=63a268637b2d51a8766412617724b9436439deb6 diff --git a/rt/lib/RT/ObjectCustomField.pm b/rt/lib/RT/ObjectCustomField.pm index 8ec4a09a1..b21543bfa 100644 --- a/rt/lib/RT/ObjectCustomField.pm +++ b/rt/lib/RT/ObjectCustomField.pm @@ -1,40 +1,40 @@ # BEGIN BPS TAGGED BLOCK {{{ -# +# # COPYRIGHT: -# -# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC -# -# +# +# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC +# +# # (Except where explicitly superseded by other copyright notices) -# -# +# +# # LICENSE: -# +# # 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. -# +# # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA # 02110-1301 or visit their web page on the internet at # http://www.gnu.org/licenses/old-licenses/gpl-2.0.html. -# -# +# +# # CONTRIBUTION SUBMISSION POLICY: -# +# # (The following paragraph is not intended to limit the rights granted # to you to modify and distribute this software under the terms of # the GNU General Public License and is only of importance to you if # you choose to contribute your changes and enhancements to the # community by submitting them to Best Practical Solutions, LLC.) -# +# # By intentionally submitting any modifications, corrections or # derivatives to this work, or any other work intended for use with # Request Tracker, to Best Practical Solutions, LLC, you confirm that @@ -43,84 +43,68 @@ # royalty-free, perpetual, license to use, copy, create derivative # works based on those contributions, and sublicense and distribute # those contributions and any derivatives thereof. -# -# 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 !! # +# END BPS TAGGED BLOCK }}} use strict; - - -=head1 NAME - -RT::ObjectCustomField - - -=head1 SYNOPSIS - -=head1 DESCRIPTION - -=head1 METHODS - -=cut +use warnings; package RT::ObjectCustomField; -use RT::Record; -use RT::CustomField; +use base 'RT::Record::AddAndSort'; +use RT::CustomField; +use RT::ObjectCustomFields; -use vars qw( @ISA ); -@ISA= qw( RT::Record ); - -sub _Init { - my $self = shift; +sub Table {'ObjectCustomFields'} - $self->Table('ObjectCustomFields'); - $self->SUPER::_Init(@_); +sub ObjectCollectionClass { + my $self = shift; + my %args = (@_); + return $args{'CustomField'}->CollectionClassFromLookupType; } +# XXX: Where is ACL check when we create a record? +=head2 CustomFieldObj - - -=head2 Create PARAMHASH - -Create takes a hash of values and creates a row in the database: - - int(11) 'CustomField'. - int(11) 'ObjectId'. - int(11) 'SortOrder'. +Returns the CustomField Object which has the id returned by CustomField =cut - - - -sub Create { +sub CustomFieldObj { my $self = shift; - my %args = ( - CustomField => '0', - ObjectId => '0', - SortOrder => '0', - - @_); - $self->SUPER::Create( - CustomField => $args{'CustomField'}, - ObjectId => $args{'ObjectId'}, - SortOrder => $args{'SortOrder'}, -); - + my $id = shift || $self->CustomField; + + # To find out the proper context object to load the CF with, we need + # data from the CF -- namely, the record class. Go find that as the + # system user first. + my $system_CF = RT::CustomField->new( RT->SystemUser ); + $system_CF->Load( $id ); + my $class = $system_CF->RecordClassFromLookupType; + + my $obj = $class->new( $self->CurrentUser ); + $obj->Load( $self->ObjectId ); + + my $CF = RT::CustomField->new( $self->CurrentUser ); + $CF->SetContextObject( $obj ); + $CF->Load( $id ); + return $CF; } +sub Neighbors { + my $self = shift; + my %args = @_; + my $res = $self->CollectionClass->new( $self->CurrentUser ); + $res->LimitToLookupType( + ($args{'CustomField'} || $self->CustomFieldObj)->LookupType + ); + return $res; +} =head2 id -Returns the current value of id. +Returns the current value of id. (In the database, id is stored as int(11).) @@ -129,7 +113,7 @@ Returns the current value of id. =head2 CustomField -Returns the current value of CustomField. +Returns the current value of CustomField. (In the database, CustomField is stored as int(11).) @@ -137,7 +121,7 @@ Returns the current value of CustomField. =head2 SetCustomField VALUE -Set CustomField to VALUE. +Set CustomField to VALUE. Returns (1, 'Status message') on success and (0, 'Error Message') on failure. (In the database, CustomField will be stored as a int(11).) @@ -145,23 +129,9 @@ Returns (1, 'Status message') on success and (0, 'Error Message') on failure. =cut -=head2 CustomFieldObj - -Returns the CustomField Object which has the id returned by CustomField - - -=cut - -sub CustomFieldObj { - my $self = shift; - my $CustomField = RT::CustomField->new($self->CurrentUser); - $CustomField->Load($self->__Value('CustomField')); - return($CustomField); -} - =head2 ObjectId -Returns the current value of ObjectId. +Returns the current value of ObjectId. (In the database, ObjectId is stored as int(11).) @@ -169,7 +139,7 @@ Returns the current value of ObjectId. =head2 SetObjectId VALUE -Set ObjectId to VALUE. +Set ObjectId to VALUE. Returns (1, 'Status message') on success and (0, 'Error Message') on failure. (In the database, ObjectId will be stored as a int(11).) @@ -179,7 +149,7 @@ Returns (1, 'Status message') on success and (0, 'Error Message') on failure. =head2 SortOrder -Returns the current value of SortOrder. +Returns the current value of SortOrder. (In the database, SortOrder is stored as int(11).) @@ -187,7 +157,7 @@ Returns the current value of SortOrder. =head2 SetSortOrder VALUE -Set SortOrder to VALUE. +Set SortOrder to VALUE. Returns (1, 'Status message') on success and (0, 'Error Message') on failure. (In the database, SortOrder will be stored as a int(11).) @@ -197,7 +167,7 @@ Returns (1, 'Status message') on success and (0, 'Error Message') on failure. =head2 Creator -Returns the current value of Creator. +Returns the current value of Creator. (In the database, Creator is stored as int(11).) @@ -206,7 +176,7 @@ Returns the current value of Creator. =head2 Created -Returns the current value of Created. +Returns the current value of Created. (In the database, Created is stored as datetime.) @@ -215,7 +185,7 @@ Returns the current value of Created. =head2 LastUpdatedBy -Returns the current value of LastUpdatedBy. +Returns the current value of LastUpdatedBy. (In the database, LastUpdatedBy is stored as int(11).) @@ -224,7 +194,7 @@ Returns the current value of LastUpdatedBy. =head2 LastUpdated -Returns the current value of LastUpdated. +Returns the current value of LastUpdated. (In the database, LastUpdated is stored as datetime.) @@ -234,63 +204,58 @@ Returns the current value of LastUpdated. sub _CoreAccessible { { - + id => - {read => 1, sql_type => 4, length => 11, is_blob => 0, is_numeric => 1, type => 'int(11)', default => ''}, - CustomField => - {read => 1, write => 1, sql_type => 4, length => 11, is_blob => 0, is_numeric => 1, type => 'int(11)', default => '0'}, - ObjectId => - {read => 1, write => 1, sql_type => 4, length => 11, is_blob => 0, is_numeric => 1, type => 'int(11)', default => '0'}, - SortOrder => - {read => 1, write => 1, sql_type => 4, length => 11, is_blob => 0, is_numeric => 1, type => 'int(11)', default => '0'}, - Creator => - {read => 1, auto => 1, sql_type => 4, length => 11, is_blob => 0, is_numeric => 1, type => 'int(11)', default => '0'}, - Created => - {read => 1, auto => 1, sql_type => 11, length => 0, is_blob => 0, is_numeric => 0, type => 'datetime', default => ''}, - LastUpdatedBy => - {read => 1, auto => 1, sql_type => 4, length => 11, is_blob => 0, is_numeric => 1, type => 'int(11)', default => '0'}, - LastUpdated => - {read => 1, auto => 1, sql_type => 11, length => 0, is_blob => 0, is_numeric => 0, type => 'datetime', default => ''}, + {read => 1, sql_type => 4, length => 11, is_blob => 0, is_numeric => 1, type => 'int(11)', default => ''}, + CustomField => + {read => 1, write => 1, sql_type => 4, length => 11, is_blob => 0, is_numeric => 1, type => 'int(11)', default => ''}, + ObjectId => + {read => 1, write => 1, sql_type => 4, length => 11, is_blob => 0, is_numeric => 1, type => 'int(11)', default => ''}, + SortOrder => + {read => 1, write => 1, sql_type => 4, length => 11, is_blob => 0, is_numeric => 1, type => 'int(11)', default => '0'}, + Creator => + {read => 1, auto => 1, sql_type => 4, length => 11, is_blob => 0, is_numeric => 1, type => 'int(11)', default => '0'}, + Created => + {read => 1, auto => 1, sql_type => 11, length => 0, is_blob => 0, is_numeric => 0, type => 'datetime', default => ''}, + LastUpdatedBy => + {read => 1, auto => 1, sql_type => 4, length => 11, is_blob => 0, is_numeric => 1, type => 'int(11)', default => '0'}, + LastUpdated => + {read => 1, auto => 1, sql_type => 11, length => 0, is_blob => 0, is_numeric => 0, type => 'datetime', default => ''}, } }; +sub FindDependencies { + my $self = shift; + my ($walker, $deps) = @_; - eval "require RT::ObjectCustomField_Overlay"; - if ($@ && $@ !~ qr{^Can't locate RT/ObjectCustomField_Overlay.pm}) { - die $@; - }; - - eval "require RT::ObjectCustomField_Vendor"; - if ($@ && $@ !~ qr{^Can't locate RT/ObjectCustomField_Vendor.pm}) { - die $@; - }; - - eval "require RT::ObjectCustomField_Local"; - if ($@ && $@ !~ qr{^Can't locate RT/ObjectCustomField_Local.pm}) { - die $@; - }; - - - - -=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 + $self->SUPER::FindDependencies($walker, $deps); - no warnings qw(redefine); + $deps->Add( out => $self->CustomFieldObj ); -so that perl does not kick and scream when you redefine a subroutine or variable in your overlay. + if ($self->ObjectId) { + my $class = $self->CustomFieldObj->RecordClassFromLookupType; + my $obj = $class->new( $self->CurrentUser ); + $obj->Load( $self->ObjectId ); + $deps->Add( out => $obj ); + } +} -RT::ObjectCustomField_Overlay, RT::ObjectCustomField_Vendor, RT::ObjectCustomField_Local +sub Serialize { + my $self = shift; + my %args = (@_); + my %store = $self->SUPER::Serialize(@_); + + if ($store{ObjectId}) { + my $class = $self->CustomFieldObj->RecordClassFromLookupType; + my $obj = $class->new( RT->SystemUser ); + $obj->Load( $store{ObjectId} ); + $store{ObjectId} = \($obj->UID); + } + return %store; +} -=cut +RT::Base->_ImportOverlays(); 1;