view release on metacpan or  search on metacpan

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

				#	if (0 && !$r->{-a_sg}) { # bg highlight
				#		$r->{-a_sg} ={};
				#		my $h =$_[0]->recSel(
				#		-table=>'hdesk'
				#		,-data=>['idrm','status']
				#		,-group=>['idrm','status']
				#		,-where=>"status IN('new','draft','appr-do','scheduled','do','progress','rollback','delay','edit','appr-ok','appr-no') AND (idrm IS NOT NULL AND idrm<>'')");
				#		while(my $t=$h->fetchrow_hashref()) {
				#			$r->{-a_sg}->{$t->{idrm}} =''
				#				if !$r->{-a_sg}->{$t->{idrm}};
				#			$r->{-a_sg}->{$t->{idrm}} .=' ' .$t->{status}
				#		}
				#	}
				#	elsif ($r->{votimej} && $r->{utime} && $r->{status}
				#	&& ($r->{status} =~/^(?:draft|do|progress|rollback|delay|edit)/)
				#	&& ($r->{utime} lt substr($r->{votimej},-length($r->{utime})))
				#		) {
				#		$h =1;
				#	}
					$r->{-a_st} =$_[0]->strtime() if !$r->{-a_st};
					($v =~/^(?:ok)$/
					? '' 
					: $v 
					&& ($v=~/^(?:new|draft|appr-do|scheduled|do|progress|rollback|delay|edit|appr-ok|appr-no)$/)
					&& $r->{etime}
					&& ($r->{-a_st} gt $r->{etime})
					? 'color: red; font-weight: bold;'
					: 'color: brown; font-weight: bold')
					.($v
					&& ($v =~/^(?:do|progress|rollback|delay|edit)$/)
					&& $r->{-a_sg} && !$r->{-a_sg}->{$r->{id}}
					? '; background-color: yellow'
					: '')}
			}, ''
		,{-fld=>'stime'
			,-flg=>'euq'
			,-lbl=>'Start', -cmt=>'Start time of record described by'
			,-lbl_ru=>'Íà÷àëî', -cmt_ru=>'Äàòà è âðåìÿ íà÷àëà îïèñûâàåìîãî çàïèñüþ'
			,-inp=>{-maxlength=>20, -id=>'stime'}
			,-fdprop=>'nowrap=true'
			,-ldstyle=>$w->{-a_cmdbh_fsvrlds}
			,-ldprop=>'nowrap=true'
			,-lsthtml=>sub{/(?::00|\s00:00:00|:\d\d)$/ ? $` : $_}
			#,-inphtml=>sub{'$_'
			#		.($_[2] =~/[eq]/
			#		?$_[0]->htmlSubmitSpl(-id=>'stime_b')
			#		: '')}
			 }, ''
		,{-fld=>'etime'
			,-flg=>'euq'
			,-lbl=>'End', -cmt=>'End time of record described by'
			,-lbl_ru=>'Çàâåðø', -cmt_ru=>'Äàòà è âðåìÿ çàâåðøåíèÿ îïèñûâàåìîãî çàïèñüþ'
			,-inp=>{-maxlength=>20, -id=>'etime'}
			,-fdprop=>'nowrap=true'
			,-ldstyle=>$w->{-a_cmdbh_fsvrlds}
			,-ldprop=>'nowrap=true'
			,-lsthtml=>sub{/(?::00|\s00:00:00|:\d\d)$/ ? $` : $_}
			#,-inphtml=>sub{'$_'
			#		.($_[2] =~/[eq]/
			#		?$_[0]->htmlSubmitSpl(-id=>'etime_b') ."\n"
			#		.'<link rel="stylesheet" type="text/css" media="all" href="/jscalendar/calendar-win2k-1.css" />'
			#		.'<script type="text/javascript" src="/jscalendar/calendar.js"></script>'
			#		.'<script type="text/javascript" src="/jscalendar/lang/calendar-en.js"></script>'
			#		.'<script type="text/javascript" src="/jscalendar/calendar-setup.js"></script>'
			#		.'<script type="text/javascript">'
			#		.'Calendar.setup({'
			#		.'inputField: "stime"'
			#		.',ifFormat: "%Y-%m-%d %H:%M"'
			#		.',showsTime: true'
			#		.',timeFormat: "24"'
			#		.',button: "stime_b"'
			#		.'});'
			#		.'Calendar.setup({'
			#		.'inputField: "etime"'
			#		.',ifFormat: "%Y-%m-%d %H:%M"'
			#		.',showsTime: true'
			#		.',timeFormat: "24"'
			#		.',button: "etime_b"'
			#		.'});'
			#		.'</script>'
			#		: '')}
			 }
		,{-fld=>'object'
			,-flg=>'euq'
			,-cmt=>'Object (computer, device) of record described by'
			,-cmt_ru=>'Óíèêàëüíîå èìÿ îáúåêòà çàïèñè - êîìïüþòåðà èëè óñòðîéñòâà, ñîãëàñíî DNS'
			# ,-ddlb =>sub{$_[0]->cgiQueryFv('','object')}
			,-ddlb =>sub{$_[0]->recUnion(
					 $_[0]->cgiQueryFv('','object'
						# ,{-qkey=>{'record'=>'solution'}}
						)
					,$_[0]->recSel(-table=>'cmdbm',-data=>['name'],-key=>{'record'=>'computer'},-order=>'name')
					)}
			,-form=>'hdesk'
			,-inp=>{-maxlength=>60}
			,-fnhref=>sub{
				$_
			#	? $_[0]->urlCmd('',-form=>'cmdbm',-key=>{'name'=>$_},-cmd=>'recRead')
				? $_[0]->urlCmd('',-wikn=>$_,-wikq=>join('.', map {$_ ? $_ : ()} 'object',$_[3]->{record},$_[3]->{rectype}),-cmd=>'recRead')
				: $_[2] =~/e/
			#	? $_[0]->urlCmd('',-form=>'hdeskc',-cmd=>'recList', -frmLsc=>'object')
				? $_[0]->urlCmd('',-form=>'cmdbmn',-key=>{'record'=>'computer'},-cmd=>'recList')
				: ''}
			,-fvhref=>sub{
				$_
				? $_[0]->urlCmd('',-form=>'hdesk',-cmd=>'recList'
					,-qwhere=>'hdesk.object=' .$_[0]->dbiQuote($_)
					.' OR hdesk.subject LIKE ' .$_[0]->dbiQuote("%$_%"))
				: $_[2] =~/[eq]/
				? $_[0]->urlCmd('',-form=>'hdeskc',-cmd=>'recList', -frmLsc=>'object')
				: ''}
			},''
		,{-fld=>'application'
			,-flg=>'euq'
			,-lbl=>'Application', -cmt=>'Application or Resource (system, service, application) related to Record/Object'
			,-lbl_ru=>'Ïðèëîæåíèå', -cmt_ru=>'Ðåñóðñ èëè ïðèëîæåíèå (ñèñòåìà, êîìïîíåíò, ñåðâèñ, ïðèëîæåíèå), ê êîòîðîìó îòíîñèòñÿ çàïèñü, â ôîðìàòå \'ñèñòåìà/ïîäñèñòåìà/...\''
			# ,-ddlb =>sub{$_[0]->cgiQueryFv('','application')}
			,-ddlb =>sub{$_[0]->hreverse($_[0]->recUnion(
					 $_[0]->cgiQueryFv('','application'
						# ,{-qkey=>{'record'=>'solution'}}
						)
					,$_[0]->recSel(-table=>'cmdbm',-data=>['name'],-key=>{'record'=>'service'},-order=>'name')
					))}
			,-form=>'hdesk'