+ <TH>Customer</TH>
+ <TH>Package/Service</TH>
+ </TR>
+% my $anyavail = 0;
+% foreach my $cust_main ( @cust_main ) {
+% my($cust_pkg_phone,$cust_pkg_label,$svc_label) = possible_pkgs($cust_main);
+% my $avail = keys(%$cust_pkg_phone);
+% $anyavail = 1 if $avail;
+ <TR>
+ <TD><% $cust_main->name |h %></TD>
+ <TD>
+% if ( !$avail ) {
+ No suitable packages exist for this customer.
+% } else {
+ <SELECT NAME="custnum<%$cust_main->custnum%>_pkgnum_svcpart">
+% foreach my $pkgnum ( keys %$cust_pkg_phone ) {
+% my @svcpart = @{$cust_pkg_phone->{$pkgnum}};
+% foreach my $svcpart ( @svcpart ) {
+ <OPTION value="<%"${pkgnum}_$svcpart"%>">
+ <% $cust_pkg_label->{$pkgnum} %> / <% $svc_label->{$svcpart} %>
+ </OPTION>
+% }
+% }
+ </SELECT>
+% }
+ </TD>