From: ivan <ivan>
Date: Thu, 30 Dec 2010 17:33:10 +0000 (+0000)
Subject: torrus, RT#10574
X-Git-Tag: freeside_2_3_0~792
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=062179900d1fbdfd6831d07cb5e5f290a6512f4c

torrus, RT#10574
---

diff --git a/torrus/configs/torrus-siteconfig.pl b/torrus/configs/torrus-siteconfig.pl
index 623f7a9cc..504c0f37d 100644
--- a/torrus/configs/torrus-siteconfig.pl
+++ b/torrus/configs/torrus-siteconfig.pl
@@ -21,7 +21,7 @@
 $Torrus::CGI::authorizeUsers = 0;
 $Torrus::Renderer::rendererURL = '/freeside/torrus';
 $Torrus::Renderer::plainURL    = '/freeside/torrus/plain/';
-$Torrus::Renderer::Freeside::FSURL = '%%%FREESIDE_URL%%%';
+$Torrus::Freeside::FSURL = '%%%FREESIDE_URL%%%';
 $Torrus::Renderer::displayReports = 1;
 push (@Torrus::Collector::loadModules, 'Torrus::Collector::ExternalStorage');
 $Torrus::SQL::connections{'Default'}{'dsn'} =
diff --git a/torrus/perllib/Torrus/Freeside.pm b/torrus/perllib/Torrus/Freeside.pm
index 1b0a28122..359d544f0 100644
--- a/torrus/perllib/Torrus/Freeside.pm
+++ b/torrus/perllib/Torrus/Freeside.pm
@@ -5,8 +5,6 @@ use warnings;
 
 #Freeside
 use FS::Mason qw( mason_interps );
-use FS::UID qw(cgisuidsetup);
-use FS::TicketSystem;
 
 my $outbuf;
 my( $fs_interp, $rt_interp ) = mason_interps('standalone', 'outbuf'=>\$outbuf);
@@ -49,8 +47,7 @@ sub freesideComponent {
   $FS::Mason::Request::FSURL .= '/' unless $FS::Mason::Request::FSURL =~ /\/$/;
 #  $FS::Mason::Request::QUERY_STRING = $packet->{'query_string'} || '';
 
-  cgisuidsetup($Torrus::CGI::q);
-  FS::TicketSystem->init();
+  $self->freesideSetup;
 
   $outbuf = '';
   #$fs_interp->exec($comp, @args); #only FS for now alas...
diff --git a/torrus/perllib/Torrus/Renderer/Freeside.pm b/torrus/perllib/Torrus/Renderer/Freeside.pm
index 837147ff9..8d9341509 100644
--- a/torrus/perllib/Torrus/Renderer/Freeside.pm
+++ b/torrus/perllib/Torrus/Renderer/Freeside.pm
@@ -1,6 +1,18 @@
 package Torrus::Renderer::Freeside;
 
+use strict;
+use warnings;
 use base 'Torrus::Freeside';
+use FS::UID qw(cgisuidsetup);
+use FS::TicketSystem;
+
+sub freesideSetup {
+  #my $self = shift;
+
+  cgisuidsetup($Torrus::CGI::q);
+  FS::TicketSystem->init();
+
+}
 
 1;
 
diff --git a/torrus/perllib/Torrus/ReportOutput/Freeside.pm b/torrus/perllib/Torrus/ReportOutput/Freeside.pm
index 95daa0616..47db28d56 100644
--- a/torrus/perllib/Torrus/ReportOutput/Freeside.pm
+++ b/torrus/perllib/Torrus/ReportOutput/Freeside.pm
@@ -1,6 +1,18 @@
 package Torrus::ReportOutput::Freeside;
 
+use strict;
+use warnings;
 use base 'Torrus::Freeside';
+use FS::UID qw(adminsuidsetup);
+use FS::TicketSystem;
+
+sub freesideSetup {
+  #my $self = shift;
+
+  adminsuidsetup('fs_queue'); #XXX for now
+  FS::TicketSystem->init();
+
+}
 
 1;