From 27c5a57fac903382eac1216fe06f259f858245c8 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 1 Nov 2007 23:42:23 +0000
Subject: Renaming the Session namespace to LedgerSMB::Auth

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

(limited to 'LedgerSMB.pm')

diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index 81e34759..7b555e10 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -125,7 +125,7 @@ use CGI::Simple;
 use Math::BigFloat;
 use LedgerSMB::Sysconfig;
 use Data::Dumper;
-use LedgerSMB::Session;
+use LedgerSMB::Auth;
 use LedgerSMB::Template;
 use LedgerSMB::Locale;
 use LedgerSMB::User;
@@ -195,7 +195,7 @@ sub new {
     if ($self->is_run_mode('cgi', 'mod_perl')) {
        #check for valid session unless this is an inital authentication
        #request -- CT
-       if (!Session::session_check( $cookie{"LedgerSMB"}, $self) ) {
+       if (!LedgerSMB::Auth::session_check( $cookie{"LedgerSMB"}, $self) ) {
             $self->_get_password("Session Expired");
             exit;
        }
@@ -215,7 +215,7 @@ sub new {
 sub _get_password {
     my ($self) = shift @_;
     $self->{sessionexpired} = shift @_;
-    Session::credential_prompt();
+    LedgerSMB::Auth::credential_prompt();
     exit;
 }
 
@@ -634,7 +634,7 @@ sub _db_init {
     my $self     = shift @_;
     my %args     = @_;
 
-    my $creds = Session::get_credentials();
+    my $creds = LedgerSMB::Auth::get_credentials();
   
     $self->{login} = $creds->{login};
     if (!$self->{company}){ 
-- 
cgit v1.2.3