[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

SF.net SVN: ledger-smb:[6565] trunk/LedgerSMB/Session.pm



Revision: 6565
          http://sourceforge.net/p/ledger-smb/code/6565
Author:   einhverfr
Date:     2014-01-21 04:51:53 +0000 (Tue, 21 Jan 2014)
Log Message:
-----------
Can now log in on 1.4

Modified Paths:
--------------
    trunk/LedgerSMB/Session.pm

Modified: trunk/LedgerSMB/Session.pm
===================================================================
--- trunk/LedgerSMB/Session.pm	2014-01-21 04:00:09 UTC (rev 6564)
+++ trunk/LedgerSMB/Session.pm	2014-01-21 04:51:53 UTC (rev 6565)
@@ -37,7 +37,7 @@
     my $path = ($ENV{SCRIPT_NAME});
     $path =~ s|[^/]*$||;
     my $secure;
-   if (($cookie eq 'Login') or ($cookie =~ /^::/)){
+   if (($cookie eq 'Login') or ($cookie =~ /^::/) or (!$cookie)){
         return create($form);
     }
     my $timeout;
@@ -128,6 +128,10 @@
     $path =~ s|[^/]*$||;
     my $dbh = $lsmb->{dbh};
     my $login = $lsmb->{login};
+    if (!$login) {
+       my $creds = LedgerSMB::Auth::get_credentials;
+       $login = $creds->{login};
+    }
 
 
     if ( !$ENV{GATEWAY_INTERFACE} ) {

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.


------------------------------------------------------------------------------
CenturyLink Cloud: The Leader in Enterprise Cloud Services.
Learn Why More Businesses Are Choosing CenturyLink Cloud For
Critical Workloads, Development Environments & Everything In Between.
Get a Quote or Start a Free Trial Today. 
http://pubads.g.doubleclick.net/gampad/clk?id=119420431&iu=/4140/ostg.clktrk
_______________________________________________
Ledger-smb-commits mailing list
..hidden..
https://lists.sourceforge.net/lists/listinfo/ledger-smb-commits