From f725fa7712cbc53bc6bc9285ecfad3777f870a52 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 14 Aug 2008 15:25:48 +0000
Subject: Applying patch 2013331 from Jeffk on configurable cookie names

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2261 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'LedgerSMB.pm')

diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index 9239cd50..61293a2b 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -207,7 +207,7 @@ sub new {
         return $self;
     }
     if (!$self->{company} && $self->is_run_mode('cgi', 'mod_perl')){
-         my $ccookie = $cookie{LedgerSMB};
+         my $ccookie = $cookie{${LedgerSMB::Sysconfig::cookie_name}};
          $ccookie =~ s/.*:([^:]*)$/$1/;
          $self->{company} = $ccookie;
     }
@@ -217,7 +217,7 @@ sub new {
     if ($self->is_run_mode('cgi', 'mod_perl')) {
        #check for valid session unless this is an inital authentication
        #request -- CT
-       if (!LedgerSMB::Auth::session_check( $cookie{"LedgerSMB"}, $self) ) {
+       if (!LedgerSMB::Auth::session_check( $cookie{${LedgerSMB::Sysconfig::cookie_name}}, $self) ) {
             print STDERR "Session did not check";
             $self->_get_password("Session Expired");
             exit;
-- 
cgit v1.2.3