web interface: reorder input fields in certificate search page
[openxpki.git] / trunk / clients / perl / OpenXPKI-Client-HTML-Mason / htdocs / lib / get_deep_error.mhtml
blob94d09fb856774fcbfe06b59520d832a9035a5efa
1 <%args>
2     $msg => undef
3 </%args>
4 <%init>
5     return if (not $msg);
6     return if (not ref $msg);
7     return if ($msg->{SERVICE_MSG} ne "ERROR");
9     ## print Dumper($msg);
10     return get_deep_errors ($msg->{LIST});
12     sub get_deep_errors
13     {
14         my $list  = shift;
15         my @error = ();
17         foreach my $item (@{$list})
18         {
19             if (exists $item->{CHILDREN})
20             {
21                 push @error, get_deep_errors ($item->{CHILDREN});
22             } else {
23                 push @error, $item;
24             }
25         }
26         return @error;
27     }
28 </%init>