X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Flib%2FRT%2FLink_Overlay.pm;h=75280008a5740f6fe3fa9b36261c8749f727dd02;hb=90edd8a914fd484e649fb0aa051dce7927bd6881;hp=a45cb2a61d5d80636dfb900a1c7a4f55f8995eb2;hpb=5e05724a635a22776f1b973f5d7e77989da4e048;p=freeside.git diff --git a/rt/lib/RT/Link_Overlay.pm b/rt/lib/RT/Link_Overlay.pm index a45cb2a61..75280008a 100644 --- a/rt/lib/RT/Link_Overlay.pm +++ b/rt/lib/RT/Link_Overlay.pm @@ -1,38 +1,40 @@ # BEGIN BPS TAGGED BLOCK {{{ -# +# # COPYRIGHT: -# -# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC -# -# +# +# This software is Copyright (c) 1996-2011 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., 675 Mass Ave, Cambridge, MA 02139, USA. -# -# +# 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 @@ -41,7 +43,7 @@ # 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 @@ -60,20 +62,6 @@ should only be accessed through exported APIs in Ticket other similar objects. =head1 METHODS -=begin testing - - -use RT::Link; -my $link = RT::Link->new($RT::SystemUser); - - -ok (ref $link); -ok (UNIVERSAL::isa($link, 'RT::Link')); -ok (UNIVERSAL::isa($link, 'RT::Base')); -ok (UNIVERSAL::isa($link, 'RT::Record')); -ok (UNIVERSAL::isa($link, 'DBIx::SearchBuilder::Record')); - -=end testing =cut @@ -110,7 +98,7 @@ sub Create { unless ( $base->Resolver && $base->Scheme ) { my $msg = $self->loc("Couldn't resolve base '[_1]' into a URI.", $args{'Base'}); - $RT::Logger->warning( "$self $msg\n" ); + $RT::Logger->warning( "$self $msg" ); if (wantarray) { return(undef, $msg); @@ -125,7 +113,7 @@ sub Create { unless ( $target->Resolver ) { my $msg = $self->loc("Couldn't resolve target '[_1]' into a URI.", $args{'Target'}); - $RT::Logger->warning( "$self $msg\n" ); + $RT::Logger->warning( "$self $msg" ); if (wantarray) { return(undef, $msg); @@ -141,18 +129,20 @@ sub Create { if ( $base->IsLocal ) { - unless (UNIVERSAL::can($base->Object, 'Id')) { + my $object = $base->Object; + unless (UNIVERSAL::can($object, 'Id')) { return (undef, $self->loc("[_1] appears to be a local object, but can't be found in the database", $args{'Base'})); } - $base_id = $base->Object->Id; + $base_id = $object->Id if UNIVERSAL::isa($object, 'RT::Ticket'); } if ( $target->IsLocal ) { - unless (UNIVERSAL::can($target->Object, 'Id')) { + my $object = $target->Object; + unless (UNIVERSAL::can($object, 'Id')) { return (undef, $self->loc("[_1] appears to be a local object, but can't be found in the database", $args{'Target'})); } - $target_id = $target->Object->Id; + $target_id = $object->Id if UNIVERSAL::isa($object, 'RT::Ticket'); } # {{{ We don't want references to ourself @@ -301,89 +291,5 @@ sub BaseObj { } # }}} - - -# Static methods: - -# {{{ sub BaseIsLocal - -=head2 BaseIsLocal - -Returns true if the base of this link is a local ticket - -=cut - -sub BaseIsLocal { - my $self = shift; - $RT::Logger->crit("Link::BaseIsLocal is deprecated in favor of Link->BaseURI->IsLocal at (". join(":",caller).")"); - return $self->BaseURI->IsLocal; -} - -# }}} - -# {{{ sub TargetIsLocal - -=head2 TargetIsLocal - -Returns true if the target of this link is a local ticket - -=cut - -sub TargetIsLocal { - my $self = shift; - $RT::Logger->crit("Link::BaseIsLocal is deprecated in favor of Link->BaseURI->IsLocal at (". join(":",caller).")"); - return $self->TargetURI->IsLocal; -} - -# }}} - - -# {{{ sub BaseAsHREF - -=head2 BaseAsHREF - -Returns an HTTP url to access the base of this link - -=cut - -sub BaseAsHREF { - my $self = shift; - $RT::Logger->crit("Link::BaseAsHREF deprecated in favor of ->BaseURI->AsHREF at (". join(":",caller).")"); - return $self->BaseURI->HREF; -} -# }}} - -# {{{ sub TargetAsHREF - -=head2 TargetAsHREF - -return an HTTP url to access the target of this link - -=cut - -sub TargetAsHREF { - my $self = shift; - $RT::Logger->crit("Link::TargetAsHREF deprecated in favor of ->TargetURI->AsHREF at (". join(":",caller).")"); - return $self->TargetURI->HREF; -} -# }}} - -# {{{ sub AsHREF - Converts Link URIs to HTTP URLs - -=head2 URI - -Takes a URI and returns an http: url to access that object. - -=cut - - -sub AsHREF { - my $self=shift; - - $RT::Logger->crit("AsHREF is gone. look at URI::HREF to figure out what to do with \$URI"); -} - -# }}} - 1;