projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
gelöschte Benutzer in do/search ausblenden
[kivitendo-erp.git]
/
SL
/
User.pm
diff --git
a/SL/User.pm
b/SL/User.pm
index
640299d
..
5d58b5d
100644
(file)
--- a/
SL/User.pm
+++ b/
SL/User.pm
@@
-77,9
+77,9
@@
sub country_codes {
my @dir = grep(!/(^\.\.?$|\..*)/, readdir(DIR));
foreach my $dir (@dir) {
my @dir = grep(!/(^\.\.?$|\..*)/, readdir(DIR));
foreach my $dir (@dir) {
- next unless open(
FH
, "locale/$dir/LANGUAGE");
- @language = <
FH
>;
- close
FH
;
+ next unless open(
my $fh, '<:encoding(UTF-8)'
, "locale/$dir/LANGUAGE");
+ @language = <
$fh
>;
+ close
$fh
;
$cc{$dir} = "@language";
}
$cc{$dir} = "@language";
}
@@
-738,7
+738,7
@@
sub create_employee_entry {
do_query($form, $dbh, $query, ($self->{login}, $myconfig->{name}, $myconfig->{tel}, "user"));
} elsif ($update_existing) {
do_query($form, $dbh, $query, ($self->{login}, $myconfig->{name}, $myconfig->{tel}, "user"));
} elsif ($update_existing) {
- my $query = qq|UPDATE employee SET name = ?, workphone = ?, role = 'user' WHERE id = ?|;
+ my $query = qq|UPDATE employee SET name = ?, workphone = ?, role = 'user'
, deleted = 'f'
WHERE id = ?|;
do_query($form, $dbh, $query, $myconfig->{name}, $myconfig->{tel}, $id);
}
do_query($form, $dbh, $query, $myconfig->{name}, $myconfig->{tel}, $id);
}