summaryrefslogtreecommitdiff
path: root/httemplate/elements/handle_uri_query
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/elements/handle_uri_query')
-rw-r--r--httemplate/elements/handle_uri_query8
1 files changed, 8 insertions, 0 deletions
diff --git a/httemplate/elements/handle_uri_query b/httemplate/elements/handle_uri_query
new file mode 100644
index 000000000..eb7ea1ae1
--- /dev/null
+++ b/httemplate/elements/handle_uri_query
@@ -0,0 +1,8 @@
+<%init>
+if ( $cgi->param('redirect') ) {
+ my $session = $cgi->param('redirect');
+ my $pref = $FS::CurrentUser::CurrentUser->option("redirect$session");
+ die "unknown redirect session $session\n" unless length($pref);
+ $cgi = new CGI($pref);
+}
+</%init>