diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/login.pl | 5 | ||||
| -rw-r--r-- | scripts/menu.pl | 1 |
2 files changed, 3 insertions, 3 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}){ diff --git a/scripts/menu.pl b/scripts/menu.pl index ad362c1c..f873398f 100644 --- a/scripts/menu.pl +++ b/scripts/menu.pl @@ -105,7 +105,6 @@ there nodes which are supposed to be open are marked. sub expanding_menu { my ($request) = @_; - print STDERR 'Breakpoint\n'; if ($request->{'open'} !~ s/:$request->{id}:/:/){ $request->{'open'} .= ":$request->{id}:"; } |