Restore default database handling in login

ylavoie · Sep 1, 2020 · 7e7730e · 7e7730e
1 parent 59482f5
commit 7e7730e
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/lib/LedgerSMB/Scripts/login.pm b/lib/LedgerSMB/Scripts/login.pm
@@ -62,8 +62,6 @@ my $json = JSON::MaybeXS->new( pretty => 1,
 sub authenticate {
     my ($request) = @_;
 
-    $request->{company} ||= $LedgerSMB::Sysconfig::default_db;
-
     if ($request->{_req}->content_length > 4096) {
         # Obviously, the request to log in can't be slurped into memory
         # when bigger than 4k (which it ***NEVER*** should be...
@@ -80,6 +78,7 @@ sub authenticate {
         || ! $r->{password}) {
         return LedgerSMB::PSGI::Util::unauthorized();
     }
+    $r->{company} ||= $LedgerSMB::Sysconfig::default_db;
     if ($request->{_create_session}->($r->{login},
                                       $r->{password},
                                       $r->{company})) {