X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Flogin.pl;h=f09b8825835462c1d0e0639216ee57c999774fdf;hb=637be9d46084bc19a08b91bc13ae541a6c36f9ef;hp=cea155976c98b9ebda3d1ab9e62d654745e909b7;hpb=ee072e4f077213bf6f8792ca8f0a1afebbb6282f;p=kivitendo-erp.git diff --git a/bin/mozilla/login.pl b/bin/mozilla/login.pl index cea155976..f09b88258 100644 --- a/bin/mozilla/login.pl +++ b/bin/mozilla/login.pl @@ -31,6 +31,8 @@ use DBI; use SL::User; use SL::Form; +require "bin/mozilla/common.pl"; + $form = new Form; $locale = new Locale $language, "login"; @@ -53,7 +55,7 @@ $form->{titlebar} = if ($form->{action}) { $form->{titlebar} .= " - $myconfig{name} - $myconfig{dbname}"; - &{ $locale->findsub($form->{action}) }; + call_sub($locale->findsub($form->{action})); } else { &login_screen; } @@ -84,14 +86,15 @@ sub login_screen {

| - . $locale->text('Version') - . qq| $form->{version} + . $locale->text('Version') . qq| $form->{version}

{script}> + +
@@ -108,7 +111,7 @@ sub login_screen {

- + @@ -141,11 +144,6 @@ sub login { $err[1] = $err[3] = $locale->text('Incorrect username or password!'); if ($errno == 2) { - - # upgraded dataset, login again - $form->redirect( - "{login}&password=$form->{password}&path=$form->{path}&action=display>Continue" - ); exit; } @@ -153,8 +151,16 @@ sub login { } # made it this far, execute the menu - $form->{callback} = - "menu.pl?login=$form->{login}&password=$form->{password}&path=$form->{path}&action=display"; + if ($user->{menustyle} eq "v3") { + $form->{callback} = + "menuv3.pl?login=$form->{login}&password=$form->{password}&path=$form->{path}&action=display"; + } elsif ($user->{menustyle} eq "neu") { + $form->{callback} = + "menunew.pl?login=$form->{login}&password=$form->{password}&path=$form->{path}&action=display"; + } else { + $form->{callback} = + "menu.pl?login=$form->{login}&password=$form->{password}&path=$form->{path}&action=display"; + } $form->redirect;