view release on metacpan or  search on metacpan

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

		,{-fld=>'action'
			,-lbl=>'Action', -cmt=>'Action of the computer delivering/accepting service'
			,-lbl_ru=>'Äåéñòâèå', -cmt_ru=>'Äåéñòâèå âû÷èñëèòåëüíîé óñòàíîâêè ïî ïðåäîñòàâëåíèþ èëè ïîòðåáëåíèþ óñëóãè'
			,-flg=>'euq'
			,-hidel=>$w->{-a_cmdbm_fho}
			,-inp=>{-values=>['','user','supplier']
				,-labels_ru=>{''=>'','user'=>'ïîòðåáèòåëü','supplier'=>'ïîñòàâùèê'}
				}
			}, ''
		,{-fld=>'computer'
			,-lbl=>'Computer', -cmt=>'Computer installation (server, cluster, desktop, or another)'
			,-lbl_ru=>'Êîìïüþòåð', -cmt_ru=>'Âû÷èñëèòåëüíàÿ óñòàíîâêà (ñåðâåð, êëàñòåð, íàñòîëüíàÿ ñèñòåìà, è ò.ï.)'
			,-flg=>'euq'
			,-hidel=>$w->{-a_cmdbm_fho}
			,-ddlb=> sub{$_[0]->cgiQuery('cmdbmn',undef
					,{-qwhere=>"record IN('description','service','computer')"
						.($_ ? '' : " AND (system IS NULL OR system='' OR system IN('Computers','Êîìïüþòåðû') OR record='computer')")
					, -qkey=>{$_ ? ('system'=>$_) : ()}
					, $_ ? () : (-qorder=>['vordh','name'])
					})}
			,-ddlbloop=>1