X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=blobdiff_plain;f=Web.pm;h=143f3a7b7d00964d5b2aaf5a95b350bbb05844b5;hp=5bc71e0824136e525f0e6e33a0d7f8e5493c6170;hb=a6cafbdedd009c8dfce91ba9d390fbce72df2595;hpb=b7a13090b7f4a4ee4539f9a5e7019c809557a545

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());
 }