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

1 files changed, 2 insertions, 2 deletions

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;