Formulardaten für Datumsangabe gequoted, da hier sonst onBlur... im value stand.
[kivitendo-erp.git] / bin / mozilla / login.pl
index c6c947e..f09b882 100644 (file)
@@ -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;
 }
@@ -91,6 +93,8 @@ sub login_screen {
 
 <form method=post name=loginscreen action=$form->{script}>
 
+  <input type="hidden" name="show_dbupdate_warning" value="1">
+
       <table width=100%>
        <tr>
          <td align=center>
@@ -107,7 +111,7 @@ sub login_screen {
            </table>
 
            <br>
-           <input type=submit name=action value="| . $locale->text('Login') . qq|">
+           <input type=submit name=action value="| . $locale->text('Login') . qq|" tabindex="3">
 
          </td>
        </tr>
@@ -140,12 +144,6 @@ sub login {
     $err[1] = $err[3] = $locale->text('Incorrect username or password!');
 
     if ($errno == 2) {
-
-      # upgraded dataset, login again
-      $form->redirect(
-        "<a href=menu.pl?login=$form->{login}&password=$form->{password}&path=$form->{path}&action=display>" .
-        $locale->text("Continue") . "</a>"
-      );
       exit;
     }
 
@@ -153,7 +151,10 @@ sub login {
   }
 
   # made it this far, execute the menu
-  if ($user->{menustyle} eq "neu") {
+  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 {