torrus/perllib/Torrus/Renderer/Freeside.pm

   1 package Torrus::Renderer::Freeside;
   2
   3 use strict;
   4 use warnings;
   5 use base 'Torrus::Freeside';
   6 use FS::UID qw(cgisuidsetup);
   7 use FS::TicketSystem;
   8
   9 our $cgi = '';
  10
  11 sub freesideSetup {
  12   #my $self = shift;
  13
  14   return if $cgi eq $Torrus::CGI::q;
  15
  16   $cgi = $Torrus::CGI::q;
  17
  18   cgisuidsetup($cgi);
  19   FS::TicketSystem->init();
  20
  21 }
  22
  23 1;
  24