[freeside-commits] freeside/torrus/perllib/Torrus/Renderer Freeside.pm, 1.6, 1.7

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/torrus/perllib/Torrus/Renderer
In directory wavetail.420.am:/tmp/cvs-serv3177/Renderer

Modified Files:
	Freeside.pm 
Log Message:
fix torrus interface slowness resulting from initializing FS for every component, RT#10574

Index: Freeside.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/torrus/perllib/Torrus/Renderer/Freeside.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -w -d -r1.6 -r1.7
--- Freeside.pm	30 Dec 2010 17:33:10 -0000	1.6
+++ Freeside.pm	30 Jan 2011 23:45:58 -0000	1.7
@@ -6,10 +6,16 @@
 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();
 
 }