X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Flib%2FRT%2FObjectCustomField.pm;h=b21543bfa007bb56c0137562fd09b41df22b8cd3;hp=04387d2644b81fedd78c5bb897ce20ea6755a22d;hb=9aee669886202be7035e6c6049fc71bc99dd3013;hpb=fc6209f398899f0211cfcedeb81a3cd65e04a941 diff --git a/rt/lib/RT/ObjectCustomField.pm b/rt/lib/RT/ObjectCustomField.pm index 04387d264..b21543bfa 100644 --- a/rt/lib/RT/ObjectCustomField.pm +++ b/rt/lib/RT/ObjectCustomField.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,81 +46,65 @@ # # 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::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 vars qw( @ISA ); -@ISA= qw( RT::Record ); +use RT::CustomField; +use RT::ObjectCustomFields; -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;