1 #$Header: /home/cvs/cvsroot/freeside/rt/lib/RT/Links.pm,v 1.1 2002-08-12 06:17:07 ivan Exp $
5 RT::Links - A collection of Link objects
10 my $links = new RT::Links($CurrentUser);
20 ok (require RT::TestHarness);
21 ok (require RT::Links);
31 @ISA= qw(RT::EasySearch);
37 $self->{'table'} = "Links";
38 $self->{'primary_key'} = "id";
41 return ( $self->SUPER::_Init(@_));
48 my %args = ( ENTRYAGGREGATOR => 'AND',
52 #if someone's trying to search for tickets, try to resolve the uris for searching.
54 if ( ( $args{'OPERATOR'} eq '=') and
55 ( $args{'FIELD'} eq 'Base') or ($args{'FIELD'} eq 'Target')
57 my $dummy = $self->NewItem();
58 $uri = $dummy->CanonicalizeURI($args{'VALUE'});
62 # If we're limiting by target, order by base
63 # (Order by the thing that's changing)
65 if ( ($args{'FIELD'} eq 'Target') or
66 ($args{'FIELD'} eq 'LocalTarget') ) {
67 $self->OrderBy (ALIAS => 'main',
71 elsif ( ($args{'FIELD'} eq 'Base') or
72 ($args{'FIELD'} eq 'LocalBase') ) {
73 $self->OrderBy (ALIAS => 'main',
79 $self->SUPER::Limit(%args);
86 return(RT::Link->new($self->CurrentUser));