}
# $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)=@_;
%{$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());
}