diff options
author | Yorhel <git@yorhel.nl> | 2014-10-21 09:53:53 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2014-10-21 09:53:53 +0200 |
commit | 20805809f42d8fa152aca46d0b737e90b308092a (patch) | |
tree | 6ef0b87fc96b26f6f1678501a9cb2e390808b4f8 /lib/VNDB/Handler/ULists.pm | |
parent | 57022acc845a1502e4e42a322d48567b9afe7f02 (diff) |
Use TUWF's reqBaseURI() instead of $self->{uri} on site links
TUWF properly detects HTTPS and includes this in the returned URL, so
this change ensures that all URLs adopt properly to HTTP and HTTPS.
Diffstat (limited to 'lib/VNDB/Handler/ULists.pm')
-rw-r--r-- | lib/VNDB/Handler/ULists.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/VNDB/Handler/ULists.pm b/lib/VNDB/Handler/ULists.pm index cdc30d01..bab30be6 100644 --- a/lib/VNDB/Handler/ULists.pm +++ b/lib/VNDB/Handler/ULists.pm @@ -101,7 +101,8 @@ sub rlist_e { $self->dbRListAdd($uid, $rid, $f->{e}) if $f->{e} >= 0; if($id) { - (my $ref = $self->reqHeader('Referer')||"/r$id") =~ s/^\Q$self->{url}//; + my $b = $self->reqBaseURI(); + (my $ref = $self->reqHeader('Referer')||"/r$id") =~ s/^\Q$b//; $self->resRedirect($ref, 'temp'); } else { # doesn't really matter what we return, as long as it's XML |