Revision ad876674
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
SL/DBUpgrade2.pm | ||
---|---|---|
103 | 103 |
|
104 | 104 |
push(@path, $tag); |
105 | 105 |
|
106 |
_control_error($form, $file_name, |
|
107 |
$main::locale->text("Dependency loop detected:") . |
|
108 |
" " . join(" -> ", @path)) |
|
109 |
if ($controls->{$tag}->{"loop"}); |
|
110 |
|
|
111 |
$controls->{$tag}->{"loop"} = 1; |
|
112 |
map({ _check_for_loops($form, $file_name, $controls, $_, @path); } |
|
113 |
@{$controls->{$tag}->{"depends"}}); |
|
106 |
my $ctrl = $controls->{$tag}; |
|
107 |
|
|
108 |
if ($ctrl->{"loop"} == 1) { |
|
109 |
# Not done yet. |
|
110 |
_control_error($form, $file_name, |
|
111 |
$main::locale->text("Dependency loop detected:") . |
|
112 |
" " . join(" -> ", @path)) |
|
113 |
} elsif ($ctrl->{"loop"} == 0) { |
|
114 |
# Not checked yet. |
|
115 |
$ctrl->{"loop"} = 1; |
|
116 |
map({ _check_for_loops($form, $file_name, $controls, $_, @path); } |
|
117 |
@{ $ctrl->{"depends"} }); |
|
118 |
$ctrl->{"loop"} = 2; |
|
119 |
} |
|
114 | 120 |
} |
115 | 121 |
|
116 | 122 |
sub _control_error { |
Auch abrufbar als: Unified diff
Zyklencheck war falsch.