McCann-Erickson PRAHA PHONE EXTENSION LIST	Revised $print[BEGIN {$ENV{TZ}='CET'}; use Date::Manip;
$date=ParseDate('today');
UnixDate($date, '%e %B, %Y')] $open[People]	

MAIN MCE INCOMING NUMBERS	22009-111/627-1501/1624/1625	RECEPTION/Meeting room reservations	101
FAX	627-1202	MEETING ROOM (Medium)	178
FAX/TELEPHONE ROOM	100, 103 or 111

A – C
$beginsql[]$do[]$[Prijmeni] $[Jmeno]	$[Linka]$ifdef[Mobil]
		$[Mobil]$endif
$endsql	D - J
$beginsql[]$do[]$[Prijmeni] $[Jmeno]	$[Linka]$ifdef[Mobil]
		$[Mobil]$endif
$endsql	K - N
$beginsql[]$do[]$[Prijmeni] $[Jmeno]	$[Linka]$ifdef[Mobil]
		$[Mobil]$endif
$endsql	O - S
$beginsql[]$do[]$[Prijmeni] $[Jmeno]	$[Linka]$ifdef[Mobil]
		$[Mobil]$endif
$endsql	Š - Z
$beginsql[]$do[]$[Prijmeni] $[Jmeno]	$[Linka]$ifdef[Mobil]
		$[Mobil]$endif
$endsql