fix torrus interface slowness resulting from initializing FS for every component...

[freeside.git] / torrus / perllib / Torrus / Renderer / Freeside.pm

diff --git a/torrus/perllib/Torrus/Renderer/Freeside.pm b/torrus/perllib/Torrus/Renderer/Freeside.pm
index 8d93415..9a7c023 100644 (file)
--- a/torrus/perllib/Torrus/Renderer/Freeside.pm
+++ b/torrus/perllib/Torrus/Renderer/Freeside.pm
@@ -6,10 +6,16 @@ use base 'Torrus::Freeside';
 use FS::UID qw(cgisuidsetup);
 use FS::TicketSystem;
 
+our $cgi = '';
+
 sub freesideSetup {
   #my $self = shift;
 
-  cgisuidsetup($Torrus::CGI::q);
+  return if $cgi eq $Torrus::CGI::q;
+
+  $cgi = $Torrus::CGI::q;
+
+  cgisuidsetup($cgi);
   FS::TicketSystem->init();
 
 }