[freeside-commits] freeside/FS/FS/ClientAPI MasonComponent.pm, 1.6, 1.7

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/ClientAPI
In directory wavetail.420.am:/tmp/cvs-serv6647

Modified Files:
	MasonComponent.pm 
Log Message:
fix for selfservice_server-base_url without a trailing /

Index: MasonComponent.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/ClientAPI/MasonComponent.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- MasonComponent.pm	22 Oct 2009 19:56:23 -0000	1.6
+++ MasonComponent.pm	17 Jan 2010 06:40:39 -0000	1.7
@@ -109,6 +109,7 @@
 
   my $conf = new FS::Conf;
   $FS::Mason::Request::FSURL = $conf->config('selfservice_server-base_url');
+  $FS::Mason::Request::FSURL .= '/' unless $FS::Mason::Request::FSURL =~ /\/$/;
   $FS::Mason::Request::QUERY_STRING = $packet->{'query_string'} || '';
 
   $outbuf = '';