diff options
author | cvs2git <cvs2git> | 2006-08-23 22:25:40 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 2006-08-23 22:25:40 +0000 |
commit | 58d093219cf60264550b8c34649d9f3190eda042 (patch) | |
tree | 10418dd70b52416a5f52da8e17d8e282d914595d /rt/lib/RT/ObjectCustomField_Overlay.pm | |
parent | 3ce7691203a7737406bf2d4442f7fd84b81f847e (diff) |
This commit was manufactured by cvs2svn to create tagAFTER_FINAL_MASONIZE
'AFTER_FINAL_MASONIZE'.
Diffstat (limited to 'rt/lib/RT/ObjectCustomField_Overlay.pm')
-rw-r--r-- | rt/lib/RT/ObjectCustomField_Overlay.pm | 101 |
1 files changed, 0 insertions, 101 deletions
diff --git a/rt/lib/RT/ObjectCustomField_Overlay.pm b/rt/lib/RT/ObjectCustomField_Overlay.pm deleted file mode 100644 index e1dc7e21b..000000000 --- a/rt/lib/RT/ObjectCustomField_Overlay.pm +++ /dev/null @@ -1,101 +0,0 @@ -# BEGIN BPS TAGGED BLOCK {{{ -# -# COPYRIGHT: -# -# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC -# <jesse@bestpractical.com> -# -# (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., 675 Mass Ave, Cambridge, MA 02139, USA. -# -# -# 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 -# you are the copyright holder for those contributions and you grant -# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, -# 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 }}} -package RT::ObjectCustomField; - -use strict; -no warnings qw(redefine); - -sub Create { - my $self = shift; - my %args = ( - CustomField => '0', - ObjectId => '0', - SortOrder => undef, - @_); - - if (!defined $args{SortOrder}) { - my $CF = $self->CustomFieldObj($args{'CustomField'}); - my $ObjectCFs = RT::ObjectCustomFields->new($self->CurrentUser); - $ObjectCFs->LimitToObjectId($args{'ObjectId'}); - $ObjectCFs->LimitToLookupType($CF->LookupType); - - $args{SortOrder} = $ObjectCFs->Count + 1; - } - - $self->SUPER::Create( - CustomField => $args{'CustomField'}, - ObjectId => $args{'ObjectId'}, - SortOrder => $args{'SortOrder'}, - ); -} - -sub Delete { - my $self = shift; - - my $ObjectCFs = RT::ObjectCustomFields->new($self->CurrentUser); - $ObjectCFs->LimitToObjectId($self->ObjectId); - $ObjectCFs->LimitToLookupType($self->CustomFieldObj->LookupType); - - # Move everything below us up - my $sort_order = $self->SortOrder; - while (my $OCF = $ObjectCFs->Next) { - my $this_order = $OCF->SortOrder; - next if $this_order <= $sort_order; - $OCF->SetSortOrder($this_order - 1); - } - - $self->SUPER::Delete; -} - -sub CustomFieldObj { - my $self = shift; - my $id = shift || $self->CustomField; - my $CF = RT::CustomField->new($self->CurrentUser); - $CF->Load($id) or die "Cannot load CustomField $id"; - return $CF; -} - -1; |