Upgrade to 4.0.8 with mod of ExternalAuth + absolute paths to ticket-menu.

[usit-rt.git] / lib / RT / URI.pm

diff --git a/lib/RT/URI.pm b/lib/RT/URI.pm
index fce04598a4c666a8b1271bcea8482b6e6e3ace2c..284a75ee0fdb065360a6d993a9663ca972c2263e 100644 (file)
--- a/lib/RT/URI.pm
+++ b/lib/RT/URI.pm
@@ -91,7 +91,26 @@ sub new {
     return ($self);
 }
 
+=head2 CanonicalizeURI <URI>
 
+Returns the canonical form of the given URI by calling L</FromURI> and then L</URI>.
+
+If the URI is unparseable by FromURI the passed in URI is simply returned untouched.
+
+=cut
+
+sub CanonicalizeURI {
+    my $self = shift;
+    my $uri  = shift;
+    if ($self->FromURI($uri)) {
+        my $canonical = $self->URI;
+        if ($canonical and $uri ne $canonical) {
+            RT->Logger->debug("Canonicalizing URI '$uri' to '$canonical'");
+            $uri = $canonical;
+        }
+    }
+    return $uri;
+}
 
 
 =head2 FromObject <Object>