repo.or.cz
/
openxpki.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
web interface: reorder input fields in certificate search page
[openxpki.git]
/
trunk
/
clients
/
perl
/
OpenXPKI-Client-HTML-Mason
/
htdocs
/
lib
/
get_deep_error.mhtml
blob
94d09fb856774fcbfe06b59520d832a9035a5efa
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");
8
9
## print Dumper($msg);
10
return get_deep_errors ($msg->{LIST});
11
12
sub get_deep_errors
13
{
14
my $list = shift;
15
my @error = ();
16
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>