git://git.jankratochvil.net
/
MyWeb.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
b7a1309
)
&path_web: Allow overriding $WebConfig{"Wabs"} by the argument {"abs"}.
author
short
<>
Fri, 16 Dec 2005 04:39:27 +0000
(
04:39
+0000)
committer
short
<>
Fri, 16 Dec 2005 04:39:27 +0000
(
04:39
+0000)
Web.pm
patch
|
blob
|
history
diff --git
a/Web.pm
b/Web.pm
index
5bc71e0
..
143f3a7
100644
(file)
--- 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{"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)=@_;
sub path_web($%)
{
my($in,%args)=@_;
@@
-589,7
+589,9
@@
my($in,%args)=@_;
%{$uri->query_form_hash()},
});
}
%{$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());
}
return $uri->rel(unparsed_uri());
}