DBIx-Web
view release on metacpan or search on metacpan
examples/cgi-bin/cmdb.cgi view on Meta::CPAN
260926102611261226132614261526162617261826192620262126222623262426252626262726282629
if
(!
$avu
->{
$k
}) {
&$vinit
({},
$k
,
$avu
);
$avu
->{
$k
}->{severity} =
''
;
}
$avu
->{
$k
}->{auser} =
$n
;
$avu
->{
$k
}->{arole} =
$s
->{-pcmd}->{-quname};
}
}
#<div style="margin-bottom: 1ex; margin-top: 1ex;">
#<span style="border: 1px solid">
#<fieldset style="padding: 2"><legend>Group box</legend># </fieldset>
'<div nowrap="true" style="margin-bottom: 0.4ex; margin-top: 0.5ex;">'
.(!
%$avs
?
''
:(
join
(
' '
,
map
{
my
$k
=
$_
;
# $s->logRec('***',$k,$avs->{$k});
my
$vl
=
$avs
->{
$k
}->{count}||0;
my
$vt
=(
$acn
->{
$k
} ||
$k
);
$s
->htmlMQH(
-html
=>
' '
.
$vl
.
' '
,
-title
=>
"$vl, $vt"
( run in 0.403 second using v1.01-cache-2.11-cpan-4e96b696675 )