$myconfig = new User "$memberfile", "$form->{login}";
# redo acs variable and delete all the acs codes
- @acs = split /;/, $form->{acs};
+ @acs = split(/;/, $form->{acs});
$form->{acs} = "";
foreach $item (@acs) {
<form method=post action=$form->{script}>
-<b>|
- . $locale->text('Password')
- . qq|</b> <input type=password name=password size=8>
+<table>
+ <tr>
+ <td><b>| . $locale->text('Password') . qq|</b></td>
+ <td><input type=password name=password size=8></td>
+ </tr>
+ <tr>
+ <td><b>| . $locale->text('Repeat the password') . qq|</b></td>
+ <td><input type=password name=password_again size=8></b></td>
+ </tr>
+</table>
<input type=hidden name=path value=$form->{path}>
<input type=hidden name=rpw value=$form->{rpw}>
}
sub change_password {
+ if ($form->{"password"} ne $form->{"password_again"}) {
+ $form->{title} =
+ qq|Lx-Office ERP |
+ . $locale->text('Administration') . " / "
+ . $locale->text('Change Admin Password');
+
+ $form->header;
+
+ print qq|
+<body class=admin>
+
+
+<h2>| . $locale->text('Change Admin Password') . qq|</h2>
+
+<p>| . $locale->text("The passwords do not match.") . qq|<br>
+<input type="button" onclick="history.back()" value="| . $locale->text("Back") . qq|">|;
+ return;
+ }
$root->{password} = $form->{password};
'Administration' => 'Administration',
'Administrator' => 'Administrator',
'All Datasets up to date!' => 'Alle Datenbanken sind auf aktuellem Stand.',
+ 'Back' => 'Zurück',
'Cannot create Lock!' => 'System kann nicht gesperrt werden!',
'Change Admin Password' => 'Administratorpasswort ändern',
'Change Password' => 'Passwort ändern',
'Port' => 'Port',
'Port missing!' => 'Portangabe fehlt!',
'Printer' => 'Drucker',
+ 'Repeat the password' => 'Passwort wiederholen',
'Save' => 'Speichern',
'Setup Menu' => 'Menüsetup',
'Setup Templates' => 'Vorlagen auswählen',
'Templates' => 'Vorlagen',
'The following Datasets are not in use and can be deleted' => 'Die folgenden Datenbanken sind nicht in Verwendung und können gelöscht werden',
'The following Datasets need to be updated' => 'Folgende Datenbanken müssen aktualisiert werden',
+ 'The passwords do not match.' => 'Die Passwörter stimmen nicht überein.',
'This is a preliminary check for existing sources. Nothing will be created or deleted at this stage!' => 'In diesem Schritt werden bestehende Datenbanken gesucht. Es werden noch keine Änderungen vorgenommen!',
'To add a user to a group edit a name, change the login name and save. A new user with the same variables will then be saved under the new login name.' => 'Um einer Gruppe einen neuen Benutzer hinzuzufügen, ändern und speichern Sie am einfachsten einen bestehen den Zugriffsnamen. Unter dem neuen Namen wird dann ein Benutzer mit denselben Einstellungen angelegt.',
'Unlock System' => 'System entsperren',
'Remove' => 'entfernen',
'Removed spoolfiles!' => 'Druckdateien entfernt!',
'Removing marked entries from queue ...' => 'Markierte Einträge werden von der Warteschlange entfernt ...',
+ 'Repeat the password' => 'Passwort wiederholen',
'Report for' => 'Bericht für',
'Reports' => 'Berichte',
'Reqdate' => 'Lieferdatum',
'The name in row %d has already been used before.' => 'Der Name in Zeile %d wurde vorher bereits benutzt.',
'The name is missing in row %d.' => 'Der Name fehlt in Zeile %d.',
'The name is missing.' => 'Der Name fehlt.',
+ 'The passwords do not match.' => 'Die Passwörter stimmen nicht überein.',
'The unit has been saved.' => 'Die Einheit wurde gespeichert.',
'The unit in row %d has been deleted in the meantime.' => 'Die Einheit in Zeile %d ist in der Zwischentzeit gelöscht worden.',
'The unit in row %d has been used in the meantime and cannot be changed anymore.' => 'Die Einheit in Zeile %d wurde in der Zwischenzeit benutzt und kann nicht mehr geändert werden.',