view release on metacpan or  search on metacpan

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

			&$vinit($qv, 'mgr', $avc);
			&$vset($qv, 'mgr', $avc);
			$avc->{mgr}->{arole} =$s->{-pcmd}->{-quname};
	}
 }
 if (0 && scalar(%$avs)) {
	foreach my $k (keys %$acn) {
		next if $avs->{$k} ||($k eq '');
		&$vinit({}, $k, $avs);
	}
 }
 if (ref($avr)) {
	foreach my $k (@$alr) {
		next if $avr->{$k};
		&$vinit({}, $k, $avr);
		$avr->{$k}->{severity} ='';
	}
 }
 if ($avt && $qpk && $qpk->{-qkey}->{record} 
 && $s->{-a_cmdbh_rectype}->{$qpk->{-qkey}->{record}}) {
	foreach my $k (@{$s->{-a_cmdbh_rectype}->{$qpk->{-qkey}->{record}}}) {
		next if $avt->{$k};
		&$vinit({}, $k, $avt);
		$avt->{$k}->{severity} ='';
	}
 }
 if ($ah) {
	foreach my $k (keys %$ah) {
		next if $avg->{lc($k)};
		&$vinit({}, lc($k), $avg);
		$avg->{$k}->{arole} =$k;
	}
 }
 if (!$s->uguest) {
	foreach my $k (qw(auser auser+)) {
		next if $avp->{$k};
		&$vinit({}, $k, $avp);
	}
 }
 if ($s->{-pcmd}->{-quname}){
	$avc->{act} =$avg->{lc($s->{-pcmd}->{-quname})}
		if $avg->{lc($s->{-pcmd}->{-quname})};
	foreach my $k (qw(self svc req mgr act)) {
		&$vinit({}, $k, $avc) if !$avc->{$k};
		$avc->{$k}->{arole} =$s->{-pcmd}->{-quname};	
	}
 }
 if ($s->{-pcmd}->{-quname}) {
 	foreach my $n (@{$s->uglist('-u',$s->{-pcmd}->{-quname})}) {
		my $k =lc($n);
		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"
			,%xpar
			,-frmLso=>'-add'
			,$k eq '3.5'
			? (-qkey=>{'record'=>'unavlbl'})
			: (-qkey=>{'severity'=>$k}
			  ,-qwhere=>"[[hdesk.record NOT IN('work','task')]]")
			,-urm=>$avs->{$k}->{utime} ||''
			,-style=>'background-color: ' .$ac->{$k}||$ac->{''})
		} sort { $b <=> $a
			} keys %$avs)
	))
 .(!$aqa
  ? ''
  :('&nbsp;'
   .do{	my $vt =$s->lngslot($aqa->[0],'-lbl');
	my $ymch =$s->{-pcmd}->{-htmlMQH};
   	my %ypar =$ymch
   		? ()
   		: (map {$c->{$_} ? ($_=>$c->{$_}) : ()
   			} qw(-qurole -quname -qkey));
	$s->htmlMQH(-html=>'&nbsp;' .$vt .'&nbsp;'
		,-title=>$s->lngslot($aqa->[0],'-cmt') ||$aqa->[0]->{-cmd}->{-qwhere}
 		,-style=>'background-color: buttonface'
		,%ypar
		,-qwhere=>(!$ymch && $c->{-qwhere} && ($c->{-qwhere} =~/^(\[\[.+?\]\])/) ? $1 : '')
			.$aqa->[0]->{-cmd}->{-qwhere}
 		)
 		.'&nbsp;'
	.$s->htmlMQH(-html=>'&nbsp;X&nbsp;'
 		,-title=>$s->lng(1,'ddlbreset')
 		,-style=>'background-color: buttonface; border-width: 0px;'
 		,%ypar
		,!$ymch && $c->{-qwhere} && ($c->{-qwhere} =~/^(\[\[.+?\]\])/) ? (-qwhere=>$1) : ()
 		,-frmLso=>'-add') # -add	
 	}))
 .(!%$avr
  ? ''
  :('&nbsp;&nbsp;&nbsp;'
   .join('&nbsp;',
	map {	my $k =$_;
		# $s->logRec('***',$k,$avr->{$k});
		my $vl =$acr->{$k} ||$k;
		my $vt =$k;
		$s->htmlMQH(-html=>'&nbsp;' .$vl .'&nbsp;'
		,-title=>$vt
			.($avr->{$k}->{count} ? ', ' .$avr->{$k}->{count} : '')
			.($acn && defined($avr->{$k}->{severity}) && ($avr->{$k}->{severity} ne '') 
				? ', ^' .($acn->{$avr->{$k}->{severity}} ||$avr->{$k}->{severity}) 
				: '')
		,%xpar