diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-14 17:31:23 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-14 17:31:23 +0000 |
commit | e5549057abc64f86547384d7c06f99614332c0f4 (patch) | |
tree | de3b1a73bf27f4998a807705f0e3d9b51b0a00a3 /scripts/login.pl | |
parent | a4bc02096b38696e5d922689e6ffe7b7645fe6e3 (diff) |
Moving menus to unorderded lists. CSS still need a few changes, but this is waiting on permission to use nice + and - graphics.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1752 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'scripts/login.pl')
-rw-r--r-- | scripts/login.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/scripts/login.pl b/scripts/login.pl index 30a6eed3..c51b3fbd 100644 --- a/scripts/login.pl +++ b/scripts/login.pl @@ -25,14 +25,15 @@ sub __default { sub authenticate { my ($request) = @_; if (!$request->{dbh}){ - $request->{company} = 'ledgersmb-taxtest'; + if (!$request->{company}){ + $request->{company} = $LedgerSMB::Sysconfig::default_db; + } $request->_db_init; } my $path = $ENV{SCRIPT_NAME}; $path =~ s|[^/]*$||; if ($request->{dbh} || $request->{log_out}){ print "Content-Type: text/html\n"; -## print "Set-Cookie: LedgerSMB=Login;\n"; print "Set-Cookie: LedgerSMB=Login; path=$path\n"; print "Status: 200 Success\n\n"; if ($request->{log_out}){ |