diff options
Diffstat (limited to 'rt/lib/RT/Links_Overlay.pm')
| -rw-r--r-- | rt/lib/RT/Links_Overlay.pm | 175 |
1 files changed, 0 insertions, 175 deletions
diff --git a/rt/lib/RT/Links_Overlay.pm b/rt/lib/RT/Links_Overlay.pm deleted file mode 100644 index 203b60a..0000000 --- a/rt/lib/RT/Links_Overlay.pm +++ /dev/null @@ -1,175 +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 }}} - -=head1 NAME - - RT::Links - A collection of Link objects - -=head1 SYNOPSIS - - use RT::Links; - my $links = new RT::Links($CurrentUser); - -=head1 DESCRIPTION - - -=head1 METHODS - - -=begin testing - -ok (require RT::Links); - -=end testing - -=cut - - -package RT::Links; - -use strict; -no warnings qw(redefine); -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 = RT::URI->new($self->CurrentUser); - $dummy->FromURI($args{'VALUE'}); - # $uri = $dummy->URI; - } - - - # 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'); - } - elsif ( ($args{'FIELD'} eq 'Base') or - ($args{'FIELD'} eq 'LocalBase') ) { - $self->OrderBy (ALIAS => 'main', - FIELD => 'Target', - ORDER => 'ASC'); - } - - - $self->SUPER::Limit(%args); -} -# }}} - -# {{{ LimitRefersTo - -=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); -} - -# }}} -# {{{ LimitReferredToBy - -=head2 LimitReferredToBy URI - -find all things that URI refers to - -=cut - -sub LimitReferredToBy { - my $self = shift; - my $URI = shift; - - $self->Limit(FIELD => 'Type', VALUE => 'RefersTo'); - $self->Limit(FIELD => 'Base', VALUE => $URI); -} - -# }}} - - -# {{{ Next -sub Next { - my $self = shift; - - my $Link = $self->SUPER::Next(); - if ((defined($Link)) and (ref($Link))) { - # Skip links to local objects thast are deleted - if ($Link->TargetURI->IsLocal and UNIVERSAL::isa($Link->TargetObj,"RT::Ticket") - and $Link->TargetObj->__Value('status') eq "deleted") { - return $self->Next; - } elsif ($Link->BaseURI->IsLocal and UNIVERSAL::isa($Link->BaseObj,"RT::Ticket") - and $Link->BaseObj->__Value('status') eq "deleted") { - return $self->Next; - } else { - return $Link; - } - } else { - return undef; - } -} - -# }}} -1; - |