Revision 03907d6f
Von Sven Schöling vor mehr als 9 Jahren hinzugefügt
| SL/DBUpgrade2.pm | ||
|---|---|---|
| 38 | 38 |
} |
| 39 | 39 |
|
| 40 | 40 |
sub parse_dbupdate_controls {
|
| 41 |
$::lxdebug->enter_sub(); |
|
| 42 |
|
|
| 43 | 41 |
my ($self) = @_; |
| 44 | 42 |
|
| 45 | 43 |
my $form = $self->{form};
|
| ... | ... | |
| 124 | 122 |
|
| 125 | 123 |
$self->{all_controls} = \%all_controls;
|
| 126 | 124 |
|
| 127 |
$::lxdebug->leave_sub(); |
|
| 128 |
|
|
| 129 | 125 |
return $self; |
| 130 | 126 |
} |
| 131 | 127 |
|
| ... | ... | |
| 381 | 377 |
} |
| 382 | 378 |
|
| 383 | 379 |
sub _dbupdate2_calculate_depth {
|
| 384 |
$::lxdebug->enter_sub(2); |
|
| 385 |
|
|
| 386 | 380 |
my ($tree, $tag) = @_; |
| 387 | 381 |
|
| 388 | 382 |
my $node = $tree->{$tag};
|
| 389 | 383 |
|
| 390 |
return $::lxdebug->leave_sub(2) if (defined($node->{"depth"}));
|
|
| 384 |
return if (defined($node->{"depth"}));
|
|
| 391 | 385 |
|
| 392 | 386 |
my $max_depth = 0; |
| 393 | 387 |
|
| ... | ... | |
| 398 | 392 |
} |
| 399 | 393 |
|
| 400 | 394 |
$node->{"depth"} = $max_depth + 1;
|
| 401 |
|
|
| 402 |
$::lxdebug->leave_sub(2); |
|
| 403 | 395 |
} |
| 404 | 396 |
|
| 405 | 397 |
sub sort_dbupdate_controls {
|
Auch abrufbar als: Unified diff
DBUpgrade: lxdebug Statements entfernt
So kann es aus scripts/ aufgerufen werden.