DBIx-Web

 view release on metacpan or  search on metacpan

examples/cgi-bin/cmdb.cgi  view on Meta::CPAN

2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
                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>#&nbsp;</fieldset>
 '<div nowrap="true" style="margin-bottom: 0.4ex; margin-top: 0.5ex;">'
 .(!%$avs
  ? ''
  :(join('&nbsp;',
        map {   my $k =$_;
                # $s->logRec('***',$k,$avs->{$k});
                my $vl =$avs->{$k}->{count}||0;
                my $vt =($acn->{$k} ||$k);
                $s->htmlMQH(-html=>'&nbsp;' .$vl .'&nbsp;'
                        ,-title=>"$vl, $vt"



( run in 0.403 second using v1.01-cache-2.11-cpan-4e96b696675 )