Lines Matching refs:LCR

164 	$LCR = $tops[0];
170 		if (@$rtcs[0]->{TAG} eq $LCR->{TAG}
171 			&& @$rtcs[0]->{TCID} eq $LCR->{TCID}
172 			&& @$rtcs[0]->{TC} eq $LCR->{TC}
173 			&& @$rtcs[0]->{STATUS} eq $LCR->{STATUS}) {
187 	if ($LCR->{TAG} eq $lasttag) {
190 		print "<tr><td>$LCR->{TAG}";
191 		$lasttag = $LCR->{TAG};
201 		} elsif (@$rtcs[0]->{TAG} eq $LCR->{TAG}
202 			&& @$rtcs[0]->{TCID} eq $LCR->{TCID}
203 			&& @$rtcs[0]->{TC} eq $LCR->{TC}) {
233 	print "<td>$LCR->{CONTACT}</tr>\n";