From: Mark Wells <mark@freeside.biz>
Date: Wed, 27 Apr 2016 20:35:00 +0000 (-0700)
Subject: fix redirect on error in test environment
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=a057e75a089baf5c36c3523b5014ada747a925a6

fix redirect on error in test environment
---

diff --git a/httemplate/elements/create_uri_query b/httemplate/elements/create_uri_query
index 414d53ba4..ce6249e0e 100644
--- a/httemplate/elements/create_uri_query
+++ b/httemplate/elements/create_uri_query
@@ -18,7 +18,7 @@ my $query = $cgi->query_string;
 
 if ( length($query) > 1920 || $opt{secure} ) { #stupid IE 2083 URL limit
 
-  my $session = random_id(9);
+  my $session = int(rand(4294967296)); #XXX
   my $pref = new FS::access_user_pref({
     'usernum'    => $FS::CurrentUser::CurrentUser->usernum,
     'prefname'   => "redirect$session",