projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rt 4.2.16
[freeside.git]
/
rt
/
lib
/
RT
/
Links.pm
diff --git
a/rt/lib/RT/Links.pm
b/rt/lib/RT/Links.pm
index
b9aba12
..
f8688ee
100644
(file)
--- a/
rt/lib/RT/Links.pm
+++ b/
rt/lib/RT/Links.pm
@@
-2,7
+2,7
@@
#
# COPYRIGHT:
#
#
# COPYRIGHT:
#
-# This software is Copyright (c) 1996-201
5
Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-201
9
Best Practical Solutions, LLC
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
@@
-70,11
+70,10
@@
package RT::Links;
use strict;
use warnings;
use strict;
use warnings;
+use base 'RT::SearchBuilder';
use RT::Link;
use RT::Link;
-use base 'RT::SearchBuilder';
-
sub Table { 'Links'}
sub Table { 'Links'}
@@
-83,27
+82,27
@@
use RT::URI;
sub Limit {
my $self = shift;
my %args = ( ENTRYAGGREGATOR => 'AND',
sub Limit {
my $self = shift;
my %args = ( ENTRYAGGREGATOR => 'AND',
- OPERATOR => '=',
- @_);
+
OPERATOR => '=',
+
@_);
# If we're limiting by target, order by base
# (Order by the thing that's changing)
# 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->OrderByCols(
+ if ( ($args{'FIELD'} eq 'Target') or
+
($args{'FIELD'} eq 'LocalTarget') ) {
+
$self->OrderByCols(
{ ALIAS => 'main', FIELD => 'LocalBase', ORDER => 'ASC' },
{ ALIAS => 'main', FIELD => 'Base', ORDER => 'ASC' },
);
}
{ ALIAS => 'main', FIELD => 'LocalBase', ORDER => 'ASC' },
{ ALIAS => 'main', FIELD => 'Base', ORDER => 'ASC' },
);
}
- elsif ( ($args{'FIELD'} eq 'Base') or
- ($args{'FIELD'} eq 'LocalBase') ) {
- $self->OrderByCols(
+ elsif ( ($args{'FIELD'} eq 'Base') or
+
($args{'FIELD'} eq 'LocalBase') ) {
+
$self->OrderByCols(
{ ALIAS => 'main', FIELD => 'LocalTarget', ORDER => 'ASC' },
{ ALIAS => 'main', FIELD => 'Target', ORDER => 'ASC' },
);
}
{ ALIAS => 'main', FIELD => 'LocalTarget', ORDER => 'ASC' },
{ ALIAS => 'main', FIELD => 'Target', ORDER => 'ASC' },
);
}
-
+
$self->SUPER::Limit(%args);
}
$self->SUPER::Limit(%args);
}
@@
-140,24
+139,12
@@
sub LimitReferredToBy {
# }}}
# }}}
-=head2 NewItem
-
-Returns an empty new RT::Link item
-
-=cut
-
-sub NewItem {
- my $self = shift;
- return(RT::Link->new($self->CurrentUser));
-}
-
sub AddRecord {
my $self = shift;
my $record = shift;
return unless $self->IsValidLink($record);
push @{$self->{'items'}}, $record;
sub AddRecord {
my $self = shift;
my $record = shift;
return unless $self->IsValidLink($record);
push @{$self->{'items'}}, $record;
- $self->{'rows'}++;
}
=head2 IsValidLink
}
=head2 IsValidLink