torrux 4.x compat

[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 837147f..d97920e 100644 (file)
--- a/torrus/perllib/Torrus/Renderer/Freeside.pm
+++ b/torrus/perllib/Torrus/Renderer/Freeside.pm
@@ -1,6 +1,26 @@
 package Torrus::Renderer::Freeside;
 
+use strict;
+use warnings;
 use base 'Torrus::Freeside';
+use FS::UID qw(setcgi adminsuidsetup);
+use FS::TicketSystem;
+
+our $cgi = '';
+
+sub freesideSetup {
+  #my $self = shift;
+
+  return if $cgi eq $Torrus::CGI::q;
+
+  $cgi = $Torrus::CGI::q;
+
+  setcgi($cgi);
+
+  adminsuidsetup;
+  FS::TicketSystem->init();
+
+}
 
 1;