Revision b8da8785
Von Sven Schöling vor fast 16 Jahren hinzugefügt
| SL/User.pm | ||
|---|---|---|
| 34 | 34 |
|
| 35 | 35 |
package User; |
| 36 | 36 |
|
| 37 |
use strict; |
|
| 38 |
|
|
| 37 | 39 |
use IO::File; |
| 38 | 40 |
use Fcntl qw(:seek); |
| 39 | 41 |
|
| ... | ... | |
| 92 | 94 |
$main::lxdebug->enter_sub(); |
| 93 | 95 |
|
| 94 | 96 |
my ($self, $form) = @_; |
| 97 |
our $sid; |
|
| 95 | 98 |
|
| 96 | 99 |
local *FH; |
| 97 | 100 |
|
| ... | ... | |
| 680 | 683 |
$my_a =~ s/.sql$//; |
| 681 | 684 |
$my_b =~ s/.*-upgrade-//; |
| 682 | 685 |
$my_b =~ s/.sql$//; |
| 683 |
($my_a_from, $my_a_to) = split(/-/, $my_a); |
|
| 684 |
($my_b_from, $my_b_to) = split(/-/, $my_b); |
|
| 686 |
my ($my_a_from, $my_a_to) = split(/-/, $my_a);
|
|
| 687 |
my ($my_b_from, $my_b_to) = split(/-/, $my_b);
|
|
| 685 | 688 |
|
| 686 | 689 |
$res_a = calc_version($my_a_from); |
| 687 | 690 |
$res_b = calc_version($my_b_from); |
| ... | ... | |
| 934 | 937 |
$main::lxdebug->enter_sub(); |
| 935 | 938 |
|
| 936 | 939 |
my ($self) = @_; |
| 940 |
my $form = \%main::form; |
|
| 937 | 941 |
|
| 938 | 942 |
# format dbconnect and dboptions string |
| 939 | 943 |
dbconnect_vars($self, $self->{dbname});
|
| ... | ... | |
| 964 | 968 |
my ($login) = selectrow_query($form, $dbh, qq|SELECT id FROM employee WHERE login = ?|, $self->{login});
|
| 965 | 969 |
|
| 966 | 970 |
if (!$login) {
|
| 967 |
$query = qq|INSERT INTO employee (login, name, workphone, role) VALUES (?, ?, ?, ?)|; |
|
| 971 |
my $query = qq|INSERT INTO employee (login, name, workphone, role) VALUES (?, ?, ?, ?)|;
|
|
| 968 | 972 |
do_query($form, $dbh, $query, ($self->{login}, $myconfig->{name}, $myconfig->{tel}, "user"));
|
| 969 | 973 |
} |
| 970 | 974 |
|
Auch abrufbar als: Unified diff
Mehr Perlcode strict gemacht.