#!/usr/bin/perl 

use CGI ':standard',':html3';



    foreach $key(sort(keys %ph_isv)){

    $key_link = '<a href=../cgi-bin/partgraph?part='.$key.'>'.$key.'</a>';
    @data = ($key_link,$ph_isv{$key},$ph_oos{$key},$aa_inprg{$key},$aa_hand{$key},$aa_redir{$key},);
    push @rows,td(\@data);
   }

@col_head = ('Partition', 'In Service','Out of Service','In Progress', 'Handled', 'Redirected');
    print table({-border=>'', -align=>CENTER},
        caption(strong($caption)),
        TR(td({-colspan=>1},[' ']),td({-colspan=>2, -align=>CENTER},[ '<b>Phones</b>']),td({-colspan=>3, -align=>CENTER},[ '<b>Auto Attendant</b>'])),
        TR([th(\@col_head),@rows])
	  ) ;