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

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}:";
     }