<?
require "/usr/lib/cherry/dateutils";
require "/usr/lib/cherry/dbaccess"; 

$service_type='telephone';
$where_oper_id=" AND oper_id = '$oper_id' AND " if($oper_id);
$where_oper_id.=" AND telephone_services.phone_type='$phone_type' "  if($phone_type);

$sdescr="" if($phone_type eq 'fixed');
$sdescr="DECT" if($phone_type eq 'dect');
$sdescr="IP" if($phone_type eq 'ip');


?>

<TABLE class="page_h"><TR><TD> ( ):$sdescr</TD></TR> </TABLE>
<TABLE border=1 style="border:solid windowtext 1pt" width="98%" cellpadding=0 cellspacing=1>
<COL width="80px"><COL ><COL width=80px">
<THEAD>
	<TD style="border:solid windowtext 1pt">N </TD>
	<TD style="border:solid windowtext 1pt">$D_CLIENT_NAME</TD>
	<TD style="border:solid windowtext 1pt">$D_CLIENT_ID</TD>
</THEAD>

<?
	

$srv_=$service_type;
foreach $service_type (@CFG::SERVICES) {
	next if($srv_ && !($service_type eq $srv_));
	my $hack_where="";


$select = "SELECT base_clients.client_id,base_clients.oper_id,base_clients.name,${service_type}_services.user_id FROM base_clients JOIN ${service_type}_services ON base_clients.oper_id=${service_type}_services.oper_id AND base_clients.client_id=${service_type}_services.client_id WHERE  (${service_type}_services.date_expire IS NULL OR ${service_type}_services.date_expire>current_date) $where_oper_id ORDER BY base_clients.name";

	
        $sth = $dbh->prepare("$select");
        $sth->execute;



        while( my ($client_id,$client_oper_id,$client_name,$user_id) = $sth->fetchrow_array ) {


?>
<TR >
        <TD style="border:solid windowtext 1pt" ><A href="template.cgi?tpl=base/client_frame.tpl&client_id=$client_id&oper_id=$client_oper_id">$user_id</A></TD>
        <TD style="border:solid windowtext 1pt" ><A href="template.cgi?tpl=base/client_frame.tpl&client_id=$client_id&oper_id=$client_oper_id">$client_name</A></TD>
        <TD style="border:solid windowtext 1pt" ><A href="template.cgi?tpl=base/client_frame.tpl&client_id=$client_id&oper_id=$client_oper_id">$client_id</A></TD>
</TR>


<? 
	}

}#foreach

?>
</TABLE>

</FORM>
