#
# COPYRIGHT:
#
-# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-2012 Best Practical Solutions, LLC
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
package RT::URI;
use strict;
+use warnings;
use base 'RT::Base';
use RT::URI::base;
-# {{{ FromObject
=head2 FromObject <Object>
-Given a local object, such as an RT::Ticket or an RT::FM::Article, this routine will return a URI for
+Given a local object, such as an RT::Ticket or an RT::Article, this routine will return a URI for
the local object
=cut
return $self->FromURI($obj->URI);
}
-# }}}
-# {{{ FromURI
=head2 FromURI <URI>
$scheme = $1;
}
else {
+ $self->{resolver} = RT::URI::base->new( $self->CurrentUser ); # clear resolver
$RT::Logger->warning("Could not determine a URI scheme for $uri");
return (undef);
}
}
-# }}}
-# {{{ _GetResolver
=head2 _GetResolver <scheme>
}
-# }}}
-# {{{ Scheme
=head2 Scheme
return ($self->Resolver->Scheme);
}
-# }}}
-# {{{ URI
=head2 URI
return ($self->Resolver->URI);
}
-# }}}
-# {{{ Object
=head2 Object
}
-# }}}
-# {{{ IsLocal
=head2 IsLocal
}
-# }}}
=head2 AsHREF