From: short <>
Date: Fri, 16 Dec 2005 04:39:27 +0000 (+0000)
Subject: &path_web: Allow overriding $WebConfig{"Wabs"} by the argument {"abs"}.
X-Git-Url: https://git.jankratochvil.net/?p=MyWeb.git;a=commitdiff_plain;h=a6cafbdedd009c8dfce91ba9d390fbce72df2595

&path_web: Allow overriding $WebConfig{"Wabs"} by the argument {"abs"}.
---

diff --git a/Web.pm b/Web.pm
index 5bc71e0..143f3a7 100644
--- a/Web.pm
+++ b/Web.pm
@@ -570,7 +570,7 @@ my($in)=@_;
 }
 
 # $args{"uri_as_in"}=1 to permit passing URI objects as: $in
-# $args{"abs"}=1;
+# $args{"abs"}=0 || 1;	# overrides: $W->{"args"}{"Wabs"}
 sub path_web($%)
 {
 my($in,%args)=@_;
@@ -589,7 +589,9 @@ my($in,%args)=@_;
 				%{$uri->query_form_hash()},
 				});
 		}
-	return $uri->abs(unparsed_uri()) if $W->{"args"}{"Wabs"} || $args{"abs"};
+	my $abs;
+	do { $abs=$_ if defined; } for $W->{"args"}{"Wabs"},$args{"abs"};
+	return $uri->abs(unparsed_uri()) if $abs;
 	return $uri->rel(unparsed_uri());
 }