Revision 2c7a89dd
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| SL/DBUpgrade2.pm | ||
|---|---|---|
| 124 | 124 |
} |
| 125 | 125 |
|
| 126 | 126 |
sub _dbupdate2_calculate_depth {
|
| 127 |
$main::lxdebug->enter_sub(); |
|
| 127 |
$main::lxdebug->enter_sub(2);
|
|
| 128 | 128 |
|
| 129 | 129 |
my ($tree, $tag) = @_; |
| 130 | 130 |
|
| 131 | 131 |
my $node = $tree->{$tag};
|
| 132 | 132 |
|
| 133 |
return $main::lxdebug->leave_sub() if (defined($node->{"depth"}));
|
|
| 133 |
return $main::lxdebug->leave_sub(2) if (defined($node->{"depth"}));
|
|
| 134 | 134 |
|
| 135 | 135 |
my $max_depth = 0; |
| 136 | 136 |
|
| ... | ... | |
| 142 | 142 |
|
| 143 | 143 |
$node->{"depth"} = $max_depth + 1;
|
| 144 | 144 |
|
| 145 |
$main::lxdebug->leave_sub(); |
|
| 145 |
$main::lxdebug->leave_sub(2);
|
|
| 146 | 146 |
} |
| 147 | 147 |
|
| 148 | 148 |
sub sort_dbupdate_controls {
|
Auch abrufbar als: Unified diff
DBUpgrade such routine im trace runtergesetzt.