Revision a590a651
Von Sven Schöling vor mehr als 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 3235 | 3235 |
sub save_history {
|
| 3236 | 3236 |
$main::lxdebug->enter_sub(); |
| 3237 | 3237 |
|
| 3238 |
my $self = shift();
|
|
| 3239 |
my $dbh = shift();
|
|
| 3238 |
my $self = shift; |
|
| 3239 |
my $dbh = shift || $self->get_standard_dbh;
|
|
| 3240 | 3240 |
|
| 3241 | 3241 |
if(!exists $self->{employee_id}) {
|
| 3242 | 3242 |
&get_employee($self, $dbh); |
| ... | ... | |
| 3249 | 3249 |
$self->{addition}, $self->{what_done}, "$self->{snumbers}");
|
| 3250 | 3250 |
do_query($self, $dbh, $query, @values); |
| 3251 | 3251 |
|
| 3252 |
$dbh->commit; |
|
| 3253 |
|
|
| 3252 | 3254 |
$main::lxdebug->leave_sub(); |
| 3253 | 3255 |
} |
| 3254 | 3256 |
|
Auch abrufbar als: Unified diff
save_history sollte NICHT jedesmal eine neue datenbankverbindung aufmachen.