view release on metacpan or  search on metacpan

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

		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"