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

1 files changed, 4 insertions, 4 deletions

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}){