X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Flib%2FRT%2FLinks.pm;h=f8688ee90a55bd9629bdc2964a03a0758ab5a64b;hp=a8180caf068234ceb28048ae812a263e13e1dfd3;hb=44dd00a3ff974a17999e86e64488e996edc71e3c;hpb=c0567c688084e89fcd11bf82348b6c418f1254ac diff --git a/rt/lib/RT/Links.pm b/rt/lib/RT/Links.pm index a8180caf0..f8688ee90 100644 --- a/rt/lib/RT/Links.pm +++ b/rt/lib/RT/Links.pm @@ -1,4 +1,50 @@ -#$Header: /home/cvs/cvsroot/freeside/rt/lib/RT/Links.pm,v 1.1 2002-08-12 06:17:07 ivan Exp $ +# BEGIN BPS TAGGED BLOCK {{{ +# +# COPYRIGHT: +# +# This software is Copyright (c) 1996-2019 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 +# 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 }}} =head1 NAME @@ -7,7 +53,7 @@ =head1 SYNOPSIS use RT::Links; - my $links = new RT::Links($CurrentUser); + my $links = RT::Links->new($CurrentUser); =head1 DESCRIPTION @@ -15,76 +61,115 @@ =head1 METHODS -=begin testing - -ok (require RT::TestHarness); -ok (require RT::Links); - -=end testing =cut + package RT::Links; -use RT::EasySearch; -use RT::Link; -@ISA= qw(RT::EasySearch); +use strict; +use warnings; -# {{{ sub _Init -sub _Init { - my $self = shift; - - $self->{'table'} = "Links"; - $self->{'primary_key'} = "id"; +use base 'RT::SearchBuilder'; +use RT::Link; - return ( $self->SUPER::_Init(@_)); -} -# }}} +sub Table { 'Links'} + + +use RT::URI; -# {{{ sub Limit sub Limit { my $self = shift; my %args = ( ENTRYAGGREGATOR => 'AND', - OPERATOR => '=', - @_); - - #if someone's trying to search for tickets, try to resolve the uris for searching. - - if ( ( $args{'OPERATOR'} eq '=') and - ( $args{'FIELD'} eq 'Base') or ($args{'FIELD'} eq 'Target') - ) { - my $dummy = $self->NewItem(); - $uri = $dummy->CanonicalizeURI($args{'VALUE'}); - } - + OPERATOR => '=', + @_); # If we're limiting by target, order by base # (Order by the thing that's changing) - if ( ($args{'FIELD'} eq 'Target') or - ($args{'FIELD'} eq 'LocalTarget') ) { - $self->OrderBy (ALIAS => 'main', - FIELD => 'Base', - ORDER => 'ASC'); + if ( ($args{'FIELD'} eq 'Target') or + ($args{'FIELD'} eq 'LocalTarget') ) { + $self->OrderByCols( + { ALIAS => 'main', FIELD => 'LocalBase', ORDER => 'ASC' }, + { ALIAS => 'main', FIELD => 'Base', ORDER => 'ASC' }, + ); } - elsif ( ($args{'FIELD'} eq 'Base') or - ($args{'FIELD'} eq 'LocalBase') ) { - $self->OrderBy (ALIAS => 'main', - FIELD => 'Target', - ORDER => 'ASC'); + elsif ( ($args{'FIELD'} eq 'Base') or + ($args{'FIELD'} eq 'LocalBase') ) { + $self->OrderByCols( + { ALIAS => 'main', FIELD => 'LocalTarget', ORDER => 'ASC' }, + { ALIAS => 'main', FIELD => 'Target', ORDER => 'ASC' }, + ); } - + $self->SUPER::Limit(%args); } -# }}} -# {{{ sub NewItem -sub NewItem { + +=head2 LimitRefersTo URI + +find all things that refer to URI + +=cut + +sub LimitRefersTo { + my $self = shift; + my $URI = shift; + + $self->Limit(FIELD => 'Type', VALUE => 'RefersTo'); + $self->Limit(FIELD => 'Target', VALUE => $URI); +} + + +=head2 LimitReferredToBy URI + +find all things that URI refers to + +=cut + +sub LimitReferredToBy { my $self = shift; - return(RT::Link->new($self->CurrentUser)); + my $URI = shift; + + $self->Limit(FIELD => 'Type', VALUE => 'RefersTo'); + $self->Limit(FIELD => 'Base', VALUE => $URI); } + # }}} - 1; +sub AddRecord { + my $self = shift; + my $record = shift; + return unless $self->IsValidLink($record); + + push @{$self->{'items'}}, $record; +} + +=head2 IsValidLink + +if linked to a local ticket and is deleted, then the link is invalid. + +=cut + +sub IsValidLink { + my $self = shift; + my $link = shift; + + return unless $link && ref $link && $link->Target && $link->Base; + + # Skip links to local objects thast are deleted + return + if $link->TargetURI->IsLocal + && ( UNIVERSAL::isa( $link->TargetObj, "RT::Ticket" ) + && $link->TargetObj->__Value('status') eq "deleted" + || UNIVERSAL::isa( $link->BaseObj, "RT::Ticket" ) + && $link->BaseObj->__Value('status') eq "deleted" ); + + return 1; +} + +RT::Base->_ImportOverlays(); + +1;