summaryrefslogtreecommitdiff
path: root/httemplate/elements/handle_uri_query
blob: eb7ea1ae11b35359a5dc1cb9c2460e1cd684d8d8 (plain)
1
2
3
4
5
6
7
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>