my %params=@_;
# The base url needs to be a full URL, and urlto may return a path.
- my $baseurl = absurl(urlto($params{page}), $cgi->url);
+ my $baseurl = absurl(urlto($params{page}), $cgi);
showform($form, $buttons, $session, $cgi, @_,
forcebaseurl => $baseurl);
my $q=shift;
eval q{use URI};
- return URI->new_abs($partialurl, $q);
+ return URI->new_abs($partialurl, $q->url);
}
sub redirect ($$) {