diff Lib/IMPL/Web/Application/Action.pm @ 268:4abda21186cd

*refactoring IMPL::Web: added 'application' property to resources
author cin
date Mon, 21 Jan 2013 02:08:17 +0400
parents 89179bb8c388
children 28eba7e0c592
line wrap: on
line diff
--- a/Lib/IMPL/Web/Application/Action.pm	Thu Jan 17 02:39:44 2013 +0400
+++ b/Lib/IMPL/Web/Application/Action.pm	Mon Jan 21 02:08:17 2013 +0400
@@ -98,16 +98,18 @@
     return URI->new_abs($this->application->baseUrl, $this->query->url(-base => 1));
 }
 
+# creates an url that contains server, schema and path parts
 sub CreateFullUrl {
     my ($this,$path) = @_;
     
-    return $path ? URI->new($path,$this->applicationFullUrl) : $this->applicationFullUrl;
+    return $path ? URI->new_abs($path,$this->applicationFullUrl) : $this->applicationFullUrl;
 }
 
+# creates an url that contains only a path part
 sub CreateAbsoluteUrl {
     my ($this,$path) = @_;
     
-    return $path ? URI->new($path,$this->applicationUrl) : $this->applicationUrl;
+    return $path ? URI->new_abs($path,$this->applicationUrl) : $this->applicationUrl;
 }
 
 sub _launder {