my $name = "FS::$svcdb"->table_info->{'name_plural'}
|| PL( "FS::$svcdb"->table_info->{'name'} );
- my $lcname = lc($name);
+ my $lcname = "FS::$svcdb"->table_info->{'lcname_plural'} || lc($name);
my $lcsname = lc("FS::$svcdb"->table_info->{'name'});
my $longname = "FS::$svcdb"->table_info->{'longname_plural'} || $name;
my $lclongname = lc($longname);
}
if ( $svcdb eq 'svc_phone' ) {
+
$report_svc{"Phone number (DID) availability"} =
[ $fsurl."search/report_phone_avail.html", '' ];
$report_svc{"Inventory/Provisioning Status"} =
[ $fsurl."search/phone_inventory_provisioned.html", '' ];
+
+ } elsif ( $svcdb eq 'svc_dsl' ) {
+
+ $report_svc{'Qualifications'} = [ $fsurl. 'search/qual.cgi', #XXX qual.html
+ '',
+ ];
+
}
$report_services{$name} = [ \%report_svc, $longname ];